SORT – SET RETURN CODE ’04’ IF OUTPUT FILE IS EMPTY

We can make use of SORT to set a RC of ‘0004’, if the output file of the sort operation is empty. Based on his return code, we can run the next steps.

//STEP01 EXEC PGM=SORT,PARM=’NULLOUT=RC4′

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*

//SORTJNF1 DD DSN=INPUT.FILE.ONE,DISP=SHR

//SORTJNF2 DD DSN=INPUT.FILE.TWO,DISP=SHR

//SORTOUT DD DSN=OUTPUT.FILE,

// DISP=(NEW,CATLG,DELETE),

// SPACE=(CYL,(100,200),RLSE),

// DCB=(RECFM=FB,BLKSIZE=0,LRECL=80)

//SYSIN DD *

SORT FIELDS=COPY

JOINKEYS FILES=F1,FIELDS=(1,10,A)

JOINKEYS FILES=F2,FIELDS=(1,10,A)

REFORMAT FIELDS=(F1:1,71,F2:1,9)

/*

——————————————————————————————————–

In United States, If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary