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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Procs/SECPDEC Normal file
View File

@ -0,0 +1,37 @@
//SECPDEC PROC KEYHLQ='SYS3.SECZIP.KEYS.V2'
//*
//********************************************************************
//* 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=SECUNZIP,PARM='-DM ACZDFLTP'
//STEPLIB DD DISP=SHR,DSN=SYSO.SECZIP.PROD.LOAD
//*
//PUBRING DD DISP=SHR,DSN=&KEYHLQ..PUBRING
//SECRING DD DISP=SHR,DSN=&KEYHLQ..SECRING
//*
//SYSIN DD DISP=SHR,DSN=SYS3.SECZIP.PARMS.DECRYPT.TXT
//SYSERR DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//*
//IN DD DUMMY
//*