Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
mohanrazz,
Use the following DFSORT JCL if both files are of the same LRECL and RECFM
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABCDEFGHIJ12KLMNOPQRST
// DD *
89
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION EQUALS,ZDPRINT
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,1,ZD)),
IFTHEN=(WHEN=(81,1,ZD,EQ,1),OVERLAY=(11:C'00')),
IFTHEN=(WHEN=(81,1,ZD,EQ,2),OVERLAY=(81:C'1'))
SORT FIELDS=(81,1,CH,A)
SUM FIELDS=(11,2,ZD)
OUTFIL BUILD=(1,80)
/*
|
And if the files are of different LRECL then use the following DFSORT JCL
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
89
//SORTOUT DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(C'SRNO,C''',11,2,C'''',80:X)
/*
//STEP0200 EXEC PGM=ICEMAN
//SYMNAMES DD DSN=&&T1,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABCDEFGHIJ12KLMNOPQRST
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(11:SRNO)
/*
|
|
|