MVSFORUMS.com

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

My requirement is to pick up first SEQ and LAST SEQ and write a single record.
Key is FILE,BTCH,SERIAL.seq num gets incremented if the 3 are same.
For SEQ=1,I need to write create-by-pgm,mod-by-pgm and date-time-create
Write remainingg output layout fields for the last seq num of the same file batch serial key.

space differentiates each field.

kolusu · Posted: Fri Nov 10, 2006 11:37 am Post subject:

radkrish,

Your output does NOT match the requirement. How did you get the last record in your output?

dbzTHEdinosauer · Posted: Fri Nov 10, 2006 11:57 am Post subject:

small design problem, maybe. if the input was sorted correctly, you have 2 records with the same key (including ts) only difference is pgm mod.

1. how do you plan to handle duplicates? Need to come up with a plan.

2. if you are going to use a timestamp, use a different one for each record. Otherwise, use the date,hms and leave it at that.
_________________
Dick Brenholtz
American living in Varel, Germany

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Kolusu,
The output should pick that record.
Else i can seperate the single seq num record from the other.
For single seq record,there is no need for formatting.we can append it later.

Actually,I thought of extracting the first and last seq num of FIL BTCH SERIAL.
By FIRSTDUp and LASTDUP.But from these 2 records,we need to format the fields.
Not sure how to go along with it.

Duplicates are identified based on FILE BTCH and SERIAL.(first 3 fields)
these 3 fields are the key.

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

i.e. if the seq num for FILE BTCH SERIAL fields are 1,2,3,4,5
I need to pick create-by-pgm,mod-by-pgm and date-time-create from the first seq num and the remaining will be picked from the last (i.e 5 here) record.fields picked from first seq num and last seq num should be written as a single record.

Hope I clarified my query.

kolusu · Posted: Fri Nov 10, 2006 1:37 pm Post subject:

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Kolusu,
Oops.Iam extremely sorry.Pls ignore the 4 record.

kolusu · Posted: Fri Nov 10, 2006 2:14 pm Post subject:

The following DFSORT/ICETOOL will give you the desired results. The first sort operator gets the first the last seq num based on the combo of file,btch,serial. The second SPlice operator pads the pgm name at the end.

radkrish · Beginner Joined: 12 Aug 2005 Posts: 102 Topics: 19

Thanks,Kolusu.
Also,I tried by extracting first dup,lst dup and no dups.Then formatting it.It worked well.Though I have another query.

consider the following records

Input
------

kolusu · Posted: Tue Nov 14, 2006 9:14 am Post subject:

radkrish,

Quite simple . Just use IFTHEN statement to overlay with desired contents

check this DFSORT JCL