56 lines
3.7 KiB
Plaintext
56 lines
3.7 KiB
Plaintext
//DTSRX591 JOB (UI,4300,3400,T),PROD.BD591.CHRGFA, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
//*** TYPRUN=SCAN,
|
|
//*** USER=#DOADTS,
|
|
//*** NOTIFY=ECNTJP2
|
|
// NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//***
|
|
// SET YRQTR='QTR20024' /* YRQTR IN TO BE PROCESSED
|
|
// SET QTR591='QTR024' /* YRQTR OUT TO BE PROCESSED
|
|
// SET LVLNODE='PROD' /* DEVL/TEST/PROD
|
|
// SET LHOLD='NO' /* YES/NO
|
|
// SET LDEST=U@PRT65 /* ANY VALID DESTINATION
|
|
//****
|
|
//* 02/05/03 - THIS JOB WILL REPRODUCE THE FISC.AGNT REPORTS FROM THE
|
|
//* THE DESIRED QTR FOR THE CHARGING RUN.
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//** 00001700
|
|
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS 00002400
|
|
// COND=(0,LT) 00002500
|
|
//SYSOUT DD SYSOUT=* 00002600
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..CHGBR591.FA.&QTR591.,DISP=SHR 00003006
|
|
//SORTOUT DD DSN=&&SRTRPT, 00005700
|
|
// DISP=(,PASS,DELETE), 00005800
|
|
// UNIT=SYSDA, 00005900
|
|
// SPACE=(8192,(1000,1000),RLSE), 00006000
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00006100
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00006203
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00007000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00008000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00009000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00010000
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,10),RLSE) 00011000
|
|
//**** 00018000
|
|
//STEP0500 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
|
|
// COND=(0,LT) 00018300
|
|
//SYSOUT DD SYSOUT=* 00018400
|
|
//SYSABOUT DD SYSOUT=* 00018500
|
|
//SYSUDUMP DD SYSOUT=* 00018600
|
|
//PARMIN DD DUMMY 00018708
|
|
//ATLSTIN DD DUMMY 00018810
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050000
|
|
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00070008
|
|
// AMP=('BUFNI=5,BUFND=10') 00080000
|
|
//** 00090000
|
|
//** CHG FISCAL AGENT ERROR REPORT(S) 00100008
|
|
//RPT591R1 DD SYSOUT=O, //* COPIES=2, 00100109
|
|
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
|
|
//** CONTROL REPORT 00100409
|
|
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00100509
|
|
// HOLD=&LHOLD.,DEST=&LDEST. 00100209
|
|
//****
|