DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
49
JCL/DTSPX148.jcl
Normal file
49
JCL/DTSPX148.jcl
Normal file
@ -0,0 +1,49 @@
|
||||
//DTSPX148 JOB (UI,4300,3400,T),PROCESS-SI-ADMIN, 00000010
|
||||
// CLASS=A,MSGCLASS=X, 00000010
|
||||
// USER=#DOADTS,
|
||||
// NOTIFY=ECNTSUP,
|
||||
// REGION=0M
|
||||
//* 00001700
|
||||
//*>>>>>>>>>>>>>> PROCESS DAILY SI ASSESSMENTS UPDATES <<<<<<<<<<<<<< 00001700
|
||||
//* 00001700
|
||||
//*************************************************** 00001700
|
||||
//* TDEC WAGES PROCESSING MATCH W4 TRANSACTIONS TO REPORTS----REMOVED
|
||||
//* FROM PRODUCTION ON 10/23/17..................................ZL1 00001700
|
||||
//* 00001700
|
||||
//* JOB WILL NOW PROCESS SI ASSESSMENT FEE DURING THE QUARTER ZL1
|
||||
//*************************************************** 00001700
|
||||
// SET LVLNODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET LHOLD='YES'
|
||||
// SET PRTHOLD='YES'
|
||||
// SET LVDHOLD='YES'
|
||||
// SET LDEST='LOCAL'
|
||||
// SET S0910='+0'
|
||||
//* 00001700
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600
|
||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||
//*****************************************************************
|
||||
//***
|
||||
//*****************************************************************
|
||||
//* VERIFY NEW BTCH NUMBER VSAM FILE
|
||||
//*****************************************************************
|
||||
//******************************************************************
|
||||
//IDCAMS EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
VERIFY DATASET (DOESTAX.PROD.VSAM.BTNO)
|
||||
/*
|
||||
//***
|
||||
//*****************************************************************
|
||||
//* PROCESS SI ASSESSMENTS AFTER LATE PENALTY RUN
|
||||
//*****************************************************************
|
||||
//*
|
||||
//STEP0100 EXEC DTSBE328,
|
||||
// RUNTYPE='OR'
|
||||
//*
|
||||
//STEP0100.EXTPARM DD *
|
||||
328
|
||||
/*
|
||||
//
|
||||
//***
|
||||
Reference in New Issue
Block a user