63 lines
2.0 KiB
Plaintext
63 lines
2.0 KiB
Plaintext
//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)
|
|
/*
|
|
//****
|