147 lines
5.8 KiB
Plaintext
147 lines
5.8 KiB
Plaintext
//DTSGCHKS JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
|
|
// USER=#DOADTS,
|
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
|
|
/*ROUTE PRINT U@PRT65
|
|
//********************************************************************
|
|
//**** TDEC DEPOSIT CHECK FILE ENCRYPTED USING PKZIP
|
|
//**** WITH OCTO DATA CENTER PUBLIC KEY.
|
|
//****
|
|
//*** REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119 ZL1
|
|
//*** PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
|
|
//******** DUTAS PRODUCTION RAINCODE 10/21/25 ,,,,,,ZL1
|
|
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
|
|
//**** raincode tested 8/20 zl1
|
|
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
|
|
//********************************************************************
|
|
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
|
|
// SET CURRQTR='Q20252Q2'
|
|
// SET LVLNODE='CONV'
|
|
// SET MSTNODE='PROD'
|
|
// SET PRGNODE='PROD'
|
|
// SET IMPNODE='CONV'
|
|
// SET LVDHOLD='YES'
|
|
// SET LHOLD='YES'
|
|
// SET EXTNODE='CONV'
|
|
// SET RPTNODE='ESSP.BX420.RPT'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.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)
|
|
//*********************************************************************
|
|
//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
|
|
// COND=(4,LT) GENERATION
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DUMMY
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,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(DTSDRECK),DISP=SHR
|
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
|
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
|
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
|
|
//*
|
|
//********************************************************************
|
|
//**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT
|
|
//********************************************************************
|
|
//*
|
|
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
|
|
//*ECRYPT EXEC SECODEC,COND=(0,LT)
|
|
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
|
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//**
|
|
//********************************************************************
|
|
//*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE.
|
|
//**
|
|
//********************************************************************
|
|
//**
|
|
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
|
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
|
//**
|
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//**
|
|
//********************************************************************
|
|
//*** COPY TDEC DAILY CHECKS FILE TO BACKUP QTR FILE
|
|
//**
|
|
//********************************************************************
|
|
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
|
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
|
//**
|
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=MOD,
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//**
|
|
//********************************************************************
|
|
//COPYFTPS EXEC PGM=IDCAMS,COND=(0,LT)
|
|
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
|
|
//**
|
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
//* DISP=MOD,
|
|
// DISP=SHR,
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//*
|
|
//********************************************************************
|
|
//**** DELETE TDEC ENCRYPTED CHECK FILE
|
|
//********************************************************************
|
|
//*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(DTSDRCHK),DISP=SHR
|
|
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
|
|
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
|
|
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
|
|
//*
|
|
//*
|
|
//STEP0200 EXEC DTSBXCHK
|
|
//*
|
|
//*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 ****************************
|