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

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
JCL/TESTSEC.jcl Normal file
View File

@ -0,0 +1,41 @@
//SECPDEC JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
//*
//********************************************************************
//* SecureZIP Decrypt processing in PGP format *
//* *
//* This JCL Procedure invokes the SecureZIP code to decrypt data *
//* stored in a PGP-format archive. It is not necessary to specify *
//* who will decrypt the data as the software automatically searches *
//* for a matching recipient, which should always be OCTO. *
//* *
//* All of the parameters necessary to make the process work against *
//* a PGP-format archive are stored in the Defaults Module, or in *
//* the SYSIN file. *
//* *
//********************************************************************
//* *
//* Parameters: *
//* *
//* KEYHLQ - The dataset prefix for the PGP-format Keyrings *
//* *
//********************************************************************
//*
//DECRYPT EXEC PGM=PKZIPC
//*STEPLIB DD DISP=SHR,DSN=SYSO.SECZIP.PROD.LOAD
//*
//PUBRING DD DISP=SHR,DSN=SYS3.SECZIP.KEYS.V2.PUBRING
//SECRING DD DISP=SHR,DSN=SYS3.SECZIP.KEYS.V2.SECRING
//*
//SYSIN DD DISP=SHR,DSN=SYS3.SECZIP.PARMS.DECRYPT.TXT
//SYSERR DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//DATAOUT 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)
//*