Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
niki,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DSN=Your input 4079 lrecl file,DISP=SHR
//INB DD DSN=Your input 4080 lrecl file,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(1,18,A)
JOINKEYS F2=INB,FIELDS=(1,18,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,4079,?,F2:1,4079)
INREC IFOUTLEN=4080,
IFTHEN=(WHEN=(4080,1,CH,EQ,C'1'),OVERLAY=(4080:C'D')),
IFTHEN=(WHEN=(4080,1,CH,EQ,C'2'),BUILD=(4081,4079,C'I')),
IFTHEN=(WHEN=(4080,1,CH,EQ,C'B',AND,
((0019,256,CH,EQ,4099,256,CH),AND,
(0275,256,CH,EQ,4355,256,CH),AND,
(0531,256,CH,EQ,4611,256,CH),AND,
(0787,256,CH,EQ,4867,256,CH),AND,
(1043,256,CH,EQ,5123,256,CH),AND,
(1299,256,CH,EQ,5379,256,CH),AND,
(1555,256,CH,EQ,5635,256,CH),AND,
(1811,256,CH,EQ,5891,256,CH),AND,
(2067,256,CH,EQ,6147,256,CH),AND,
(2323,256,CH,EQ,6403,256,CH),AND,
(2579,256,CH,EQ,6659,256,CH),AND,
(2835,256,CH,EQ,6915,256,CH),AND,
(3091,256,CH,EQ,7171,256,CH),AND,
(3347,256,CH,EQ,7427,256,CH),AND,
(3603,256,CH,EQ,7683,256,CH),AND,
(3859,220,CH,EQ,7939,220,CH))),OVERLAY=(4080:C'S')),
IFTHEN=(WHEN=NONE,OVERLAY=(19:4099,4061,C'U'))
OUTFIL OMIT=(4080,1,CH,EQ,C'S')
//* |
|
|