Problem with SPLICE to combine multiple records
Posted: Tue Apr 12, 2011 7:12 pm
Have following input file 80 byte records. Any help appreciated thanks
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
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)