Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
ramesh,
Assuming you want a count of 11 rather than 10 to be consistent with your input counts, here's a DFSORT job that will do what you asked for. I assumed your input files have RECFM=FB and LRECL=80, but you can change the job as appropriate for other attributes:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file1 (FB/80)
// DD DSN=... input file2 (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
OMIT COND=(1,2,CH,EQ,C'TL')
INREC IFTHEN=(WHEN=(1,2,CH,EQ,C'HD'),OVERLAY=(81:SEQNUM,1,ZD))
OUTFIL REMOVECC,OMIT=(81,1,CH,EQ,C'2'),
BUILD=(1,80),
TRAILER1=('TL',COUNT+1=(M11,LENGTH=5))
/*
|
If you really want a count of 10 rather than 11, change COUNT+1= to COUNT=. |
|
