183 lines
14 KiB
Plaintext
183 lines
14 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.&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
|