//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