//DTSUXCD1 PROC 00001004 //**** 00002000 //* ADD DAILY UI BENEFIT CHARGES TO DOESTAX VSAM CHARGE FILE 00003000 //* MODIFIED TO UPDATE CHGM030 - 08/02 00003110 //* INCREASED SPACE FOR &&BD100CHG - GD 02/24/2009 00003210 //**** 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,DISP=SHR 00006832 //BD100CHG DD DSN=&&BD100CHG, 00006900 // DISP=(,PASS,DELETE), 00007000 // UNIT=SYSDA, 00007100 // SPACE=(CYL,(300,150),RLSE), 00007230 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00007300 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY, 00007407 // DISP=(NEW,CATLG,DELETE), 00007607 // UNIT=SYSDA, 00007707 // SPACE=(8192,(3000,1000),RLSE), 00007825 // DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007907 //** 00008007 //STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00008107 // COND=(0,LT) 00008207 //SYSOUT DD SYSOUT=* 00008307 //SORTIN DD DSN=&&BD100CHG, 00008407 // DISP=(OLD,DELETE,DELETE) 00008507 //SORTOUT DD DSN=&&BD100SRT, 00008607 // DISP=(,PASS,DELETE), 00008707 // UNIT=SYSDA, 00008807 // SPACE=(CYL,(300,150),RLSE), 00009030 // DCB=(RECFM=FB,LRECL=104,BLKSIZE=10400) 00009107 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC1),DISP=SHR 00009207 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009329 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009429 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009529 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009629 //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009729 //SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00009829 //* 00009929 //STEP0300 EXEC PGM=CHGBD200, 00010029 // PARM='&BD200.', 00010129 // COND=(0,LT) 00010229 //SYSOUT DD SYSOUT=* 00010329 //SYSABOUT DD SYSOUT=* 00010429 //SYSUDUMP DD SYSOUT=* 00010529 //BD100CHG DD DSN=&&BD100SRT, 00010629 // DISP=(OLD,PASS,DELETE) 00010729 //BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR 00010829 //BD200TOT DD DSN=&&BD200TOT, 00010929 // DISP=(,PASS,DELETE), 00011029 // UNIT=SYSDA, 00011129 // SPACE=(6400,(500,500),RLSE), 00011229 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=6400) 00011329 //** 00011429 //BD200SVR DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.CHARGE,DISP=SHR 00011529 //** 00011629 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00011729 //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., 00018912 // DISP=(,CATLG,DELETE), 00019012 // UNIT=CART, 00019118 // VOLUME=(,RETAIN), 00019218 // LABEL=(1,SL,,,EXPDT=99000), 00019319 // DCB=(SYS3.MODEL,RECFM=FB,LRECL=104,BLKSIZE=10400) 00019412 //SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00019512 //**** 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 00150101 // IF (STEP0500.RC EQ 0) THEN 00151001 //** 00152001 //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), 00380003 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00390003 //* 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), 00470003 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00480003 //SORTOUT DD DSN=&&BD230SRT, 00481000 // DISP=(NEW,PASS,DELETE), 00482000 // UNIT=SYSDA, 00483000 // SPACE=(22000,(500,100),RLSE), 00484003 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00485003 //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), 00499003 // DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00500003 //BD231CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 00510000 // DISP=SHR, 00511000 // AMP=('BUFNI=5,BUFND=30') 00512000 //**** 00514000 //* 00515001 // ENDIF 00516001 //* 00517001