Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
hernikiten,
Here's a DFSORT/ICETOOL job that will do what you asked for. I assumed your input files have RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
ABCD conference room
EFGH meeting room
IJKL Chat room
MNOP smoking room
QRST Wash room
/*
//IN2 DD *
room1 ABCD
room2 EFGH
room3 QRST
/*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(81,4,CH) -
WITHALL WITH(1,5) USING(CTL3)
/*
//CTL1CNTL DD *
INREC OVERLAY=(81:1,4)
/*
//CTL2CNTL DD *
INREC OVERLAY=(81:11,4)
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,BUILD=(1,80)
/*
|
|
|
