//DTSFRAUD JOB (UI,4300,3400,T),RUNBZ480,CLASS=A,MSGCLASS=X, 00000010 // USER=#DOADTS, // NOTIFY=ECNTZL1 //* //* // SET MSTNODE='PROD' // SET LVLNODE='DEVL' //* //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 //STEP0100 EXEC PGM=DESBD473, VERIFY EMP REGISTRTION DATE // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFX140 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR //* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD140.RELEASE,DISP=SHR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR, //* DISP=(NEW,CATLG,DELETE), //* SPACE=(8192,(100,200),RLSE), // CODEPAGE=1252,AUTOENCODE=YES, // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR, //* DISP=(,CATLG,DELETE), //* SPACE=(8192,(100,200),RLSE), // CODEPAGE=1252,AUTOENCODE=YES, // DCB=(RECFM=LSEQ,LRECL=160,BLKSIZE=1600) //* //STEP0200 EXEC PGM=DESBD474, // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR //DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR //* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR //DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1), // DISP=(,CATLG,DELETE), // SPACE=(CYL,(100,50),RLSE), // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR, //* DISP=(,CATLG,DELETE), //* SPACE=(8192,(100,200),RLSE), // CODEPAGE=1252,AUTOENCODE=YES, // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //* //********************************* //STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147 // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR //DTSFX147 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR //* DD DSN=DOESTAX.CONV.FROMESSP.FRAUD147.RELEASE,DISP=SHR //DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR, //* DISP=(,CATLG,DELETE), //* SPACE=(8192,(100,200),RLSE), // CODEPAGE=1252,AUTOENCODE=YES, // DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //********************************************************************* //* // CODEPAGE=1252,AUTOENCODE=YES, //* //** //STEP0200 EXEC PGM=FTP,PARM='(EXIT' //INPUT DD * 10.57.110.147 21 dutasrc Today728rc! cd //Dutasrc/intranet/Outbound_intranet ascii put 'DOESTAX.CONV.FROMESSP.PASSED.X147' + DOESTAX.CONV.FROMESSP.PASSED.X147 put 'DOESTAX.CONV.FROMESSP.PASSED.X144' + DOESTAX.CONV.FROMESSP.PASSED.X144 put 'DOESTAX.CONV.FROMESSP.PASSED.X140' + DOESTAX.CONV.FROMESSP.PASSED.X140 QUIT //SYSPRINT DD SYSOUT=* //OUTOUT DD SYSOUT=* //SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 //SYSGET DD *,DCB=BLKSIZE=80 //* //*********************************** //EMAIL EXEC PGM=IEBGENER, // COND=(0,LT), // REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, // USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV', // 'TO:YINKA.OLAREWAJU-ALO@DC.GOV', // 'CC:MARGARET.HERNANDEZ@DC.GOV', // 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'CC:DIANA.COHEN@DC.GOV', // 'CC:TUWANNA.EDWARDS@DC.GOV', // 'CC:RAJINI.JUJJAVARAPU@DC.GOV', // 'CC:ZARATH.LALPUTAN@DC.GOV', // 'SUBJECT: DAILY ESSP POTENTIAL FRAUD EMPLOYERS ', // 'FILEDESC:FRAUD ACCOUNTS', // 'FILENAME:DAILY_POTENTIAL_FRAUD.CSV'), // MAILFROM=DUTAS@DC.GOV //SYSUT1 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR //SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1 //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=(*,,DUMP) //* //* //STEP0100 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X140(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,5),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //STEP0200 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X144(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(100,50),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //STEP0300 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X145(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,5),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //STEP0400 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.ESSP.BACKUP.X147(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,5),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //STEP0500 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X140(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(20,5),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //STEP0600 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR //OUTDD01 DD DSN=DOESTAX.CONV.PASSED.BACKUP.X144(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(100,50),RLSE), // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* //