Alain Benveniste
New User
Joined: 14 Feb 2005 Posts: 88
|
|
|
|
Rameshm,
Here is the jcl that does what you want:
Code: |
//STEP0001 EXEC PGM=ICETOOL
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) TO(OUT) USING(ICE0)
SPLICE FROM(OUT) TO(OUTX) ON(81,5,ZD) WITH(5,76) USING(ICE1)
/*
//IN DD *
ABC2600000 03$000
ABC2600000 03$000999999999999999
ABC2600000 03$001
ABC2600000 03$000001002003004005
ABC2600000 03$002
ABC2600000 03$111222333444555666
/*
//OUT DD DISP=(NEW,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1,0),RLSE),
// DCB=(DSORG=PS,RECFM=FB,LRECL=86),
// DSN=&&OUT
//OUTX DD SYSOUT=*
//ICE0CNTL DD *
OMIT COND=(4,3,CH,NE,C'260')
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,5,ZD,
86:81,5,ZD,MOD,+2,EDIT=(T))),
IFTHEN=(WHEN=(86,1,CH,EQ,C'1'),
BUILD=(1:15,3,81:SEQNUM,5,ZD)),
IFTHEN=(WHEN=(86,1,CH,EQ,C'0'),
BUILD=(5:15,20,81:SEQNUM,5,ZD))
/*
//ICE1CNTL DD *
OUTFIL FNAMES=OUTX,OUTREC=(1,80)
/*
|
Alain |
|