//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..PROCS.BATCH.LIB
//*
//*******************************************************************
//*    WEEKLYREPORT DTSBR122 -                                      *
//*              APPROVED STATUS DETERMINATIONS E-MAIL
//*           raincode test zl1                                                      *
//*******************************************************************
//*
//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)
//*