0000000001
0000000002
0000000003
0000000004
0000000005
0000000006
0000000007
0000000008
0000000009
0000000010
0000000011
Want output file which is 80 bytes to look like the following:
Date 032211 ERROR REPORT PAGE 1
0000000001 0000000002 0000000003 0000000004 0000000005 0000000006 0000000007
0000000008 0000000009 0000000010 0000000011
Used following from posting example to assemble output rec but no success
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(81,8,ZD) KEEPNODUPS WITHANY -
WITH(12,11) WITH(23,11) WITH(34,11) WITH(45,11) -
WITH(56,11) WITH(67,11) -
USING(CTL1)
/*
//CTL1CNTL DD *
OPTION COPY
INREC IFOUTLEN=88,
IFTHEN=(WHEN=GROUP,RECORDS=7,PUSH=(81:ID=8,89:SEQ=1)),
IFTHEN=(WHEN=(89,8,ZD,EQ,1),BUILD=(01:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,2),BUILD=(12:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,3),BUILD=(23:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,4),BUILD=(34:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,5),BUILD=(45:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,6),BUILD=(56:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,7),BUILD=(67:1,11,81:81,8))
OUTFIL FNAMES=OUT,BUILD=(1,80)
SPLICE FROM(IN) TO(OUT) ON(81,8,ZD) KEEPNODUPS WITHANY -
WITH(12,11) WITH(23,11) WITH(34,11) WITH(45,11) -
WITH(56,11) WITH(67,11) -
USING(CTL1)
/*
//CTL1CNTL DD *
OPTION COPY
INREC IFOUTLEN=88,
IFTHEN=(WHEN=GROUP,RECORDS=7,PUSH=(81:ID=8,89:SEQ=1)),
IFTHEN=(WHEN=(89,8,ZD,EQ,1),BUILD=(01:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,2),BUILD=(12:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,3),BUILD=(23:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,4),BUILD=(34:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,5),BUILD=(45:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,6),BUILD=(56:1,11,81:81,8)),
IFTHEN=(WHEN=(89,8,ZD,EQ,7),BUILD=(67:1,11,81:81,8))
OUTFIL FNAMES=OUT,BUILD=(1,80)