karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
I achieved this using following code
Code: |
//TOOLIN DD *
SPLICE FROM(IN) TO(OUT) ON(1,14,CH) KEEPNODUPS -
WITHEACH WITH(21,4) WITH(26,4) WITH(31,4) WITH(36,4) USING(CTL1)
/*
//CTL1CNTL DD *
INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD,RESTART=(1,14))),
IFTHEN=(WHEN=(81,8,ZD,EQ,1),BUILD=(1,14,16:16,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,2),BUILD=(1,14,21:16,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,3),BUILD=(1,14,26:16,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,4),BUILD=(1,14,31:16,4)),
IFTHEN=(WHEN=(81,8,ZD,EQ,5),BUILD=(1,14,36:16,4))
/*
|
|
|