102 lines
8.0 KiB
Plaintext
102 lines
8.0 KiB
Plaintext
//**** 00010025
|
|
//* ERROR REPORTING FOR DAILY CHARGE PROCESS 00020064
|
|
//**** 00030025
|
|
//DTSCGRD1 PROC 00040075
|
|
//* DEFNS NEEDED FOR THIS PROC: 00050071
|
|
//* LVLNODE=HTST/PROD (EMPLOYER MASTER FILE - READ ONLY) 00060071
|
|
//* LDEST=LOCAL (OR SOME PARTICULAR QUE DESTINATION) 00100071
|
|
//* LHOLD=NO/YES 00110036
|
|
//**** /* SORT 901/907 RPT RECORDS 00130071
|
|
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', 00140046
|
|
// COND=(0,LT), 00150046
|
|
// REGION=0M 00160046
|
|
//SYSOUT DD SYSOUT=* 00170046
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHG.BD100X.TEMPRPT.DAILY, 00181082
|
|
//* DISP=(OLD,DELETE,DELETE) 00190083
|
|
// DISP=SHR 00191083
|
|
//SORTOUT DD DSN=&&SRTRPT, 00200046
|
|
// DISP=(,PASS,DELETE), 00210046
|
|
// UNIT=SYSDA, 00220046
|
|
// SPACE=(8192,(1000,1000),RLSE), 00230082
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00240046
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR 00250047
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00260046
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00270046
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00280046
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00290046
|
|
//* 00300057
|
|
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00310057
|
|
//DOESLBL1 EXEC PGM=IEBDG, 00320069
|
|
// COND=(0,LT) 00321069
|
|
//SYSPRINT DD SYSOUT=* 00330057
|
|
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00340057
|
|
// UNIT=SYSDA, 00350057
|
|
// SPACE=(TRK,1), 00360057
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00370057
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00380057
|
|
// DISP=SHR 00390057
|
|
//**** /* POPULATE THE LABELS WORK FILE 00400057
|
|
//DOESLBL2 EXEC PGM=IDCAMS, 00410069
|
|
// COND=(0,LT) 00411069
|
|
//SYSPRINT DD SYSOUT=* 00420057
|
|
//FILEIN DD DSN=&&TMP901, 00430057
|
|
// DISP=(OLD,DELETE,DELETE), 00440057
|
|
// UNIT=SYSDA 00450057
|
|
//DOESVRO1 DD DSN=&&LBL901, 00460057
|
|
// DISP=(NEW,PASS,DELETE), 00470057
|
|
// UNIT=SYSDA, 00480057
|
|
// SPACE=(8192,(1000,1000),RLSE), 00490057
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00500057
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00510057
|
|
// DISP=SHR 00520057
|
|
//**** 00530057
|
|
//STEP0200 EXEC PGM=CHGBD800, /* PRINT 901/907 OUTPUT 00540073
|
|
// COND=(0,LT) 00550020
|
|
//SYSOUT DD SYSOUT=* 00560020
|
|
//SYSABOUT DD SYSOUT=* 00570020
|
|
//SYSUDUMP DD SYSOUT=* 00580020
|
|
//** 00590020
|
|
//DTSFVRI1 DD DSN=&&SRTRPT, 00600046
|
|
// DISP=(OLD,DELETE,DELETE) 00610046
|
|
//** 00620020
|
|
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00630057
|
|
//** 00640057
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00650071
|
|
// AMP=('BUFNI=5,BUFND=10') 00660020
|
|
//** 00670020
|
|
//PARMIN DD DUMMY 00680020
|
|
//** 00690020
|
|
//ATLSTIN DD DUMMY 00700020
|
|
//** NO LONGER PRODUCED THIS WAY (05.17.01) 00710057
|
|
//** EXTRACT & PRINT LABELS (5-LINE) 00720057
|
|
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 00730057
|
|
//** DEST=&LDEST., 00740057
|
|
//** HOLD=&LHOLD. 00750057
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00760041
|
|
//RPT907R1 DD SYSOUT=Z, 00770041
|
|
// DEST=&LDEST., 00780041
|
|
// HOLD=&LHOLD. 00790041
|
|
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 00800041
|
|
//RPT907R2 DD SYSOUT=Z, 00810041
|
|
// DEST=&LDEST., 00820041
|
|
// HOLD=&LHOLD. 00830041
|
|
//** CONTROL REPORT SUMMARY 00840045
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00850045
|
|
// HOLD=&LHOLD., 00860045
|
|
// DEST=&LDEST. 00870045
|
|
//** 00880056
|
|
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00890057
|
|
// COND=(0,LT), 00900057
|
|
// REGION=4096K 00910057
|
|
//DOESVRI1 DD DSN=&&LBL901, 00920057
|
|
// DISP=(OLD,DELETE,DELETE) 00930057
|
|
//SYSOUT DD SYSOUT=* 00940057
|
|
//SYSABOUT DD SYSOUT=* 00950057
|
|
//SYSABEND DD SYSOUT=* 00960057
|
|
//CAIMRPTS DD SYSOUT=* 00970057
|
|
//DOESLBL1 DD SYSOUT=(C), 00980057
|
|
// FCB=P104, 00990057
|
|
// DEST=U@PRT155, 01000057
|
|
// HOLD=&LHOLD. 01010057
|
|
//** 01020057
|