//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