41 lines
2.1 KiB
Plaintext
41 lines
2.1 KiB
Plaintext
//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)
|
|
//* |