//DTSTPSEM JOB (UI,4300,3400,T),CHGDC.MNE,CLASS=P,MSGCLASS=X,           00010014
//**       TYPRUN=SCAN,                                                 00011014
//         NOTIFY=ECNTSUP,REGION=0M                                     00014018
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00040000
//****                                                                  00520000
/*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:MARK.POWELL@DC.GOV',
//         'FILEDESC: TPS SI SECOND NOTICE                ',
//         'FILENAME:TPSSIREPT.TXT')
//SYSUT1   DD DISP=SHR,
//         DSN=DOESTAX.PROD.CHARGESI.QTR092
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*