//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