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/235)
//OUT DD DSN=... output file (FB/253)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(9,4,ZD) KEEPBASE -
WITHALL WITH(19,235) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(19:1,235,9:SEQNUM,4,ZD,START=0)),
IFTHEN=(WHEN=(19,1,CH,EQ,C'2'),
OVERLAY=(1:28,8,9:SEQNUM,4,ZD,START=0)),
IFTHEN=(WHEN=NONE,
OVERLAY=(254:SEQNUM,4,ZD,
9:9,4,ZD,SUB,254,4,ZD,M11,LENGTH=4))
OUTFIL FNAMES=OUT,
BUILD=(1,12,
13:SEQNUM,6,ZD,START=0,RESTART=(1,8),
19:19,235)
/*
|
|
|