DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSZCHKS.jcl

@@ -0,0 +1,49 @@
+//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..PROCLIB
+//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 ****************************