//DTSTP793 JOB (UI,4300,3400,T),FUTA.QTRLY.CHNG1,
//            MSGCLASS=X,CLASS=A,
//            NOTIFY=ECNTSUP,
//****        TYPRUN=SCAN,
//            REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//****
//*  UPLOAD THE QTRLY CD FROM IRS FOR FUTA CHANGES
//*  TO DSN: DOESTAX.CONV.FUTACHNG.UPLOAD
//*
//****
//**SET CHNGTAPE='PDBEK.B1805E.F011.DC713,VOL=SER=DC3830'
//****
//*    THE DASD FILE IS FOR USE BY DTSRQ793
//*     (CHANGE FISCAL YEAR/QTR AS NEEDED)
//****
//  SET FISYRQTR='QTR104'
//****
//*    LOAD THE IRS CD TO DASD
//****
//STEP0100 EXEC  PGM=IEBGENER
//*YSUT1   DD DSN=&CHNGTAPE,                                            00070080
//SYSUT1   DD DSN=DOESTAX.CONV.FUTACHNG.UPLOAD,                         00070080
//**          UNIT=CART,                                                00070080
//            UNIT=SYSDA,                                               00070080
//            DISP=(OLD,KEEP),                                          00080075
//****        LABEL=(2,BLP), (BLP=SECURITY VIOLATION AT IBM KY)
//            DCB=(RECFM=FB,LRECL=259,BLKSIZE=1295)                     00090077
//SYSUT2   DD DSN=DOESTAX.CONV.FUTACHNG.&FISYRQTR.,                     00100080
//**       DISP=OLD,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=SYSDA,
//         SPACE=(1295,(22500,22500),RLSE),                             00090077
//         DCB=(RECFM=FB,LRECL=259,BLKSIZE=1295)                        00090077
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD DUMMY
/*
//