Hi Max
This was my miserable attempt (with various variations).
Just keep getting the very 1st and very last record merged in both //SPLCE and
//OUT1 datasets.
********************************* Top of Data **********************************
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
REC RD VERSI N NUMBER CURRENT PLAN OPERATION 00000001
******************************** Bottom of Data ********************************
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=IMHOFAV.B.SRT3
//OUT1 DD DISP=(NEW,CATLG),DSN=IMHOFAV.B.SRT3.FORMAT,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//SPLCE DD DISP=(NEW,CATLG),DSN=IMHOFAV.B.SRT3.SPLICE,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//TOOLIN DD *
* REFORMAT THE IN1 RECORDS FOR SPLICING
COPY FROM(IN1) TO(SPLCE) USING(CTL1)
SPLICE FROM(SPLCE) TO(OUT1) ON(72,8,ZD) KEEPNODUPS WITHANY -
WITH(1,8) WITH(10,8) WITH(19,8) USING(CTL1)
/*
//CTL1CNTL DD *
OPTION COPY
INREC IFOUTLEN=80,
IFTHEN=(WHEN=GROUP,BEGIN=(33,22,CH,EQ,C'CURRENT PLAN OPERATION'),
RECORDS=3,PUSH=(73:ID=8)),
IFTHEN=(WHEN=(6,14,CH,EQ,C'APPLICATION ID'),
BUILD=(1:8,8)),
IFTHEN=(WHEN=(6,14,CH,EQ,C'JOB NAME '),
BUILD=(10:17,8)),
IFTHEN=(WHEN=(6,17,CH,EQ,C'APPLIED RUN CYCLE'),
BUILD=(19:25,8))
OUTFIL FNAMES=SPLCE,BUILD=(1,80)
/*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
