32 lines
1.1 KiB
Plaintext
32 lines
1.1 KiB
Plaintext
//**DTSBY202 PROC 00000010
|
|
//**
|
|
//STEP0100 EXEC PGM=DTSBY202, READ ICESA FILE TO SEND EMAIL
|
|
// COND=(0,LT), REPORTS
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//*
|
|
//RPT202F1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR
|
|
//DTSEMAIL DD DSN=DOESTAX.&LVLNODE..Y202.EMAIL,DISP=SHR
|
|
//***************************************************************
|
|
//EMAIL EXEC PGM=IEBGENER,
|
|
// COND=(0,GT,STEP0100), REPORTS
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:PATRICK.HOLMES@DC.GOV',
|
|
// 'TO: MARGARET.HERNANDEZ@DC.GOV',
|
|
// 'CC: GIL.DIMATTIA@DC.GOV',
|
|
//* 'CC: GEORGE.BROWN@DC.GOV',
|
|
// 'SUBJECT: ICESA BATCH REPORT ',
|
|
// 'FILEDESC: ICESA BANK DEPOSIT TICKETS ',
|
|
// 'FILENAME: ICESARPT.PDF')
|
|
//SYSUT1 DD DISP=SHR,
|
|
// DSN=DOESTAX.&LVLNODE..Y202.EMAIL
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|