Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
I assume there's nothing in the trailer record that identifies it as such so you can't just use OMIT.
Given that, here's a DFSORT job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//S1 DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(5,5)),DISP=(,PASS)
//SYSIN DD *
OPTION COPY,SKIPREC=1
INREC OVERLAY=(81:SEQNUM,8,ZD)
OUTFIL FNAMES=T1
OUTFIL FNAMES=S1,REMOVECC,NODETAIL,
OUTREC=(80X),
TRAILER1=('RCDCT,+',81,8)
/*
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&T1,DISP=(OLD,PASS)
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
OMIT COND=(81,8,ZD,EQ,RCDCT)
OUTREC BUILD=(1,80)
/*
|
|
|
