Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
bellamkondar,
The following DFSORT JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DUMMY,DCB=(LRECL=200,RECFM=FB,BLKSIZE=27800)
//SORTOUT DD DSN=&&H,DISP=(,PASS),SPACE=(TRK,(1,0),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,
TRAILER1=(3C'$',11:2C'0',200:X)
//*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&H,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=Your input fileB,DISP=SHR
// DD DSN=&&H,DISP=SHR,VOL=REF=*.STEP0100.SORTOUT
// DD DSN=Your input fileA,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'$$$'),PUSH=(201:ID=1)),
IFTHEN=(WHEN=(201,1,ZD,EQ,1),OVERLAY=(202:2X'00')),
IFTHEN=(WHEN=(201,1,ZD,EQ,2),OVERLAY=(202:11,2))
SORT FIELDS=(1,7,CH,A),EQUALS
SUM FIELDS=(201,1,ZD,202,2,BI)
OUTFIL INCLUDE=(201,1,ZD,EQ,3,AND,11,2,CH,NE,202,2,CH),
BUILD=(1,8,C'D',10,191)
//* |
|
|