Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015 Posts: 1231 Location: Bamberg, Germany
|
|
|
|
Code: |
//DATASPLT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//F1 DD DISP=OLD,DSN=&SYSUID..VB222
//F2 DD DISP=OLD,DSN=&SYSUID..VB222
//LESS DD DISP=OLD,DSN=&SYSUID..VB222.LESS
//MORE DD DISP=OLD,DSN=&SYSUID..VB222.MORE
//SYSIN DD *
JOINKEYS F1=F1,FIELDS=(223,10,A),TYPE=V
JOINKEYS F2=F2,FIELDS=(223,10,A),TYPE=V
REFORMAT FIELDS=(F2:5,218,F1:233,4)
SORT FIELDS=(COPY)
OUTFIL FNAMES=(LESS),
INCLUDE=(219,4,PD,LE,+30000),
REMOVECC,FTOV,BUILD=(1,218)
OUTFIL FNAMES=(MORE),
SAVE,REMOVECC,FTOV,BUILD=(1,218)
/*
//JNF1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(233:+0,PD,LENGTH=4)),
IFTHEN=(WHEN=GROUP,BEGIN=(5,5,CH,EQ,C'820HD'),
END=(5,4,CH,EQ,C'820T'),PUSH=(223:ID=10)),
IFTHEN=(WHEN=(5,3,CH,NE,C'820'),OVERLAY=(233:+1,PD,LENGTH=4))
SUM FIELDS=(233,4,PD)
END
/*
//JNF2CNTL DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(5,5,CH,EQ,C'820HD'),
END=(5,4,CH,EQ,C'820T'),PUSH=(223:ID=10))
END
/* |
|
|