//DTSRQ702 JOB (UI,4300,3400,T),PROD.FUTA.CERT3,
//            MSGCLASS=X,CLASS=A,
//            NOTIFY=ECNTSUP,
//****        TYPRUN=SCAN,
//            REGION=0M
//****
//*  FUTA CERTIFICATION - PART 1 (RUNRQ701)  - PART 3 (THIS JOB)
//*                     - PART 2 (RUNRQ704)  - PART 4 (RUNRQ706) (JHP)
//****
//*  PRODUCE THE ANNUAL FILE TO IRS FROM FUTA CERTIFICATION
//*   THE DASD FILE IS PRODUCED BY RUNRQ704 (PART 2)
//****
//  SET FISCALYR='CY2010'
//  SET  LVLNODE='PROD'
//  SET  LVLFILE='CONV'
//  SET    LHOLD='YES'
//****
//*    CREATE A BACKUP COPY OF THE OUTPUT TO IRS FOR DOES
//****
//STEP0100 EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR.,DISP=SHR
//SYSUT2   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR..BKP,
//         DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,                          /* TEST
//             SPACE=(CYL,(1,1),RLSE),              /* TEST
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=326,BLKSIZE=1630)
//SYSIN    DD  DUMMY
//****
//*    CREATE OUTPUT FILE FOR IRS
//*
//*
//STEP0200 EXEC PGM=IEBGENER,
//          COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR.,DISP=SHR
//SYSUT2   DD  DSN=DOESTAX.&LVLFILE..RPT702.&FISCALYR..IRS,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,                   /* TEST
//             SPACE=(CYL,(1,1),RLSE),       /* TEST
//             DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
//SYSIN    DD  DUMMY
//****
//*    PRT 1ST 100 CERTIFICATION RECORDS FOR IRS
//
//STEP0300 EXEC PGM=IDCAMS,
//          COND=(0,LT)
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
//          HOLD=&LHOLD.
//FILEIN   DD DSN=MAILOUT.DOESTAX.&LVLNODE..RPT702.&FISCALYR..IRS,
//****            UNIT=SYSDA,
//            UNIT=CART90,
//            VOL=REF=*.STEP0200.SYSUT2,
//            DISP=(OLD,KEEP)
//****            SPACE=(CYL,(1,1),RLSE),
//****            DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
//SYSIN    DD  *
 PRINT -
   INFILE (FILEIN) -
   COUNT (100)
/*
//****