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