36 lines
2.8 KiB
Plaintext
36 lines
2.8 KiB
Plaintext
//DTSCHGT1 JOB (UI,4300,3400,T),CHGXXX.TEUC,CLASS=P,MSGCLASS=X, 00010015
|
|
//** TYPRUN=SCAN, 00011015
|
|
// USER=#DOADTS, 00012015
|
|
// NOTIFY=ECNTSUP,REGION=0M 00014016
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00040000
|
|
// SET PRGNODE='PROD' 00050015
|
|
// SET UINODE='PROD' 00060016
|
|
// SET LVLNODE='PROD' 00060116
|
|
// SET MSTNODE='PROD' 00061015
|
|
// SET CHGNODE='PROD' 00070015
|
|
// SET CHGMNBR='CHGM002' 00071006
|
|
// SET CHGMSSN='CHGM030' 00072011
|
|
// SET QTRLY='SPECXX' 00080009
|
|
// SET LDEST=U@PRT65 00090000
|
|
// SET LHOLD='YES' 00100000
|
|
//***** 00110000
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00130000
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140010
|
|
//**** 00150000
|
|
//* PERIODIC CHARGE REPORTING PROCESS - TEUC REPORTS ONLY 00160016
|
|
//**** 00170016
|
|
//STEP0200 EXEC DTSUXCGP 00490000
|
|
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGT1), 00491016
|
|
// DISP=SHR /* USE THESE FOR A RERUN <== 00500116
|
|
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500210
|
|
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500310
|
|
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500410
|
|
//**** 00501000
|
|
//STEP0300 EXEC DTSCGRPT 00510000
|
|
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511002
|
|
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512002
|
|
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513002
|
|
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514002
|
|
//**** 00520000
|