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/100)
//OUT DD DSN=... output file (FB/1000)
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(1001,1,CH) WITHEACH -
WITH(101,100) WITH(201,100) WITH(301,100) WITH(401,100) -
WITH(501,100) WITH(601,100) WITH(701,100) WITH(801,100) -
WITH(901,100) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(1002:SEQNUM,1,ZD,START=0)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+1),OVERLAY=(101:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+2),OVERLAY=(201:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+3),OVERLAY=(301:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+4),OVERLAY=(401:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+5),OVERLAY=(501:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+6),OVERLAY=(601:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+7),OVERLAY=(701:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+8),OVERLAY=(801:1,100)),
IFTHEN=(WHEN=(1002,1,ZD,EQ,+9),OVERLAY=(901:1,100))
OUTFIL FNAMES=OUT,BUILD=(1,1000)
/*
|
|
|
