Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
sudhamani,
The following DFSORT JCL will give you the desired results. If there are 3 or more header or trailers we abend or else the job ends with a return code of zero
Concentate both files to sortin
Code: |
//STEP0100 EXEC PGM=ICEMAN,PARM='RC16=ABE'
//SYSOUT DD SYSOUT=*
//SORTIN DD *
H200711051317
DETAIL RECORDS..........................
T20080107105000000000000000
H200805051115
DETAIL RECORDS..........................
T20080505111500119500000041
H200711051317
T20080107105000000000000000
DETAIL RECORDS..........................
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(1,1,SS,EQ,C'H,T')
INREC IFTHEN=(WHEN=INIT,BUILD=(1,1,C'0100',X)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),OVERLAY=(2:C'0001'))
SORT FIELDS=(6,1,CH,A)
SUM FIELDS=(2,2,ZD,4,2,ZD)
OUTFIL OMIT=(2,2,ZD,GE,3,OR,4,2,ZD,GE,3),NULLOFL=RC16
/*
|
Hope this helps...
Cheers |
|