272 lines
21 KiB
Plaintext
272 lines
21 KiB
Plaintext
//DTSUXCGR PROC 00010099
|
|
//** TRANSFER BENEFIT CHARGES TO SUCCESSORS 00020099
|
|
//**** 00030084
|
|
//STEP0100 EXEC PGM=DTSBX800, EXTRACT IPES RECORDS 00040099
|
|
// COND=(0,LT), 00050099
|
|
// PARM='0' SELECT EXPERIENCE RATING 00051099
|
|
//* RELATIONSHIPS ONLY 00052099
|
|
//SYSOUT DD SYSOUT=* 00060099
|
|
//SYSABOUT DD SYSOUT=* 00070099
|
|
//SYSABEND DD SYSOUT=* 00080099
|
|
//CAIMRPTS DD SYSOUT=* 00090099
|
|
//* 00100099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00110099
|
|
//DTSFREF DD DSN=DOESTAX.&CHGNODE..VSAM.REF,DISP=SHR, 00130099
|
|
// AMP=('BUFNI=5,BUFND=10') 00140099
|
|
//* 00150099
|
|
//DTSFIESP DD DSN=&&IPES, 00160099
|
|
// DISP=(NEW,PASS,DELETE), 00170099
|
|
// UNIT=SYSDA, 00180099
|
|
// SPACE=(32000,(1000,1000),RLSE), 00190099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00200099
|
|
//*** 00210099
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT IPES RECORDS 00220099
|
|
// COND=(0,LT) 00230099
|
|
//SYSOUT DD SYSOUT=* 00240099
|
|
//SORTIN DD DSN=&&IPES, 00250099
|
|
// DISP=(OLD,PASS,DELETE), 00260099
|
|
// UNIT=SYSDA, 00270099
|
|
// SPACE=(32000,(3000,1000),RLSE), 00280099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00290099
|
|
//SORTOUT DD DSN=&&SRTPES, 00300099
|
|
// DISP=(NEW,PASS,DELETE), 00310099
|
|
// UNIT=SYSDA, 00320099
|
|
// SPACE=(32000,(1000,1000),RLSE), 00330099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00340099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSIPES),DISP=SHR 00350099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00360099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00370099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00380099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00390099
|
|
//**** 00400099
|
|
//********************************************************************* 00410099
|
|
//STEP0300 EXEC PGM=CHGBD205, 00420099
|
|
// COND=(0,LT) 00430023
|
|
//SYSOUT DD SYSOUT=* 00440023
|
|
//SYSABOUT DD SYSOUT=* 00450023
|
|
//SYSUDUMP DD SYSOUT=* 00460023
|
|
//BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00480081
|
|
// AMP=('BUFNI=5,BUFND=30') 00490067
|
|
//* 00490199
|
|
//SYSIN DD DDNAME=EXTPARM 00491099
|
|
//* 00500084
|
|
//BD205CHG DD DSN=&&CHGBD205, 00510032
|
|
// DISP=(NEW,PASS,DELETE), 00520031
|
|
// UNIT=SYSDA, 00530031
|
|
// SPACE=(32000,(1000,1000),RLSE), 00540086
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00550031
|
|
//* 00560084
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 00570099
|
|
//** DISP=SHR 00580099
|
|
// DISP=(NEW,CATLG,DELETE), 00581099
|
|
// UNIT=SYSDA, 00590099
|
|
// SPACE=(80,(2,10),RLSE), 00600099
|
|
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) 00610099
|
|
//** 00620099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00630099
|
|
//* 00650075
|
|
//DTSFREF DD DSN=DOESTAX.&CHGNODE..VSAM.REF,DISP=SHR, 00660099
|
|
// AMP=('BUFNI=5,BUFND=10') 00670037
|
|
//DTSFVRO1 DD DUMMY 00680099
|
|
//**** 00680199
|
|
//**** 00690099
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS: 00700099
|
|
// COND=(0,LT) EMP/9 DIGIT SSN/BYE/ 00710099
|
|
//SYSOUT DD SYSOUT=* PROGRAM 00720099
|
|
//SORTIN DD DSN=&&CHGBD205, 00730099
|
|
// DISP=(OLD,PASS,DELETE), 00740099
|
|
// UNIT=SYSDA, 00750099
|
|
// SPACE=(8192,(3000,1000),RLSE), 00760099
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00770099
|
|
//SORTOUT DD DSN=&&BD205SRT, 00780099
|
|
// DISP=(NEW,PASS,DELETE), 00790099
|
|
// UNIT=SYSDA, 00800099
|
|
// SPACE=(32000,(1000,1000),RLSE), 00810099
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 00820099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRE15),DISP=SHR 00830099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00840099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00850099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00860099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00870099
|
|
//** 00880099
|
|
//**** 00890099
|
|
//STEP0500 EXEC PGM=CHGBD212, 00900099
|
|
// COND=(0,LT) 00910099
|
|
//SYSOUT DD SYSOUT=* 00930099
|
|
//SYSABOUT DD SYSOUT=* 00940099
|
|
//SYSUDUMP DD SYSOUT=* 00950099
|
|
//BD205CHG DD DSN=&&BD205SRT, 00960031
|
|
// DISP=(OLD,PASS,DELETE), 00970023
|
|
// UNIT=SYSDA, 00980023
|
|
// SPACE=(32000,(1000,1000),RLSE), 00990086
|
|
// DCB=(RECFM=FB,LRECL=64,BLKSIZE=32000) 01000023
|
|
//* 01010076
|
|
//DTSFC005 DD DSN=&&CHGM005, 01020099
|
|
// DISP=(NEW,PASS,DELETE), 01030099
|
|
// UNIT=SYSDA, 01040099
|
|
// SPACE=(CYL,(30,15),RLSE), 01050099
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 01060099
|
|
//* 01070099
|
|
//DTSFVRO1 DD DSN=&&BD212RPT, 01140099
|
|
// DISP=(NEW,PASS,DELETE), 01150099
|
|
// UNIT=SYSDA, 01160099
|
|
// SPACE=(8192,(1000,1000),RLSE), 01170099
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 01180099
|
|
//* 01190099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01200099
|
|
//* 01220076
|
|
//DTSFREF DD DSN=DOESTAX.&CHGNODE..VSAM.REF,DISP=SHR, 01230099
|
|
// AMP=('BUFNI=5,BUFND=10') 01240037
|
|
//**** 01250076
|
|
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHG005 RECORDS: 01260099
|
|
// COND=(0,LT) EMP/SSN/BYE 01270099
|
|
//SYSOUT DD SYSOUT=* 01280099
|
|
//SORTIN DD DSN=&&CHGM005, 01290099
|
|
// DISP=(OLD,DELETE,DELETE), 01300099
|
|
// UNIT=SYSDA, 01310099
|
|
// SPACE=(CYL,(30,15),RLSE), 01321099
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 01331099
|
|
//* 01340099
|
|
//SORTOUT DD DSN=&&CHG5SRT, 01350099
|
|
// DISP=(NEW,PASS,DELETE), 01370099
|
|
// UNIT=SYSDA, 01390099
|
|
// SPACE=(CYL,(30,15),RLSE), 01401099
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 01411099
|
|
//* 01420099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRE14),DISP=SHR 01430099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01440099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01450099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01460099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01470099
|
|
//** 01480099
|
|
//**** 01490099
|
|
//STEP0700 EXEC PGM=IDCAMS, DELETE/DEFINE CHG FILE 01500099
|
|
// REGION=0K 01510099
|
|
//SYSPRINT DD SYSOUT=* 01520099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGDD005),DISP=SHR 01531099
|
|
//** 01540099
|
|
//******************************************* 01550099
|
|
//STEP0710 EXEC PGM=IDCAMS LOAD CHGM005 01560099
|
|
//SYSPRINT DD SYSOUT=* 01570099
|
|
//INDD01 DD DSN=&&CHG5SRT, 01580099
|
|
// DISP=(OLD,DELETE,DELETE), 01600099
|
|
// UNIT=SYSDA, 01620099
|
|
// SPACE=(CYL,(30,15),RLSE), 01631099
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 01641099
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005,DISP=SHR, 01650099
|
|
// AMP=('BUFNI=5,BUFND=30') 01660099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 01670099
|
|
//* 01680099
|
|
//**** 01690077
|
|
//STEP0800 EXEC PGM=CHGBD214, 01700099
|
|
// COND=(0,LT) 01710099
|
|
//SYSOUT DD SYSOUT=* 01730099
|
|
//SYSABOUT DD SYSOUT=* 01740099
|
|
//SYSUDUMP DD SYSOUT=* 01750099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 01760099
|
|
//* 01780099
|
|
//DTSFCHG5 DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005, 01790099
|
|
// DISP=OLD, 01800099
|
|
// AMP=('BUFNI=5,BUFND=30') 01810099
|
|
//* 01820099
|
|
//DTSFIPES DD DSN=&&SRTPES, 01830099
|
|
// DISP=(OLD,PASS,DELETE), 01830199
|
|
// UNIT=SYSDA, 01850099
|
|
// SPACE=(32000,(1000,1000),RLSE), 01860099
|
|
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 01870099
|
|
//* 01880099
|
|
//******* 01950099
|
|
//* 02086099
|
|
//STEP1100 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHG005 RECORDS: 02099299
|
|
// COND=(0,LT) EMP/SSN/BYE 02099399
|
|
//SYSOUT DD SYSOUT=* 02099499
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005, 02099599
|
|
// DISP=OLD, 02099699
|
|
// AMP=('BUFNI=5,BUFND=30') 02099799
|
|
//* 02101199
|
|
//SORTOUT DD DSN=&&CHG5SRT2, 02101299
|
|
// DISP=(NEW,PASS,DELETE), 02101399
|
|
// UNIT=SYSDA, 02101499
|
|
// SPACE=(CYL,(30,15),RLSE), 02101699
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 02101899
|
|
//* 02101999
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSRE14),DISP=SHR 02102099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102199
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102299
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102399
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102499
|
|
//** 02102599
|
|
//STEP1200 EXEC PGM=CHGBD216, BUILD CHGIM004 RECORDS 02102699
|
|
// COND=(0,LT) 02102799
|
|
//SYSOUT DD SYSOUT=* 02102899
|
|
//SYSABOUT DD SYSOUT=* 02102999
|
|
//SYSUDUMP DD SYSOUT=* 02103099
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02103199
|
|
//DTSFCHG5 DD DSN=&&CHG5SRT2, 02103299
|
|
// DISP=(OLD,DELETE,DELETE), 02103399
|
|
// UNIT=SYSDA, 02103499
|
|
// SPACE=(CYL,(30,15),RLSE), 02103599
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=24600) 02104199
|
|
//* 02105099
|
|
//BD216CHG DD DSN=&&CHGBD216, 02109499
|
|
// DISP=(NEW,PASS,DELETE), 02109699
|
|
// UNIT=SYSDA, 02109799
|
|
// SPACE=(31040,(1000,1000),RLSE), 02109899
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02109999
|
|
//* 02110399
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 02110499
|
|
// DISP=SHR 02110599
|
|
//* 02110699
|
|
//*SP960F1 DD DSN=UI.PROD.DOCS.ESP960F1,DISP=SHR 02110799
|
|
//*OP960F1 DD DSN=UI.PROD.DOCS.EOP960F1,DISP=SHR 02110899
|
|
//*B6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 02110999
|
|
//* 02111099
|
|
//STEP1300 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 02111199
|
|
// COND=(0,LT) 02111299
|
|
//SYSOUT DD SYSOUT=* 02111399
|
|
//SORTIN DD DSN=&&CHGBD216, 02111499
|
|
// DISP=(OLD,PASS,DELETE), 02111599
|
|
// UNIT=SYSDA, 02111699
|
|
// SPACE=(8192,(10000,3000),RLSE), 02111799
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02112099
|
|
//SORTOUT DD DSN=&&BD216SRT, 02113099
|
|
// DISP=(NEW,PASS,DELETE), 02114099
|
|
// UNIT=SYSDA, 02115099
|
|
// SPACE=(31040,(1000,1000),RLSE), 02116099
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02117099
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(CHGSREC2),DISP=SHR 02118099
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 02119099
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 02119199
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 02119299
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(200,100),RLSE) 02119399
|
|
//* 02119499
|
|
//STEP1400 EXEC PGM=CHGBD221, 02119599
|
|
// COND=(0,LT) 02119699
|
|
//SYSOUT DD SYSOUT=* 02119799
|
|
//SYSABOUT DD SYSOUT=* 02119899
|
|
//SYSUDUMP DD SYSOUT=* 02119999
|
|
//BD210CHG DD DSN=&&BD216SRT, 02120099
|
|
// DISP=(OLD,DELETE,DELETE), 02121099
|
|
// UNIT=SYSDA, 02122099
|
|
// SPACE=(31040,(1000,1000),RLSE), 02123099
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02124099
|
|
//** THIS FILE FEEDS THE CHGBD300 REPORTING 02125099
|
|
//BD220CHG DD DSN=DOESTAX.&LVLNODE..CHG.BD220.RPT.RATED.&QTRLY, 02126099
|
|
//** DISP=SHR 02127099
|
|
// DISP=(NEW,CATLG,DELETE), 02128099
|
|
// UNIT=SYSDA, 02129099
|
|
// SPACE=(31040,(1000,1000),RLSE), 02129199
|
|
// DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02129299
|
|
//BD230CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMSSN, 02129399
|
|
// DISP=SHR, 02129499
|
|
// AMP=('BUFNI=5,BUFND=30') 02129599
|
|
//CHGPARM DD DSN=DOESTAX.&LVLNODE..CHG.PARM.RATED.&QTRLY, 02129699
|
|
// DISP=SHR 02129799
|
|
//** THIS FILE FEEDS THE CHGBD800 REPORTING 02129899
|
|
//DTSFVRO1 DD DSN=&&BD205RPT, 02129999
|
|
// DISP=(NEW,PASS,DELETE), 02130099
|
|
// UNIT=SYSDA, 02131099
|
|
// SPACE=(8192,(1000,1000),RLSE), 02132099
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 02133099
|
|
//**** 02140099
|