DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSRQ126.jcl

@@ -0,0 +1,64 @@
+//DTSRQ126 JOB (UI,4300,3400,T),RUNRQ126,CLASS=S,MSGCLASS=X,
+//         NOTIFY=ECNTSUP,
+//**       TYPRUN=SCAN,
+//         REGION=0M
+//**
+//  SET LVLNODE='PROD'
+//  SET MSTNODE='PROD'
+//**
+//**
+//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//*
+//*******************************************************************
+//*    WEEKLYREPORT DTSBR122 -                                      *
+//*              APPROVED STATUS DETERMINATIONS E-MAIL
+//*                                                                 *
+//*******************************************************************
+//*
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//**
+//*                       NO BACKUP NEEDED BEFORE THIS REPORT
+//**
+//STEP0200 EXEC DTSUX126,
+//             RUNTYPE='WE',
+//             PREBACK='Y'
+//*
+//*
+//STEP0100.EXTPARM DD *
+126
+/*
+//*                        REPORT RECORD SORT
+//*STEP0200 EXEC DTSRSORT
+//*                        REPORT GENERATION
+//*STEP0300 EXEC DTSRQRPT
+//*
+/*JOBPARM LINES=99999
+/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
+//***************************************************************
+//*   U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
+//*           INCLUDE JOB SEPARATORS
+//*   U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//*   U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//*   U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
+//*           OMITS ALL JOB SEPARATORS INFORMATION
+//***************************************************************
+//EMAIL    EXEC PGM=IEBGENER,
+//         REGION=4M
+//SYSPRINT DD SYSOUT=*
+//OUT1     OUTPUT DEST=U1003,
+//* USERDATA=('TO:LARRY.TOLER@DC.GOV',
+//  USERDATA=('TO:GERALD.SMART@DC.GOV',
+//            'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
+//         'CC:RAGINI.JUJJAVARAPU@DC.GOV',
+//         'SUBJECT: WEEKLY STATUS CHANGES          )',
+//         'FILEDESC: WEEKLY LISTING STATUS CHANGES     ',
+//         'FILENAME:DOESTAX.PROD.STATUS.TXT'),
+//**       'FILENAME:WAGE_WAGE.TXT')
+//         MAILFROM=DUTAS@DC.GOV
+//SYSUT1   DD DSN=DOESTAX.PROD.R126.TXT,DISP=SHR
+//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
+//SYSIN    DD DUMMY
+//SYSUDUMP DD SYSOUT=(*,,DUMP)
+//*