MVSFORUMS.com

bprasanna

Hi,
I am having a VB file with length of 3000.The i/p in the file is like below.
[code:1:2cca1a9af1]
Y.021RRAL1349740 1.

kolusu · Posted: Tue Jun 13, 2006 10:22 am Post subject:

Bprasanna,

Follow the solution posted by me in this topic.

http://www.mvsforums.com/helpboards/viewtopic.php?t=4356&highlight=sum

Just remove the OMIT cond in step0200 since you want to preserve the first record.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

bprasanna · Posted: Tue Jun 13, 2006 2:05 pm Post subject:

Hi Kolusu,
Thanks for the reply.But I got a small doubt here.When I tried to put the stuff in paper(since I am at home and not able to access the mainframe to test the code),Igot this doubt.

Let's see the below example.

I/P file

AAA123
AAA234
AAA546
9AA678
9AA891
AAA123
AAA34Q
9AAR21

Once I use the first control card(inrec),I am goint to get the o/p as

AAA123 0 1
AAA234 0 2
AAA546 0 3
9AA678 1 4
9AA891 1 5
AAA123 0 6
AAA34Q 0 7
9AAR21 0 8

After the outrec the above will turn into

AAA123 1
AAA234 2
AAA546 3
9AA678 5
9AA891 6
AAA123 6
AAA34Q 7
9AAR21 8

In the next step,Since I am using the sum fields=none option on the values,I am going to end up getting the
9AA891 record and the AAA123 record will be dropped.

Am I missing some thing while checking this on paper ?

Once again thanks a lot!

Bprasanna

kolusu · Posted: Tue Jun 13, 2006 3:17 pm Post subject:

bprasanna,

I just realized that the above proposed solution will NOT work in your case as both records will be changed.

The following JOb will give you the desired results, but I am not sure your version of syncsort supports the BUILD feature.I assumed that your key ('9' in this case starts at pos 5)

bprasanna · Posted: Wed Jun 14, 2006 1:19 am Post subject:

Hi Kolusu,
I am having the release of Z/OS 1.2.0.0R version.So the Build function won't work in my machine.Do you have any other idea to achive this one?

Thank you
Murali
_________________
----------------
Thanks&Regards
Bprasanna

kolusu · Posted: Wed Jun 14, 2006 7:34 am Post subject:

bprasanna,

Found an easier way to delete the second record. try the following control cards. We add a seqnum of 1 byte after the rdw to all the records start with 5 and incrmenting with 5. By doing so every second record will have a zero as seqnum . ex:

bprasanna · Posted: Wed Jun 14, 2006 1:28 pm Post subject:

kolusu,
I think this one also won't work as we are expecting.This will work only if the
records are in odd number and will fail in case of even numbers.
See the below example.
i/p file

AAA
A99
A66
A88
9AA
9BB
AZA
AZC
9ZZ

After adding the incrimental value of 5 ,we are going to have the
0AAA
5A99
0A66
5A88
09AA
59BB
0AZA
5AZC
09ZZ

Now if I am going to use the omit(0 and 9) condition,then the o/p will be
AAA
A99
A66
A88
9BB
AZA
AZC

Where I am expecting the o/p as

AAA
A99
A66
A88
9AA
AZA
AZC
9ZZ

Thank you

Bprasanna

kolusu · Posted: Wed Jun 14, 2006 2:56 pm Post subject:

bprasanna,

I cannot think of a solution with the available features of syncsort. If easytrieve is an option then following the code will give you the desired results.

bprasanna · Posted: Mon Jun 19, 2006 5:21 am Post subject:

Kolusu,
Thanks for the info.

Thank you
Bprasanna
_________________
----------------
Thanks&Regards
Bprasanna