IBM Mainframe Forum

by **tivrfoa** » Fri Jan 09, 2015 10:09 pm

Hello,

Input: id(1), name(10), quantity(2)

1chair 03
2pc 01
3tv 02

output: id(1), name(10), sequence(2)

1chair 01
1chair 02
1chair 03
2pc 01
3tv 01
3tv 02

It replicates the record based on the quantity field and generates a sequence number.
Could you please tell me how to do this using sort?

Thank you.

by **Thampy** » Fri Jan 09, 2015 10:57 pm

Please try the below JCL. The JCL uses two sort steps.

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1CHAIR 03
2PC 01
3TV 02
//SORTOUT DD DSN=&&T1,DISP=(NEW,PASS),SPACE=(TRK,(50,50),RLSE)
//SYSIN DD *
OPTION COPY
OUTFIL REPEAT=99,OVERLAY=(81:12,2,12:SEQNUM,2,ZD,RESTART=(1,11))
//STEP020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&T1,DISP=(OLD,DELETE)
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(12,2,ZD,LE,81,2,ZD)
OUTREC BUILD=(1,80)

by **tivrfoa** » Fri Jan 09, 2015 11:12 pm

Thanks a lot Thampy. I thought it was not possible to do this using sort, but asked to make sure.
Amazing =D

IBM Mainframe Forum

Generate sequence number based on quantity field

Generate sequence number based on quantity field

Re: Generate sequence number based on quantity field

Re: Generate sequence number based on quantity field