Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like this:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/11)
//SORTOUT DD DSN=... output file (FB/11)
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(12:1,1,13:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(9,3,SS,EQ,C'002,004'),OVERLAY=(13:8C'0'))
SORT FIELDS=(12,9,CH,A)
OUTFIL REMOVECC,NODETAIL,
BUILD=(1,11),
SECTIONS=(12,9,
TRAILER3=(1,1,3:TOT=(3,5,UFF,EDIT=(TT.TT)),9:9,3))
/*
|
|
|