183 lines
14 KiB
Plaintext
183 lines
14 KiB
Plaintext
//DESBD320 PROC 00010099
|
|
//**************************************************************** 00020000
|
|
//* BUILD A WORKER NAME FILE FROM DATA IN THE WAGE.NAME FILE 00030099
|
|
//* AND FROM THE BENEFITS CLAIM FILE 00040099
|
|
//**************************************************************** 00050000
|
|
//********************************************************************* 02470099
|
|
//STEP0100 EXEC PGM=DESBD320, EXTRACT NAMES FROM WAGE FILE 02480099
|
|
// COND=(0,LT) 02490099
|
|
//SYSOUT DD SYSOUT=* 02500099
|
|
//SYSABOUT DD SYSOUT=* 02510099
|
|
//SYSABEND DD SYSOUT=* 02520099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02530099
|
|
//* 02540099
|
|
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR, 02550099
|
|
// AMP=('BUFNI=5,BUFND=10') 02560099
|
|
//* 02570099
|
|
//DESFB320 DD DSN=&&DESFB320, / WAGE NAMES 02580099
|
|
// DISP=(NEW,PASS,DELETE), 02590099
|
|
// UNIT=SYSDA, 02600099
|
|
// SPACE=(CYL,(100,10)), 02610099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02620099
|
|
//* 02630099
|
|
//********************************************************************* 02640099
|
|
//STEP0200 EXEC PGM=DESBD321, EXTRACT NAMES FROM BENEFIT CLAIMS 02650099
|
|
// COND=(0,LT) 02660099
|
|
//SYSOUT DD SYSOUT=(*) 02670099
|
|
//SYSABOUT DD SYSOUT=* 02680099
|
|
//SYSABEND DD SYSOUT=* 02690099
|
|
//DESFB321 DD DSN=&&DESFB321, / BENEFITS NAMES 02700099
|
|
// DISP=(NEW,PASS,DELETE), 02710099
|
|
// UNIT=SYSDA, 02720099
|
|
// SPACE=(CYL,(100,10)), 02730099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02740099
|
|
//**** 02750099
|
|
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR 02760099
|
|
//* 02770099
|
|
//********************************************************************* 02770199
|
|
//STEP0210 EXEC PGM=DESBD324, EXTRACT NAMES FROM IB6 FILE 02771099
|
|
// COND=(0,LT) 02772099
|
|
//SYSOUT DD SYSOUT=(*) 02773099
|
|
//SYSABOUT DD SYSOUT=* 02774099
|
|
//SYSABEND DD SYSOUT=* 02775099
|
|
//DESFB324 DD DSN=&&DESFB324, / BENEFITS NAMES 02776099
|
|
// DISP=(NEW,PASS,DELETE), 02777099
|
|
// UNIT=SYSDA, 02778099
|
|
// SPACE=(CYL,(100,10)), 02779099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02779199
|
|
//**** 02779299
|
|
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR 02779399
|
|
//* 02779499
|
|
//IB6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 02779599
|
|
//* 02779699
|
|
//********************************************************************* 02780099
|
|
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT WAGE NAMES 02790099
|
|
// COND=(0,LT) /* SSN ASC, DATE DESC 02800002
|
|
//SYSOUT DD SYSOUT=* 02810002
|
|
//SORTIN DD DSN=&&DESFB320,DISP=(OLD,DELETE,DELETE) 02820099
|
|
// DD DSN=&&DESFB321,DISP=(OLD,DELETE,DELETE) 02830099
|
|
// DD DSN=&&DESFB324,DISP=(OLD,DELETE,DELETE) 02831099
|
|
//SORTOUT DD DSN=&&SRTFB320, 02840017
|
|
// DISP=(,PASS,DELETE), 02850002
|
|
// UNIT=SYSDA, 02860002
|
|
// SPACE=(CYL,(100,10)), 02870099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 02880099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX147),DISP=SHR 02890099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02900002
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02910002
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02920002
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 02930002
|
|
//* 02940002
|
|
//********************************************************************* 03110099
|
|
//STEP0500 EXEC PGM=DESBD322, /* MERGE BENEFITS AND WAGE NAMES 03120099
|
|
// COND=(0,LT) 03130099
|
|
//SYSOUT DD SYSOUT=(*) 03140099
|
|
//SYSABOUT DD SYSOUT=* 03150099
|
|
//SYSABEND DD SYSOUT=* 03160099
|
|
//* 03170099
|
|
//DESFB320 DD DSN=&&SRTFB320, / WAGE NAMES 03180099
|
|
// DISP=(OLD,DELETE,DELETE), 03190099
|
|
// UNIT=SYSDA, 03200099
|
|
// SPACE=(CYL,(100,10)), 03210099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03220099
|
|
//**** 03230099
|
|
//DESFB322 DD DSN=&&DESFB322, / MERGED NAMES 03300099
|
|
// DISP=(NEW,PASS,DELETE), 03310099
|
|
// UNIT=SYSDA, 03320099
|
|
// SPACE=(CYL,(100,10)), 03330099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03340099
|
|
//**** 03350099
|
|
//STEP0700 EXEC PGM=SORT,PARM='VLTEST=0', /* SORT NEW NAME FILE 03650099
|
|
// COND=(0,LT) /* SSN ASC, DATE DESC 03660002
|
|
//SYSOUT DD SYSOUT=* 03670002
|
|
//SORTIN DD DSN=&&DESFB322, 03680017
|
|
// DISP=(OLD,PASS,DELETE) 03690099
|
|
//SORTOUT DD DSN=&&SRTNEW22, 03700017
|
|
// DISP=(,PASS,DELETE), 03710002
|
|
// UNIT=SYSDA, 03720002
|
|
// SPACE=(CYL,(100,10)), 03730099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03740099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSX147),DISP=SHR 03750099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03760002
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03770002
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03780002
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(75,50),RLSE) 03790002
|
|
//* 03800002
|
|
//********************************************************************* 03810099
|
|
//* >>> TO REBUILD FILE, SET THE RUNTYPE PARM TO 'C' <<< 03811099
|
|
//** 03813099
|
|
//STEP0800 EXEC PGM=DESBD323, /* SELECT NEW RECORDS ONLY 03820099
|
|
// COND=(0,LT), 03830099
|
|
// PARM='&RUNTYPE.' 03831099
|
|
//SYSOUT DD SYSOUT=(*) 03840099
|
|
//SYSABOUT DD SYSOUT=* 03850099
|
|
//SYSABEND DD SYSOUT=* 03860099
|
|
//* 03870099
|
|
//* TODAY'S NAME FILE 03880099
|
|
//DESFB32A DD DSN=&&SRTNEW22, 03890099
|
|
// DISP=(OLD,DELETE,DELETE), 03900099
|
|
// UNIT=SYSDA, 03910099
|
|
// SPACE=(CYL,(100,10)), 03920099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 03930099
|
|
//**** 03940099
|
|
//* NEW RECORDS SELECTED FOR DOWNLOAD 03950099
|
|
//DESFB323 DD DSN=&&DESFB323, 03960099
|
|
// DISP=(NEW,PASS,DELETE), 03970099
|
|
// UNIT=SYSDA, 03980099
|
|
// SPACE=(CYL,(100,10)), 03990099
|
|
// DCB=(RECFM=FB,LRECL=76,BLKSIZE=30400) 04001099
|
|
//**** 04010099
|
|
//* PREVIOUS DAY'S NAME FILE 04020099
|
|
//* 04020399
|
|
//DESFB32B DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04021099
|
|
// DISP=(OLD,KEEP,KEEP), 04022099
|
|
// SPACE=(CYL,(100,10)), 04023099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04024099
|
|
//**** 04080099
|
|
//********************************************************************* 04090099
|
|
//** REBUILD OUTPUT FILE FOR EXPORT TO SERVER 04100099
|
|
//** 04110099
|
|
//STEP0900 EXEC PGM=IDCAMS 04120099
|
|
//SYSPRINT DD SYSOUT=* 04130099
|
|
//INDD01 DD DSN=&&DESFB323, 04140099
|
|
// DISP=(OLD,DELETE,DELETE) 04150099
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.EXP, 04160099
|
|
// DISP=(OLD,KEEP,KEEP), 04173099
|
|
// SPACE=(CYL,(100,10)), 04180099
|
|
// DCB=(RECFM=FB,LRECL=76,BLKSIZE=30400) 04190099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 04200099
|
|
// DISP=SHR 04210053
|
|
//**** 04220099
|
|
//********************************************************************* 04220199
|
|
//** SAVE PREVIOUS NAME FILE 04220299
|
|
//** 04220399
|
|
//STEP0900 EXEC PGM=IDCAMS 04220499
|
|
//SYSPRINT DD SYSOUT=* 04220599
|
|
//INDD01 DD DSN=&&DESFB322, 04220699
|
|
// DISP=(OLD,DELETE,DELETE) 04220799
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04220899
|
|
// DISP=(OLD,KEEP,KEEP), 04221199
|
|
// SPACE=(CYL,(100,10)), 04221299
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04221399
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 04221599
|
|
// DISP=SHR 04221699
|
|
// 04221799
|
|
//********************************************************************* 04221899
|
|
//** BACKUP WORKER NAME FILE 04222099
|
|
//** 04223099
|
|
//STEP1000 EXEC PGM=SORT, 04230099
|
|
// COND=(0,LT) 04240099
|
|
//SYSOUT DD SYSOUT=* 04250099
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..WAGE.NAME, 04271099
|
|
// DISP=(OLD,KEEP,KEEP), 04272099
|
|
// SPACE=(CYL,(100,10)), 04273099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04274099
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..WAGE.NAME.BKP, 04280099
|
|
//* DISP=(NEW,CATLG,CATLG), 04291099
|
|
// DISP=MOD, 04292099
|
|
// UNIT=CART, 04300099
|
|
// VOLUME=(,RETAIN,,99), 04310099
|
|
// LABEL=(1,SL,,,RETPD=1826), 04320099
|
|
// DCB=(RECFM=FB,LRECL=46,BLKSIZE=31280) 04330099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 04340099
|