38 lines
2.7 KiB
Plaintext
38 lines
2.7 KiB
Plaintext
//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
|
|
//*
|
|
|