IBM Mainframe Forum

hi:

i had do the jcl as below.
can help explain how it work?

S3 EXEC PGM=ICETOOL
TOOLMSG DD SYSOUT=*
DFSMSG DD SYSOUT=*
IN1 DD DSN=PRIVATE.OUTREC1,DISP=SHR
IN2 DD DSN=P025003.OUTREC,DISP=SHR
OUT1 DD DSN=TESTS.TCP001,
DISP=(NEW,CATLG,DELETE),UNIT=DISK,
SPACE=(CYL,(01,05),RLSE),
DCB=(RECFM=FB,LRECL=450,BUFNO=10,DSORG=PS)
T1 DD DSN=&&T1,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(5,5))
TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(351,23,CH) KEEPNODUPS WITHALL -
WITH(151,200) WITH(451,1) USING(CTL3)

CTL1CNTL DD *
OUTREC FIELDS=(1,450,452:C'11')
/*
//CTL2CNTL DD *
OUTREC FIELDS=(1,450,452:C'22')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(452,2,CH,EQ,C'11'),OUTREC=(1,450)


Thank

Usertesting,

The splice operator along with all the parms is explained in detail here with examples

http://publibz.boulder.ibm.com/cgi-bin/ ... 1CA40/6.14?

thank skolusu