//DTSRQ706 JOB (UI,4300,3400,T),FUTA.CERT4,MSGCLASS=X,CLASS=P,
//            NOTIFY=ECNTJP2
//****        TYPRUN=SCAN,       /*** THIS JOB IS NO LONGER NEEDED  ***
//****        USER=#DOADTS,      /*** PER IRS PUB. 6581, REV. 10/99 ***
//            REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
//****
//*  FUTA CERTIFICATION - PART 1 (RUNRQ701)  - PART 3 (RUNRQ702)
//*                     - PART 2 (RUNRQ704)  - PART 4 (THIS JOB) (JHP)
//****
//*    THE ANNUAL TAPE TO IRS FROM POTENTIAL FED NON-FILERS
//*     ************** NO LONGER NEEDED BY IRS *****************
//****
//  SET PONFTAPE='FUTAP1'
//****
//*    THE DASD FILE IS PRODUCED BY RUNRQ704 (PART 2)
//*            (CHANGE FISCAL YEAR AS NEEDED)
//****
//  SET FISCALYR='FY1998'
//  SET LVLNODE='PROD'
//****
//*    CREATE A BACKUP COPY OF THE OUTPUT TO IRS FOR DOES
//****
//STEP0100 EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR.,DISP=SHR
//SYSUT2   DD  DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR..BACKUP,
//         DISP=(NEW,CATLG,DELETE),
//         UNIT=CART,
//         VOLUME=(,RETAIN),
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=326,BLKSIZE=1630),
//         LABEL=RETPD=400
//SYSIN    DD  DUMMY
//****
//*    CREATE THE OUTPUT TAPE TO IRS FROM DOES
//****
//STEP0200 EXEC PGM=IEBGENER,
//          COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR.,DISP=SHR
//SYSUT2   DD  DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR..IRS,
//             DISP=(NEW,CATLG,DELETE),
//             VOL=SER=(&PONFTAPE,RETAIN),
//             UNIT=DCTAPE,
//             DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630),
//             LABEL=EXPDT=98000
//SYSIN    DD  DUMMY
//****
//*    PRT 1ST 100 NON-FILER TAPE RECORDS FOR IRS
//****
//STEP0300 EXEC PGM=IDCAMS,
//          COND=(0,LT)
//SYSPRINT DD SYSOUT=Z,COPIES=2
//FILEIN   DD DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR..IRS,
//            VOL=REF=*.STEP0200.SYSUT2,
//            UNIT=DCTAPE,
//            DISP=(OLD,KEEP),
//            DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
//SYSIN    DD  *
 PRINT -
   INFILE (FILEIN) -
   COUNT (100)
/*
//****