25 lines
1.9 KiB
Plaintext
25 lines
1.9 KiB
Plaintext
//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
|