194 lines
15 KiB
Plaintext
194 lines
15 KiB
Plaintext
//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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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
|