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