giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
JCL/DTSGCHKS.jcl
View File

@ -14,7 +14,7 @@
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**`**** CHANGE PARM QTR TO CURRENT QUARTER ********
// SET CURRQTR='Q2018Q3'
// SET CURRQTR='Q2018Q4'
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
@ -44,27 +44,31 @@
//*********************************************************************
//********************************************************************
//*
//TDECFTP EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*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.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)
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
//COPYDELQ 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),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,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.
@ -77,7 +81,7 @@
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -90,9 +94,9 @@
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
@ -101,33 +105,33 @@
//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=(NEW,CATLG,DELETE),
//* DISP=MOD,
// DISP=SHR,
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
// DCB=(RECFM=FB,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
//*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.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//STEP0200 EXEC DTSBXCHK
//STEP0200 EXEC DTSZXCHK
//*
//STEP0300 EXEC DTSRSESP
//***
//* REPORT GENERATION
//STEP0400 EXEC DTSRERPT
//STEP0400 EXEC DTSRERPZ
//STEP0100.RPT140R1 DD HOLD=YES
//STEP0100.RPT140R2 DD HOLD=YES
//STEP0100.RPT907R1 DD HOLD=YES