Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (FB/80)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=... output file (FB/80)
//TOOLIN DD *
COPY FROM(IN) TO(T1) USING(CTL1)
SPLICE FROM(T1) TO(OUT) ON(81,8,ZD) KEEPBASE KEEPNODUPS -
WITHALL WITH(1,96) USING(CTL3)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,80,SS,EQ,C'JOB05935'),
OVERLAY=(81:SEQNUM,8,ZD,97:C'Y')),
IFTHEN=(WHEN=NONE,
OVERLAY=(89:SEQNUM,8,ZD,
81:81,8,ZD,SUB,89,8,ZD,TO=ZD,LENGTH=8))
OUTREC OVERLAY=(89:SEQNUM,8,ZD,RESTART=(81,8))
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=((89,8,ZD,EQ,+1,AND,97,1,CH,EQ,C'Y'),OR,
(89,8,ZD,EQ,+2,AND,97,1,CH,EQ,C'Y',AND,1,1,CH,EQ,C'S')),
BUILD=(1,80)
/*
|
|
|