//DESBD320 PROC 00010000 //**************************************************************** 00020000 //* BUILD A WORKER NAME FILE FROM DATA IN THE WAGE.NAME FILE 00030000 //* AND FROM THE BENEFITS CLAIM FILE 00040000 //**************************************************************** 00050000 //********************************************************************* 02470000 //********************************************************************* 04221800 //** BACKUP WORKER NAME FILE 04222000 //** 04223000 //STEP1000 EXEC PGM=SORT, 04230000 // COND=(0,LT) 04240000 //SYSOUT DD SYSOUT=* 04250000 //SORTIN DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04271000 // DISP=(OLD,KEEP,KEEP), 04272000 // SPACE=(CYL,(100,10)), 04273000 // DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04274000 //SORTOUT DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.BKP, 04280000 //* DISP=(NEW,CATLG,CATLG), 04291000 // DISP=MOD, 04292000 // UNIT=CART, 04300000 // VOLUME=(,RETAIN,,99), 04310003 // LABEL=(1,SL,,,EXPDT=99365), 04320000 // DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04330000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 04340000