Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for. Note that the IN1 DD and IN2 DD must both point to your input data set.
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//IN1 DD DSN=... input file (VB/124)
//IN2 DD DSN=... input file (VB/124)
//OUT1 DD DSN=... output file1 (VB/124)
//OUT2 DD DSN=... output file2 (VB/124)
//SYSIN DD *
JOINKEYS F1=IN1,FIELDS=(7,7,A),SORTED
JOINKEYS F2=IN2,FIELDS=(5,7,A),SORTED
OPTION COPY
REFORMAT FIELDS=(F1:1,4,F2:13,2,F1:5)
OUTFIL FNAMES=OUT1,REMOVECC,INCLUDE=(5,2,CH,EQ,C'52'),
BUILD=(1,4,7),
HEADER1=('0 HEADER'),
TRAILER1=('9 TRAILER ',TOT=(102,12,ZD,TO=ZD,LENGTH=12))
OUTFIL FNAMES=OUT2,REMOVECC,INCLUDE=(5,2,CH,EQ,C'16'),
BUILD=(1,4,7),
HEADER1=('0 HEADER'),
TRAILER1=('9 TRAILER ',TOT=(102,12,ZD,TO=ZD,LENGTH=12))
/*
//JNF1CNTL DD *
OMIT COND=(5,1,SS,EQ,C'09')
/*
//JNF2CNTL DD *
INCLUDE COND=(5,1,CH,EQ,C'2')
INREC BUILD=(1,4,5:7,7,13:90,2)
/*
|
|
|