111 lines
8.3 KiB
Plaintext
111 lines
8.3 KiB
Plaintext
//DTSBX630 JOB (UI,4300,3400,P),'UIXMATCH ',CLASS=A,MSGLEVEL=(1,1), 00010018
|
|
// MSGCLASS=X,REGION=0M,NOTIFY=ECNTZL1,USER=#DOADTS 00020018
|
|
//** 00050300
|
|
//** CROSS CHECK ESSP DAILY RECORD COUNT WITH FILES RECEIVED. 00051005
|
|
//** PROGRAM ABENDS IF COUNTS DONT MATCH 07/12/18 ZL1 00053005
|
|
//** 00054000
|
|
//** RAINCODE TESTED 08/30/25 ZL1 00055000
|
|
// SET PRGNODE='DEVL' 00056000
|
|
// SET LVLNODE='CONV' 00056100
|
|
// SET MSTNODE='PROD' 00056200
|
|
// SET IMPNODE='CONV' 00056300
|
|
// SET UINODE='PROD' 00057000
|
|
//** 00057100
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00058000
|
|
//JOBLIB DD DSN=DOESTAX.PROD.BATCH.USER.LOADLIB,DISP=SHR 00060018
|
|
// DD DSN=DOESTAX.DEVL.BATCH.USER.LOADLIB,DISP=SHR 00060118
|
|
// DD DSN=DOESTAX.DEVL.BATCH.LOADLIB,DISP=SHR 00060218
|
|
//* DD DSN=UI.&UINODE..DOCS.LOADLIB,DISP=SHR 00061026
|
|
// DD DSN=SYS1.SORTLIB,DISP=SHR 00070000
|
|
//* 00080000
|
|
//******************************************************************** 00090017
|
|
//*** COPY ESSP DAILY FILE COUNT TO BACKUP GDG. 00100017
|
|
//** 00110017
|
|
//******************************************************************** 00120017
|
|
//** 00130017
|
|
//COPYX999 EXEC PGM=IDCAMS,COND=(0,LT) 00140017
|
|
//IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 00150017
|
|
//** 00160017
|
|
//OFILE DD DSN=DOESTAX.CONV.FROMESSP.BKPX999(+1), 00170017
|
|
// DISP=(NEW,CATLG,DELETE), 00180017
|
|
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) 00200017
|
|
//SYSPRINT DD SYSOUT=(*) 00210017
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00220017
|
|
//* 00230017
|
|
//***************************************************************** 01230000
|
|
//STEP0300 EXEC PGM=DTSBX630 01240010
|
|
//SYSPRINT DD SYSOUT=* 01250000
|
|
//SYSDBOUT DD SYSOUT=* 01260000
|
|
//SYSCOUNT DD DUMMY 01270000
|
|
//SYSUDUMP DD DUMMY 01280000
|
|
//DTSFX102 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,DISP=SHR 01290201
|
|
//DTSFX104 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,DISP=SHR 01290301
|
|
//DTSFX106 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,DISP=SHR 01290401
|
|
//DTSFA106 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,DISP=SHR 01290501
|
|
//DTSFX108 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,DISP=SHR 01290601
|
|
//DTSFX110 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,DISP=SHR 01290701
|
|
//DTSFA110 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,DISP=SHR 01290801
|
|
//DTSFX120 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,DISP=SHR 01290901
|
|
//DTSFA120 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,DISP=SHR 01291001
|
|
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR 01292001
|
|
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR 01293001
|
|
//DTSFX145 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR 01294001
|
|
//DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR 01295001
|
|
//DTSFX998 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 01296002
|
|
//DTSFX999 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,DISP=SHR 01297001
|
|
//RPT630R1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,DISP=SHR,
|
|
//* DISP=(NEW,CATLG,DELETE), 00180017
|
|
// UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330) 01307001
|
|
//SYSOUT DD SYSOUT=* 01308000
|
|
//* 01360000
|
|
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT), 01361010
|
|
// REGION=4M 01362000
|
|
//SYSPRINT DD SYSOUT=* 01363000
|
|
//OUT1 OUTPUT DEST=U1003, 01364000
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01365000
|
|
// 'CC:ARAVIND.VITTA@SAGITEC.COM', 01367015
|
|
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01368016
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01368124
|
|
// 'CC:JOY.DIGGS@DC.GOV', 01369023
|
|
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01369225
|
|
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01369418
|
|
// 'SUBJECT: ESSP RECORDS SENT TO DUTAS--SUCESSFULL--', 01369516
|
|
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01369604
|
|
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01369721
|
|
// MAILFROM=DUTAS@DC.GOV 01369821
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
|
|
// DISP=SHR,
|
|
//* CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
|
|
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01370004
|
|
//SYSIN DD DUMMY 01370104
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01370204
|
|
//* 01371006
|
|
//STEP0500 EXEC PGM=IEBGENER,COND=(5,NE,STEP0300), 01372010
|
|
// REGION=4M 01373006
|
|
//SYSPRINT DD SYSOUT=* 01374006
|
|
//OUT1 OUTPUT DEST=U1003, 01375006
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', 01376006
|
|
//* 'CC:NANCY.HUDAK@DC.GOV', 01377014
|
|
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV', 01378024
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', 01379024
|
|
//* 'CC:ESAYAS.LEMMA@DC.GOV', 01379114
|
|
//* 'CC:MACARENA.CANTELAS@DC.GOV', 01379214
|
|
// 'CC:MARGARET.HERNANDEZ@DC.GOV', 01379324
|
|
// 'SUBJECT: ESSP RECORDS SENT TO DUTAS----FAILED----', 01379410
|
|
// 'FILENAME:ESSP_DOES_COUNT.TXT', 01379506
|
|
// 'FILEDESC: ESSP DAILY SUMMARY RECORD COUNTS TO DUTAS'), 01379620
|
|
// MAILFROM=DUTAS@DC.GOV 01379720
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.RPT630.TXT,
|
|
// DISP=SHR,
|
|
//* CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=133,BLKSIZE=1330)
|
|
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 01379906
|
|
//SYSIN DD DUMMY 01380006
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP) 01381006
|
|
//**********************************************************************01390004
|