//DTSUXGSI PROC 00001000 //**** 00002000 //* ADD DAILY UI BENEFIT CHARGES TO DOESTAX VSAM CHARGE FILE 00003000 //* MODIFIED TO UPDATE CHGM030 - 08/02 00003100 //* INCREASED SPACE FOR &&BD100CHG - GD 02/24/2009 00003200 //* MODIFIED TO TAKE CHARGES FROM UIBS 2/28/24 ZL1 00003300 //**** 00003400 //**** DOESTAX.PROD.BACKUP.CHGM002.G0948V00 LAST DOCS BACKUP ZL1 00003500 //**** 00003602 //************ NO CHARGE DATE CHECKING *********************** ZL1 00003702 //**** 00003802 //STEP0050 EXEC PGM=SORT, SORT REPORT RECORDS 00003902 // COND=(0,LT) 00004002 //SYSOUT DD SYSOUT=* 00004102 //SORTIN DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, 00004202 //*ORTIN DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.G0053V00, 00004302 // DISP=SHR 00004402 //SORTOUT DD DSN=&&UIBSCHG, 00004502 // DISP=(NEW,PASS,DELETE), 00005000 //* DISP=SHR 00006000 // UNIT=SYSDA, 00006100 // SPACE=(CYL,(250,150),RLSE), 00006200 // DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000) 00006300 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSGSI1),DISP=SHR 00006400 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006500 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006600 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00006700 //* 00006900 //STEP0100 EXEC PGM=CHGXX100, /* REFORMAT DATA 00007001 // COND=(0,LT) 00007100 //SYSOUT DD SYSOUT=* 00007200 //SYSABOUT DD SYSOUT=* 00007300 //SYSUDUMP DD SYSOUT=* 00007400 //* 00007500 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00007600 //CHGFILE DD DSN=&&UIBSCHG,DISP=(OLD,PASS,DELETE) 00007700 //BD100CHG DD DSN=&&BD100CHG, 00007800 // DISP=(,PASS,DELETE), 00007900 // UNIT=SYSDA, 00008000 // SPACE=(CYL,(300,150),RLSE), 00008100 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00008200 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY, 00008300 //* DISP=(NEW,CATLG,DELETE), 00008400 // DISP=SHR 00008500 //* UNIT=SYSDA, 00008600 //* SPACE=(8192,(3000,1000),RLSE), 00008700 //* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00008800 //** 00008900 // IF (STEP0100.RC EQ 0) THEN 00009000 //STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00009100 // COND=(0,LT) 00009200 //SYSOUT DD SYSOUT=* 00009300 //SORTIN DD DSN=&&BD100CHG, 00009400 // DISP=(OLD,DELETE,DELETE) 00009500 //SORTOUT DD DSN=&&BD100SRT, 00009600 // DISP=(,PASS,DELETE), 00009700 // UNIT=SYSDA, 00009800 // SPACE=(CYL,(300,150),RLSE), 00009900 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00010000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC1),DISP=SHR 00010100 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010200 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010300 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010400 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010500 //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010600 //SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00010700 //* 00010800 //STEP0300 EXEC PGM=CHGBD200, 00010900 // PARM='&BD200.', 00011000 // COND=(0,LT) 00011100 //SYSOUT DD SYSOUT=* 00011200 //SYSABOUT DD SYSOUT=* 00011300 //SYSUDUMP DD SYSOUT=* 00011400 //BD100CHG DD DSN=&&BD100SRT, 00011500 // DISP=(OLD,PASS,DELETE) 00011600 //BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00011700 //BD200TOT DD DSN=&&BD200TOT, 00011800 // DISP=(,PASS,DELETE), 00011900 // UNIT=SYSDA, 00012000 // SPACE=(6400,(500,500),RLSE), 00012100 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00012200 //** 00012300 //BD200SVR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.CHARGE,DISP=SHR 00012400 //** 00012500 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00012600 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00012700 // AMP=('BUFNI=5,BUFND=10') 00013000 //** 00014000 //STEP0400 EXEC PGM=IDCAMS, 00015000 // COND=(0,LT) 00016000 //SYSPRINT DD SYSOUT=* 00017000 //INDD01 DD DSN=&&BD100SRT, 00018000 // DISP=(OLD,PASS,DELETE) 00018100 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..BKP.CHGBD200.TRX.DAILY&BKPGEN., 00018900 // DISP=(,CATLG,DELETE), 00019000 // UNIT=CART, 00019100 // VOLUME=(,RETAIN), 00019200 // LABEL=(1,SL,,,EXPDT=99000), 00019300 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=104,BLKSIZE=10400) 00019400 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00019500 //**** 00019600 //** SELECT RECORDS FROM CHGBD200 OUTPUT FOR TOTAL CHARGE FILE 00019700 //**** 00019800 //STEP0500 EXEC PGM=CHGBD207, 00020000 // COND=(0,LT) 00030000 //SYSOUT DD SYSOUT=* 00040000 //SYSABOUT DD SYSOUT=* 00050000 //SYSUDUMP DD SYSOUT=* 00060000 //BD200DAY DD DSN=&&BD200TOT, 00070000 // DISP=(OLD,PASS,DELETE) 00080000 //* 00090000 //BD207CHG DD DSN=&&CHGBD207, 00100000 // DISP=(NEW,PASS,DELETE), 00110000 // UNIT=SYSDA, 00120000 // SPACE=(6400,(500,500),RLSE), 00130000 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00140000 //** 00150000 // ENDIF 00150100 //***** BYPASS REMAINING JOB STEPS IF RETURN-CODE = +1 00150200 // IF (STEP0500.RC EQ 0) THEN 00151000 //** 00152000 //STEP0600 EXEC PGM=SORT, SORT CHARGE RECORDS 00160000 // COND=(0,LT) 00170000 //SYSOUT DD SYSOUT=* 00180000 //SORTIN DD DSN=&&CHGBD207, 00190000 // DISP=(OLD,PASS,DELETE), 00200000 // UNIT=SYSDA, 00210000 // SPACE=(8192,(5000,1000),RLSE), 00220000 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00230000 //SORTOUT DD DSN=&&BD207SRT, 00240000 // DISP=(NEW,PASS,DELETE), 00250000 // UNIT=SYSDA, 00260000 // SPACE=(8192,(5000,1000),RLSE), 00270000 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00280000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRC30),DISP=SHR 00290000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00300000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00310000 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00320000 //**** 00330000 //** BUILD TOTAL CHARGE RECORDS 00340000 //**** 00341000 //STEP0700 EXEC PGM=CHGBD230, 00342000 // COND=(0,LT) 00343000 //SYSOUT DD SYSOUT=* 00344000 //SYSABOUT DD SYSOUT=* 00345000 //SYSUDUMP DD SYSOUT=* 00346000 //BD200CHG DD DSN=&&BD207SRT, 00347000 // DISP=(OLD,DELETE,DELETE) 00348000 //* 00349000 //BD230CHG DD DSN=&&BD230CHG, 00350000 // DISP=(NEW,PASS,DELETE), 00360000 // UNIT=SYSDA, 00370000 // SPACE=(22000,(500,100),RLSE), 00380000 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00390000 //* 00400000 //STEP0800 EXEC PGM=SORT, SORT CHARGE RECORDS 00410000 // COND=(0,LT) 00420000 //SYSOUT DD SYSOUT=* 00430000 //SORTIN DD DSN=&&BD230CHG, 00440000 // DISP=(OLD,PASS,DELETE), 00450000 // UNIT=SYSDA, 00460000 // SPACE=(22000,(500,100),RLSE), 00470000 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00480000 //SORTOUT DD DSN=&&BD230SRT, 00481000 // DISP=(NEW,PASS,DELETE), 00482000 // UNIT=SYSDA, 00483000 // SPACE=(22000,(500,100),RLSE), 00484000 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00485000 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRC31),DISP=SHR 00486000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00487000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00488000 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00489000 //**** 00490000 //**** 00491000 //** UPDATE CHGM030 VSAM FILE 00492000 //**** 00493000 //STEP0900 EXEC PGM=CHGBD231, 00493100 // COND=(0,LT) 00493200 //SYSOUT DD SYSOUT=* 00493300 //SYSABOUT DD SYSOUT=* 00493400 //SYSUDUMP DD SYSOUT=* 00493500 //BD230CHG DD DSN=&&BD230SRT, 00496000 // DISP=(OLD,PASS,DELETE), 00497000 // UNIT=SYSDA, 00498000 // SPACE=(22000,(500,100),RLSE), 00499000 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00500000 //BD231CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 00510000 // DISP=SHR, 00511000 // AMP=('BUFNI=5,BUFND=30') 00512000 //**** 00514000 //* 00515000 // ENDIF 00516000 //* 00517000