Files
DUTAS/JCL/DTSRQ126.jcl
2025-07-21 11:20:11 -04:00

65 lines
2.1 KiB
Plaintext

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