//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.&QTRLY, 00570099 // DISP=(NEW,CATLG,DELETE), 00580099 // 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 //*DTSFMRRA DD DSN=&&DTSFMRRA, 01080099 //* DISP=(NEW,PASS,DELETE), 01090099 //* UNIT=SYSDA, 01100099 //* SPACE=(CYL,(80,20),RLSE), 01110099 //* DCB=(RECFM=FB,LRECL=64,BLKSIZE=25600) 01120099 //* 01130099 //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) 01330099 //* 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) 01410099 //* 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) 01640099 //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 //******* 01950099