152 lines
5.9 KiB
Plaintext
152 lines
5.9 KiB
Plaintext
//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
|
|
// USER=#DOADTS,
|
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
|
/*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..PROCLIB
|
|
//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=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*********************************************************************
|
|
//*
|
|
//*********************************************************************
|
|
//STEP0112 EXEC PGM=IDCAMS, FEEDS INTO BX530 PAYMENTS
|
|
// COND=(4,LT) GENERATION
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DUMMY
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
|
// DCB=(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
|
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
|
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR
|
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
|
|
//*
|
|
//********************************************************************
|
|
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
|
|
//********************************************************************
|
|
//*
|
|
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
|
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
|
//STEPCRTP EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//INDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//********************************************************************
|
|
//*** 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=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//**
|
|
//**
|
|
//COPYFTPT 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.DAILY.FTPWEB.PAYMT,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=SHR,
|
|
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//*
|
|
//************************* COMMENT OUT HERE FOR NOW ZL1 *******************************************
|
|
//**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER
|
|
//********************************************************************
|
|
//*TDECDEL 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(DTSDRPAY),DISP=SHR
|
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR
|
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR
|
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR
|
|
//*
|
|
//*
|
|
//STEP0200 EXEC DTSZXPAY
|
|
//
|
|
//STEP0200 EXEC DTSRSESP
|
|
//***
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//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
|
|
//**
|