98 lines
3.8 KiB
Plaintext
98 lines
3.8 KiB
Plaintext
//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
|
|
//**
|
|
//**
|