//DTSBX500 JOB (UI,4300,3400,T),SUTA.RUN,CLASS=A,MSGCLASS=X,            00000010
//*          TYPRUN=SCAN,
//          USER=#DOADTS,
//          NOTIFY=ECNTSUP
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*****   EXTRACT EMPLOYER AND WAGE QUARTERLY DATA FOR SUTA PACKAGE
//*                                                                     00001700
//*       MUST CHANGE QTR BEFORE RUNNING JOB           03/09/17 ZL1     00001700
//*                                                                     00001700
//**SET AQTR='YRQ20182'              /* PARM QUARTER
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBX500,    EXTRACT EMPLOYER AND WAGE DATA FOR
//             COND=(0,LT),      SDDS.
//             PARM='20251', /*..........CHANGE PARM QUARTER
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//DTSFNAME DD  DSN=DOESTAX.DEVL.VSAM.WAGE.NAME,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.PROD.VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//*TSWAGE  DD  DSN=DOESTAX.PROD.SDDS.WAGE.&AQTR.,                       00005000
//DTSWAGE  DD  DSN=DOESTAX.PROD.SDDS.WAGE,                              00005000
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(CYL,(100,25),RLSE),                               00008000
//             DCB=(RECFM=FB,LRECL=86,BLKSIZE=25800)                    00009000
//*
//*TSTAX   DD  DSN=DOESTAX.PROD.SDDS.TAX.&AQTR.,                        00005000
//DTSTAX   DD  DSN=DOESTAX.PROD.SDDS.TAX,                               00005000
//             DISP=(OLD,KEEP,KEEP)                                     00006000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//*            UNIT=SYSDA,                                              00007000
//*            SPACE=(7200,(5000,5000),RLSE),                           00008000
//*            DCB=(RECFM=FB,LRECL=72,BLKSIZE=7200)                     00009000
//*
//*TSCONT  DD  DSN=DOESTAX.PROD.SDDS.CONTACT.&AQTR.,                    00005000
//DTSCONT  DD  DSN=DOESTAX.PROD.SDDS.CONTACT,                           00005000
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(7070,(5000,2000),RLSE),                           00008000
//             DCB=(RECFM=FB,LRECL=101,BLKSIZE=7070)                    00009000
//*
//*TSEMPL  DD  DSN=DOESTAX.PROD.SDDS.SUTAEMP.&AQTR.,                    00005000
//DTSEMPL  DD  DSN=DOESTAX.PROD.SDDS.SUTAEMP,                           00005000
//             DISP=(OLD,KEEP,KEEP),                                    00006000
//*            DISP=(NEW,CATLG,DELETE),                                 00006000
//             UNIT=SYSDA,                                              00007000
//             SPACE=(6800,(5000,5000),RLSE),                           00008000
//             DCB=(RECFM=FB,LRECL=340,BLKSIZE=6800)                    00009000
//*
//STEP0200 EXEC PGM=DTSBX801,    BUILD PRED SUCC FILE FOR SDDS
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//*TSFPRED DD  DSN=DOESTAX.PROD.SDDS.PREDSUCC.&AQTR.,
//DTSFPRED DD  DSN=DOESTAX.PROD.SDDS.PREDSUCC,
//             DISP=(OLD,KEEP,KEEP),
//*            DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(6600,(100,50),RLSE),
//             DCB=(RECFM=FB,LRECL=22,BLKSIZE=6600)
//*
//FTPXFER  EXEC PGM=FTP
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFA502),DISP=SHR
/*
//***********************************************************
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//* USERDATA=('TO:SUNNY.PANDIT@DC.GOV',
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//         'CC:RAJINI.JUJJAVARAPU@DC.GOV',
//         'CC:KIRAN.KOYYALAMUDY@DC.GOV',
//*        'CC:ZARATH.LALPUTAN@DC.GOV',
//         'SUBJECT: SDDS QUARTERLY DATA DOWNLOADED..ZL1',
//         'FILEDESC: DUTAS SDDS QUARTERLY DATA AVAIL   ',
//         'FILENAME:SDDS_DUTAS_QDATA.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.DEVL.SDDS.QDATA.TXT,DISP=SHR
//SYSUT2   DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//*
//*************************END JOB *************************************