DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
69
JCL/DTSCHGCC.jcl
Normal file
69
JCL/DTSCHGCC.jcl
Normal file
@ -0,0 +1,69 @@
|
||||
//DTSCHGCC JOB (UI,4300,3400,T),CHGCC.CNV,CLASS=P,MSGCLASS=X, 00010012
|
||||
//** TYPRUN=SCAN, 00020011
|
||||
// USER=#DOADTS,
|
||||
// NOTIFY=ECNTSUP,REGION=0M 00031015
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//**** 00040000
|
||||
// SET PGMNODE='PROD' /* MONTHLY FOR DC CONV. CNTR. 00050022
|
||||
// SET UINODE='PROD' 00060015
|
||||
// SET LVLNODE='PROD' 00060115
|
||||
// SET MSTNODE='PROD' 00061010
|
||||
// SET CHGNODE='PROD' 00070010
|
||||
// SET CHGMNBR='CHGM002' 00071000
|
||||
// SET CHGMSSN='CHGM030' 00072006
|
||||
// SET QTRLY='DCC202' 00080000
|
||||
// SET LDEST='LOCAL' 00090000
|
||||
// SET LHOLD='YES' 00100000
|
||||
//***** 00110000
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PGMNODE..PROCLIB 00130022
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140006
|
||||
//**** 00150000
|
||||
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
|
||||
//**** ********* FOR THE DC CONVENTION CENTER ONLY *************** 00161020
|
||||
//**** 00480000
|
||||
//STEP0200 EXEC DTSUXCGP 00490000
|
||||
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGCC), 00491020
|
||||
// DISP=SHR 00500020
|
||||
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500103
|
||||
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500203
|
||||
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500303
|
||||
//**** 00504000
|
||||
//STEP0300 EXEC DTSCGRPT 00510000
|
||||
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) 00511014
|
||||
//STEP0100.CSV130R1 DD DUMMY /* FSDES FILE 00511014
|
||||
//STEP0100.RPC130R2 DD DUMMY /* FISC.AGNT. 00511100
|
||||
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511100
|
||||
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) 00511214
|
||||
//STEP0100.RPC110R2 DD DSN=DOESTAX.DEVL.CNVCHG.R1207,DISP=SHR 00511316
|
||||
//STEP0100.RPC110R3 DD DUMMY /* S-I (I) 00511214
|
||||
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512000
|
||||
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513000
|
||||
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514000
|
||||
//** 00520000
|
||||
/*JOBPARM LINES=99999
|
||||
/*OUTPUT REPT DEST=LOCAL,FORMS=REPT
|
||||
//***************************************************************
|
||||
//* U1000 CONVERTS OUTPUT TO RICHTEXT .RTF
|
||||
//* INCLUDE JOB SEPARATORS
|
||||
//* U1001 CONVERTS OUTPUT TO RICHTEXT .RTF
|
||||
//* OMITS ALL JOB SEPARATORS INFORMATION
|
||||
//* U1002 CONVERTS OUTPUT TO ACROBAT FORMAT (.PDF)
|
||||
//* OMITS ALL JOB SEPARATORS INFORMATION
|
||||
//* U1003 CONVERTS OUTPUT TO SIMPLE TEXT FORMAT (.TXT)
|
||||
//* OMITS ALL JOB SEPARATORS INFORMATION
|
||||
//***************************************************************
|
||||
//EMAIL EXEC PGM=IEBGENER,
|
||||
// REGION=4M
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//OUT1 OUTPUT DEST=U1003,
|
||||
// USERDATA=('TO:CAMILLE.GERALD@DC.GOV',
|
||||
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
||||
// 'SUBJECT: DC CONVENTION CENTER CHARGES )',
|
||||
// 'FILEDESC: DC CONVENTION CHARGES ',
|
||||
// 'FILENAME:CONVCHGS.TXT')
|
||||
//SYSUT1 DD DISP=SHR,
|
||||
// DSN=DOESTAX.DEVL.CNVCHG.R1207
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
Reference in New Issue
Block a user