Guest
|
|
|
|
Hi,
Based on my understanding of your requirement I have made the following jcl:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
01 TYP
02 MAN
03 BOY
04 CAT
05 DOG
06 NEW
07 TRY
01 TYP
02 MAN
03 BOY
04 CAT
05 DOG
06 NEW
07 TRY
01 TYP
02 MAN
03 BOY
04 CAT
05 DOG
06 NEW
07 TRY
01 TYP
02 NAM
03 BOY
04 CAT
05 DOG
06 NEW
07 TRY
//SORTOUT DD DSN=TEMP.IBMTST,DISP=(,CATLG),
// RECFM=FB
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,RECORDS=7,PUSH=(7:ID=3)),
IFTHEN=(WHEN=INIT,OVERLAY=(10:C'001')),
IFTHEN=(WHEN=(1,2,CH,EQ,C'02'),OVERLAY=(10:C'000'))
SORT FIELDS=(7,3,CH,A,10,3,CH,A,1,2,CH,A)
OUTREC IFTHEN=(WHEN=GROUP,RECORDS=7,PUSH=(14:4,3))
OUTFIL FNAMES=SORTOUT,BUILD=(1,17)
/*
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEMP.IBMTST,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(18:SEQNUM,3,ZD,RESTART=(14,3))),
IFTHEN=(WHEN=GROUP,BEGIN=(18,3,CH,EQ,C'001'),PUSH=(21:ID=3)),
IFTHEN=(WHEN=(1,2,SS,EQ,C'01,02,04,05,06,07'),
OVERLAY=(18:C'000'))
SORT FIELDS=(21,3,CH,A,1,2,CH,A,18,3,CH,A)
SUM FIELDS=NONE
OUTFIL FNAMES=SORTOUT,BUILD=(1,6)
/*
|
The above JCL can be modified based on the length of your input data.
Kindly let me know if the requirement is met.
I believe that a better and efficient solution for the same can be found if the exact requirement is shared.
Devil13
There is always a better solution |
|
