50 lines
1.8 KiB
Plaintext
50 lines
1.8 KiB
Plaintext
//DTSZCHKS JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
|
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65
|
|
//********************************************************************
|
|
//**** TDEC DEPOSIT CHECK FILE ENCRYPTED USING PKZIP
|
|
//**** WITH OCTO DATA CENTER PUBLIC KEY.
|
|
//****
|
|
//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN
|
|
//****
|
|
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
|
|
//****
|
|
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
|
//****
|
|
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
|
//********************************************************************
|
|
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
|
// SET CURRQTR='Q2016Q3'
|
|
// SET LVLNODE='CONV'
|
|
// SET MSTNODE='PROD'
|
|
// SET PRGNODE='CONV'
|
|
// SET IMPNODE='CONV'
|
|
// SET LVDHOLD='YES'
|
|
// SET LHOLD='YES'
|
|
// SET EXTNODE='CONV'
|
|
// SET RPTNODE='ESSP.BX420.RPT'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
|
//**
|
|
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
|
|
//*
|
|
//********************************************************************
|
|
//**** GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
|
|
//********************************************************************
|
|
//*
|
|
//********************************************************************
|
|
//STEP0200 EXEC DTSZXCHK
|
|
//
|
|
//STEP0300 EXEC DTSRSESP
|
|
//***
|
|
//* REPORT GENERATION
|
|
//STEP0400 EXEC DTSRERPT
|
|
//STEP0100.RPT140R1 DD HOLD=YES
|
|
//STEP0100.RPT140R2 DD HOLD=YES
|
|
//STEP0100.RPT907R1 DD HOLD=YES
|
|
//STEP0100.RPT907R2 DD HOLD=YES
|
|
//STEP0100.RPT980R1 DD HOLD=YES
|
|
//**
|
|
**************************** BOTTOM OF DATA ****************************
|