//DTSUXCGR PROC 00010099 //** TRANSFER BENEFIT CHARGES TO SUCCESSORS 00020099 //**** 00030084 //STEP0100 EXEC PGM=DTSBX800, EXTRACT IPES RECORDS 00040099 // COND=(0,LT) 00050099 //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.PROD.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, 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 //*ORTOUT DD DSN=DOESTAX.&LVLNODE..IPES, 00301099 //* DISP=(NEW,CATLG,DELETE), 00310099 //* DISP=(OLD,KEEP,KEEP), 00310199 // DISP=(NEW,PASS,DELETE), 00311099 // UNIT=SYSDA, 00320099 // SPACE=(32000,(1000,1000),RLSE), 00330099 // DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00340099 //SYSIN DD DSN=DOESTAX.PROD.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 //SYSIN DD DUMMY 00470073 //BD200CHG DD DSN=DOESTAX.&CHGNODE..VSAM.&CHGMNBR.,DISP=SHR, 00480081 // AMP=('BUFNI=5,BUFND=30') 00490067 //* 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.&LVLNODE..VSAM.REF,DISP=SHR, 00660075 // AMP=('BUFNI=5,BUFND=10') 00670037 //DTSFVRO1 DD DUMMY 00680099 //**** 00690099 //STEP0400 EXEC PGM=SORT, 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.PROD.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 // PARM='&BD506.' 00920099 //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=(32000,(1000,1000),RLSE), 01050099 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 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.&LVLNODE..VSAM.REF,DISP=SHR, 01230076 // AMP=('BUFNI=5,BUFND=10') 01240037 //**** 01250076 //STEP0600 EXEC PGM=SORT, 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=(32000,(1000,1000),RLSE), 01320099 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 01330099 //* 01340099 //SORTOUT DD DSN=&&CHG5SRT, 01350099 // DISP=(NEW,PASS,DELETE), 01370099 //** DISP=(OLD,KEEP,KEEP), 01380099 // UNIT=SYSDA, 01390099 // SPACE=(32000,(1000,1000),RLSE), 01400099 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 01410099 //* 01420099 //SYSIN DD DSN=DOESTAX.PROD.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.PROD.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 //* DISP=(OLD,KEEP,KEEP), 01610099 // UNIT=SYSDA, 01620099 // SPACE=(32000,(1000,1000),RLSE), 01630099 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 01640099 //OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005,DISP=SHR, 01650099 // AMP=('BUFNI=5,BUFND=30') 01660099 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR 01670099 //* 01680099 //**** 01690077 //STEP0800 EXEC PGM=CHGBD214, 01700099 // COND=(0,LT), 01710099 // PARM='&BD506.' 01720099 //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,KEEP,KEEP), 01800099 // AMP=('BUFNI=5,BUFND=30') 01810099 //* 01820099 //*DTSFIPES DD DSN=&&SRTPES, 01830099 //** DISP=(OLD,PASS,DELETE), 01830199 //DTSFIPES DD DSN=DOESTAX.&LVLNODE..IPES, 01831099 // DISP=(OLD,KEEP,KEEP), 01841099 // UNIT=SYSDA, 01850099 // SPACE=(32000,(1000,1000),RLSE), 01860099 // DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 01870099 //* 01880099 //DTSFMRRA DD DSN=&&DTSFMRRA, 01890099 // DISP=(MOD,PASS,DELETE), 01900099 // UNIT=SYSDA, 01910099 // SPACE=(CYL,(80,20),RLSE), 01920099 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=25600) 01930099 //* 01940099 //******* 01950099 //STEP0910 EXEC PGM=SORT, SORT DTSFMRRA RECS: 01951599 // COND=(0,LT) EMP/REC TP/RTE YR/REL DT 01951699 //SYSOUT DD SYSOUT=* 01951799 //SORTIN DD DSN=&&DTSFMRRA, 01951899 // DISP=(OLD,DELETE,DELETE), 01951999 // UNIT=SYSDA, 01952099 // SPACE=(CYL,(80,20),RLSE), 01952199 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=25600) 01952299 //* 01952699 //SORTOUT DD DSN=&&MRRASRT, 01952799 // DISP=(NEW,PASS,DELETE), 01952899 // UNIT=SYSDA, 01952999 // SPACE=(CYL,(80,20),RLSE), 01953099 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=25600) 01953199 //* 01953299 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRRA),DISP=SHR 01953399 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01953499 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01953599 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01953699 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 01953799 //STEP0900 EXEC PGM=CHGBD216, READ FLAT FILE 01962099 // COND=(0,LT), 01970099 // PARM='&BD506.' 01980099 //SYSOUT DD SYSOUT=* 01990099 //SYSABOUT DD SYSOUT=* 02000099 //SYSUDUMP DD SYSOUT=* 02010099 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02020099 //DTSFCG5I DD DSN=DOESTAX.&LVLNODE..VSAM.CHGM005,DISP=SHR, 02021099 // AMP=('BUFNI=5,BUFND=30') 02022099 //DTSFMRRA DD DSN=&&MRRASRT, 02030099 // DISP=(OLD,PASS,DELETE), 02040099 // UNIT=SYSDA, 02050099 // SPACE=(CYL,(20,10),RLSE), 02060099 // DCB=(RECFM=FB,LRECL=64,BLKSIZE=25600) 02070099 //* 02080099 //DTSFCG5O DD DSN=DOESTAX.&LVLNODE..CHG216, 02081099 //** DISP=(NEW,CATLG,CATLG), 02082099 // DISP=(OLD,KEEP,KEEP), 02082199 // UNIT=SYSDA, 02083099 // SPACE=(CYL,(20,10),RLSE), 02084099 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 02085099 //* 02086099 //STEP1100 EXEC PGM=SORT, SORT CHG005 RECORDS: 02099299 // COND=(0,LT) EMP/SSN/BYE 02099399 //SYSOUT DD SYSOUT=* 02099499 //SORTIN DD DSN=DOESTAX.&LVLNODE..CHG216, 02099799 // DISP=(OLD,KEEP,KEEP), 02099999 // UNIT=SYSDA, 02100099 // SPACE=(CYL,(20,10),RLSE), 02100199 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 02100299 //* DD DSN=&&CHG5SRT1, 02100499 //* DISP=(OLD,DELETE,DELETE), 02100699 //* UNIT=SYSDA, 02100799 //* SPACE=(CYL,(20,10),RLSE), 02100999 //* DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 02101099 //* 02101199 //SORTOUT DD DSN=&&CHG5SRT2, 02101299 // DISP=(NEW,PASS,DELETE), 02101399 // UNIT=SYSDA, 02101499 // SPACE=(CYL,(20,10),RLSE), 02101699 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 02101799 //* 02101899 //SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(CHGSRE14),DISP=SHR 02101999 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102099 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102199 //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102299 //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 02102399 //** 02102499 //STEP1100 EXEC PGM=CHGBD217, READ FLAT FILE 02102599 // COND=(0,LT) 02102699 //SYSOUT DD SYSOUT=* 02102799 //SYSABOUT DD SYSOUT=* 02102899 //SYSUDUMP DD SYSOUT=* 02102999 //DTSFMSTR INCLUDE MEMBER=DTSIMSTR 02103099 //DTSFCHG5 DD DSN=&&CHG5SRT2, 02103199 // DISP=(OLD,DELETE,DELETE), 02103299 // UNIT=SYSDA, 02103399 // SPACE=(32000,(1000,1000),RLSE), 02103499 // DCB=(RECFM=FB,LRECL=32,BLKSIZE=32000) 02104099 //* 02105099 //BD217CHG DD DSN=&&CHGBD217, 02109499 // DISP=(NEW,PASS,DELETE), 02109699 // UNIT=SYSDA, 02109799 // SPACE=(31040,(1000,1000),RLSE), 02109899 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02109999 //* 02110399 //ESP960F1 DD DSN=UI.PROD.DOCS.ESP960F1,DISP=SHR 02110499 //EOP960F1 DD DSN=UI.PROD.DOCS.EOP960F1,DISP=SHR 02110599 //IB6960F1 DD DSN=UI.PROD.DOCS.IB6960F1,DISP=SHR 02110799 //* 02110899 //STEP1200 EXEC PGM=SORT, SORT CHARGE RECORDS 02110999 // COND=(0,LT) 02111099 //SYSOUT DD SYSOUT=* 02111199 //SORTIN DD DSN=&&CHGBD217, 02111299 //* DISP=(OLD,PASS,DELETE), 02111499 // DISP=(OLD,KEEP,KEEP), 02111599 // UNIT=SYSDA, 02111699 // SPACE=(8192,(10000,3000),RLSE), 02111799 // DCB=(RECFM=FB,LRECL=388,BLKSIZE=31040) 02112099 //SORTOUT DD DSN=&&BD217SRT, 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.PROD.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 //STEP1210 EXEC PGM=CHGBD220, 02119599 // COND=(0,LT) 02119699 //SYSOUT DD SYSOUT=* 02119799 //SYSABOUT DD SYSOUT=* 02119899 //SYSUDUMP DD SYSOUT=* 02119999 //BD210CHG DD DSN=&&BD217SRT, 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.&QTRLY, 02126099 //* DISP=(NEW,CATLG,DELETE), 02127099 // DISP=SHR, 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.&QTRLY, 02129699 // DISP=SHR 02129799 //** THIS FILE FEEDS THE CHGBD800 REPORTING 02129899 //DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..CHG.BD205.RPT.&QTRLY, 02129999 // DISP=(MOD,KEEP,KEEP), 02130099 // UNIT=SYSDA, 02131099 // SPACE=(8192,(1000,1000),RLSE), 02132099 // DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 02133099 //**** 02140099