Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT/ICETOOL job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1 (FB/600)
//IN2 DD DSN=... input file2 (FB/600)
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT1 DD DSN=... output file1 (FB/600)
//OUT2 DD DSN=... output file2 (FB/600)
//OUT3 DD DSN=... output file3 (FB/600)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,11,CH) KEEPNODUPS -
WITH(602,590) USING(CTL3)
/*
//CTL1CNTL DD *
INREC BUILD=(1:1,11,12:C'1',13:12,589,1191:X)
/*
//CTL2CNTL DD *
INREC BUILD=(1:1,11,602:C'2',603:12,589)
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(602,1,CH,EQ,C' '),
BUILD=(1,11,13,589)
OUTFIL FNAMES=OUT2,INCLUDE=(12,1,CH,EQ,C' '),
BUILD=(1,11,603,589)
OUTFIL FNAMES=OUT3,
INCLUDE=(12,1,CH,EQ,C'1',AND,602,1,CH,EQ,C'2',AND,
(13,200,CH,NE,603,200,CH,OR,
213,200,CH,NE,803,200,CH,OR,
413,189,CH,NE,1003,189,CH)),
BUILD=(1,11,13,589)
/*
|
|
|