//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 ****************************