96 lines
6.6 KiB
Plaintext
96 lines
6.6 KiB
Plaintext
//DTSACH01 JOB (UI,4300,3400,T),'ACHREPORT',CLASS=A,MSGCLASS=X, 00000199
|
|
// NOTIFY=ECNTSUP 00000299
|
|
//** 00000499
|
|
// SET LVLNODE='PROD' 00000599
|
|
// SET MSTNODE='PROD' 00000699
|
|
// SET FYYEAR='FY2009' 00000699
|
|
// SET LVDHOLD='YES'
|
|
// SET LDEST='LOCAL'
|
|
//** 00000499
|
|
//******************************************************************** 00000499
|
|
//** THIS JOB WILL REPRINT ANY REPORT TYPES THAT HAVE BEEN ARCHIVED * 00000499
|
|
//** SEE PROGRAM DTSACH01 FOR A LIST OF REPORTS THAT HAVE BEEN * 00000499
|
|
//** ARCHIVED. * 00000499
|
|
//** DUTAS ARCHIVE MASTER FILE: DOESTAX.PROD.ARCHIVE.FY2009.FY???? * 00000499
|
|
//** * 00000499
|
|
//** TO REPRINT REPORTS PERFORM THE FOLLOWING BEFORE SUBMITTING JOB: * 00000499
|
|
//** 1. INPUT EMPLOYER NUMBERS INTO DOESTAX.PROD.ARCHIVE.EMPL * 00000499
|
|
//** 2. CHANGE PARM CARD IN STEP0300 * 00000499
|
|
//** PARM CARD FORMAT: 417002009061020090610 * 00019199
|
|
//** A. 1-3 = REPORT TYPE TO REPRINT * 00000499
|
|
//** B. 4-5 = REPORT SUB TYPE(ALWAYS 00) * 00000499
|
|
//** C. 6-13 = MAIL START DATE (YYYYMMDD) * 00000499
|
|
//** D. 14-21 = MAIL END DATE (YYYYMMDD) * 00000499
|
|
//** * 00000499
|
|
//******************************************************************** 00004549
|
|
//** * 00000499
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
|
|
//* 00001400
|
|
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
|
|
//* 00001600
|
|
//********************************************************************* 00004549
|
|
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00004600
|
|
// COND=(0,LT) 00004700
|
|
//SYSOUT DD SYSOUT=* 00004800
|
|
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
|
|
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.&FYYEAR.,DISP=SHR 00005099
|
|
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.AN2010,DISP=SHR 00005099
|
|
//*SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G2621V00,DISP=SHR 00005099
|
|
//*SORTOUT DD DSN=&&SRTOUT,
|
|
//* DISP=(NEW,PASS,DELETE),
|
|
//SORTOUT DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
|
|
// DISP=SHR,
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(9000,9000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR417),DISP=SHR 00007399
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00007499
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00008099
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00009099
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00010099
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
|
|
//********************************************************************* 00018000
|
|
//STEP0200 EXEC PGM=SORT, SORT EMPLOYER RECORDS 00004600
|
|
// COND=(0,LT) 00004700
|
|
//SYSOUT DD SYSOUT=* 00004800
|
|
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
|
|
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSEMPL),DISP=SHR 00007399
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE) 00007499
|
|
//********************************************************************* 00018000
|
|
//STEP0300 EXEC PGM=DTSACH01, ARCHIVE REPRINT PGM 00018100
|
|
// COND=(0,LT) 00018300
|
|
//SYSOUT DD SYSOUT=* 00018400
|
|
//SYSABOUT DD SYSOUT=* 00018500
|
|
//SYSUDUMP DD SYSOUT=* 00018600
|
|
//DTSACHPM DD * 00018899
|
|
417002013082020130930 00019199
|
|
/* 00019599
|
|
//** 00019699
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
|
|
//* 00090099
|
|
//DTSACHEM DD DSN=DOESTAX.&LVLNODE..ARCHIVE.EMPL,DISP=SHR 00071099
|
|
//*DTSACHIN DD DSN=&&SRTOUT,
|
|
//* DISP=(OLD,PASS,DELETE),
|
|
//DTSACHIN DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
|
|
// DISP=SHR,
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//DTSFVRO1 DD DSN=&&RPTOUT,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//* 00100199
|
|
//SYSABEND DD SYSOUT=* 00153099
|
|
//CAIMRPTS DD SYSOUT=* 00154099
|
|
//* 00157099
|
|
//STEP0400 EXEC DTSACH01 00018100
|
|
// 00157099
|