168 lines
13 KiB
Plaintext
168 lines
13 KiB
Plaintext
//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,PARM='VLTEST=0', 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,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), 00380003
|
|
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00390003
|
|
//* 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), 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
|