66 lines
2.1 KiB
Plaintext
66 lines
2.1 KiB
Plaintext
//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.PROCS.BATCH.LIB 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)
|
|
/*
|
|
//****
|