//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE    PRINT U@PRT65
//********************************************************************
//****   TDEC PAYMENT FILES ARE 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 QTR PARM TO CURRENT QTR                **********
//    SET CURRQTR='Q2017Q4'
//*
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET PRGNODE='CONV'
//   SET IMPNODE='CONV'
//   SET LVDHOLD='YES'
//   SET EXTNODE='CONV'
//   SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*   PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//****   GET TDEC ENCRYPTED REPORT PAYMENT FILE
//********************************************************************
//*********************************************************************
//*STEP0111 EXEC PGM=IDCAMS,          INITIALIZE EMPTY PAYMENT FILE
//*             COND=(4,LT)           GENERATION
//*SYSPRINT DD  SYSOUT=*
//*INDD01   DD  DUMMY
//*OUTDD01  DD  DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),
//*             DISP=(,CATLG,DELETE),
//*             UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//*             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//*
//*TDECFTP  EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT  DD  SYSOUT=*
//*OUTOUT    DD  SYSOUT=*
//*SYSPUT    DD  SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET    DD *,DCB=BLKSIZE=80
//**INPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR
//*INPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
//***INPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//*
//********************************************************************
//****   DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//********************************************************************
//*
//*ECRYPT EXEC SECPDEC,COND=(0,LT)
//DECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN    DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//DATAOUT   DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
//             DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//             DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//
//********************************************************************
//***  COPY TDEC WAGE DECRYPTED FILE TO BBACKUP  FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR
//*     DISP=(NEW,CATLG,DELETE),
//*     UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//*     DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//***  COPY TDEC REPORT PAYMENT FILE TO  BACKUP QUARTER FILE
//**
//********************************************************************
//**
//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR.,
//*     DISP=(NEW,CATLG,DELETE),
//      DISP=MOD,
//      UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
//      DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//**