Author: himanshu malik
Posted: Thu Feb 02, 2017 11:28 am (GMT 5.5)
Please find my Sort step.
//P07DE11 EXEC PGM=SORT,COND=(0,NE)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTJNF1 DD DSN=FILE A
//SORTJNF2 DD DSN=FILE B
//AMBSK DD DSN=FILE C,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(850,85),RLSE),
// LRECL=25,RECFM=FB,
// DSORG=PS
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,5,ZD,A)
JOINKEYS FILE=F2,FIELDS=(1,4,ZD,A)
REFORMAT FIELDS=(F2:1,25)
SORTFIELDS=COPY
OUTFIL FNAMES=AMBSK
//*
Here what include condition can I use to check for 2nd field.
Note : I am just a starter in SORT.
Regards
Posted: Thu Feb 02, 2017 11:28 am (GMT 5.5)
Please find my Sort step.
//P07DE11 EXEC PGM=SORT,COND=(0,NE)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTJNF1 DD DSN=FILE A
//SORTJNF2 DD DSN=FILE B
//AMBSK DD DSN=FILE C,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(850,85),RLSE),
// LRECL=25,RECFM=FB,
// DSORG=PS
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(1,5,ZD,A)
JOINKEYS FILE=F2,FIELDS=(1,4,ZD,A)
REFORMAT FIELDS=(F2:1,25)
SORTFIELDS=COPY
OUTFIL FNAMES=AMBSK
//*
Here what include condition can I use to check for 2nd field.
Note : I am just a starter in SORT.
Regards