Decipher Using Private Keys: Example 9
In this example, the enciphered data set produced by the job in Encipher Using Private Keys: Example 8 is deciphered at the same location,
using an entry-sequenced data set as the target for the plaintext
(deciphered) data. Keys are managed privately by the user.
//DEPRI JOB ...
//STEP1 EXEC PGM=IDCAMS
//CRYPT DD DSN=ESDS1,DISP=OLD
//CLEAR DD DSN=ESDS3,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
REPRO -
INFILE(CRYPT) -
OUTFILE(CLEAR) -
DECIPHER -
(DATAKEYVALUE(X'53467568503A7C29'))
/*
Job control language statements:
- CRYPT DD describes the enciphered source entry-sequenced data set.
- CLEAR DD describes the target entry-sequenced data set.
The REPRO command copies and deciphers the enciphered data set
from the source data set, ESDS1, to the target data set, ESDS3. The
supplied plaintext data encrypting key is used to decipher the data.
The parameters of the REPRO command are:
- INFILE points to the CRYPT DD statement identifying the source data set, ESDS1.
- OUTFILE points to the CLEAR DD statement, identifying the target data set, ESDS3, which must be empty. The defined maximum record size of the target entry-sequenced data set must be large enough to accommodate the largest source entry-sequenced data set record.
- DECIPHER indicates that the source data set is to be deciphered as it is copied to the target data set.
- DATAKEYVALUE indicates that keys are to be managed by the user, and supplies the plaintext private data encrypting key, X'53467568503A7C29', used to encipher the data.