42 lines
1.6 KiB
Plaintext
42 lines
1.6 KiB
Plaintext
//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
|
|
/*
|
|
//
|