Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. I assumed your input file has RECFM=FB and LRECL=80, but you can change the job appropriately for other attributes. For more information on the IFTHEN group technique used in this job, see:
www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmtrck.html#d01
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//OUT1 DD DSN=... output file1 (FB/80)
//OUT2 DD DSN=... output file2 (FB/80)
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,3,CH,EQ,C'***'),
OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,
81:81,8,ZD,SUB,89,8,ZD,M11,LENGTH=8))
OUTFIL FNAMES=OUT1,
INCLUDE=(81,8,ZD,EQ,+0),
BUILD=(1,80)
OUTFIL FNAMES=OUT2,
INCLUDE=(81,8,ZD,EQ,+1,AND,1,3,CH,NE,C'***'),
BUILD=(1,80)
/*
|
|
|