Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
ap_mainframes,
Try this job
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
C 02111 - 02115 100
//SORTOUT DD DSN=&&C1,SPACE=(TRK,(1,0),RLSE),DISP=(,PASS)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=INIT,
OVERLAY=(81:+1,ADD,(11,5,ZD,SUB,3,5,ZD),M11,LENGTH=5)),
IFTHEN=(WHEN=(81,5,ZD,GT,1),
BUILD=(2:C'BUILD=(1,1,SEQNUM,5,ZD,START=',3,5,C',17,3),REPEAT=',
81,5,80:X)),
IFTHEN=(WHEN=NONE,
BUILD=(2:C'BUILD=(1,1,SEQNUM,5,ZD,START=',3,5,C',17,3)',80:X))
/*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
C 02111 - 02115 100
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,
// DD DSN=&&C1,DISP=SHR
/* |
|
|