Z updated JCL files on PROD Env
This commit is contained in:
146
JCL/ZDTSGCHKS.jcl
Normal file
146
JCL/ZDTSGCHKS.jcl
Normal file
@ -0,0 +1,146 @@
|
||||
//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 ****************************
|
||||
Reference in New Issue
Block a user