DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
JCL/DTSGSID9.jcl
Normal file
23
JCL/DTSGSID9.jcl
Normal file
@ -0,0 +1,23 @@
|
||||
//DTSGSID9 JOB (UI,4300,3400,T),WAGE-FILE-UPD,CLASS=A,MSGCLASS=X, 00000010
|
||||
//** TYPRUN=SCAN,
|
||||
// USER=#DOADTS,
|
||||
// NOTIFY=ECNTSUP
|
||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||
//**
|
||||
// SET UINODE='PROD' REGION VSAM MASTER FILES
|
||||
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
|
||||
// SET LVLNODE='PROD' REGION BATCH LOADLIB/PROCLIB
|
||||
//*
|
||||
//****
|
||||
//* UI TAX DAILY WAGE FILE REBUILD *
|
||||
//* *
|
||||
//* NOTE: BEFORE RUNNING THIS JOB, CLOSE THE FILES IN THE *
|
||||
//* CICS REGION. *
|
||||
//* *
|
||||
//**
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
||||
//*OADLIBS INCLUDE MEMBER=DTSIJGSI 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJTAX 00001600
|
||||
//* 00001700
|
||||
//STEP0100 EXEC DTSGSID9 EXTRACT DATA FROM WAGE FILE
|
||||
//*********************************************************************
|
||||
Reference in New Issue
Block a user