//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) //*