//DTSUXCD1 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 //**** 00003300 //STEP0100 EXEC PGM=CHGBD100, /* REFORMAT DATA 00006100 // COND=(0,LT) 00006200 //SYSOUT DD SYSOUT=* 00006300 //SYSABOUT DD SYSOUT=* 00006400 //SYSUDUMP DD SYSOUT=* 00006500 //* 00006600 //CHGFILE DD DSN=UI.PROD.DOCS.ESP930F1.CHRG.BKUP.G1550V00,DISP=SHR 00006710 //BD100CHG DD DSN=&&BD100CHG, 00006800 // DISP=(,PASS,DELETE), 00006900 // UNIT=SYSDA, 00007000 // SPACE=(CYL,(50,50),RLSE), 00007100 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00007200 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY, 00007300 // DISP=(NEW,CATLG,DELETE), 00007600 // UNIT=SYSDA, 00007700 // SPACE=(8192,(1000,1000),RLSE), 00007800 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007900 //** 00008000 //STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00008100 // COND=(0,LT) 00008200 //SYSOUT DD SYSOUT=* 00008300 //SORTIN DD DSN=&&BD100CHG, 00008400 // DISP=(OLD,DELETE,DELETE) 00008500 //SORTOUT DD DSN=&&BD100SRT, 00008600 // DISP=(,PASS,DELETE), 00008700 // UNIT=SYSDA, 00008800 // SPACE=(CYL,(50,50),RLSE), 00009000 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00009100 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC1),DISP=SHR 00009200 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009300 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009400 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE) 00009500 //* 00009600 //STEP0300 EXEC PGM=CHGBD200, 00009700 // PARM='&BD200.', 00009800 // COND=(0,LT) 00009900 //SYSOUT DD SYSOUT=* 00010000 //SYSABOUT DD SYSOUT=* 00010100 //SYSUDUMP DD SYSOUT=* 00010200 //BD100CHG DD DSN=&&BD100SRT, 00010300 // DISP=(OLD,PASS,DELETE) 00010400 //BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00010500 //BD200TOT DD DSN=&&BD200TOT, 00010600 // DISP=(,PASS,DELETE), 00010700 // UNIT=SYSDA, 00010800 // SPACE=(6400,(500,500),RLSE), 00010900 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00011000 //** 00011100 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00011200 //DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00012000 // 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 //***** BYPASS REMAINING JOB STEPS IF RETURN-CODE = +1 00150100 // 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