//CIPHRTXT JOB 'EYSHA',MSGLEVEL=(1,1),CLASS=A,
// NOTIFY=&SYSUID,MSGCLASS=H,REGION=0M
//* Pervasive (Data Set) Encryption: Step 10 of 10 *
//*------------------------------------------------------------------*
//* Add text to the encrypted data set and then print the cipher *
//* text to SYSOUT. *
//*------------------------------------------------------------------*
//* Instructions: *
//* - Update EYSHA.ICSF.ENCRYPT.ME.DATA with your data set name *
//* (2 places) *
//* - Update the UNIT and VOLUME *
//* - Update the record format as needed *
//* - Update the block length as needed *
//* *
//* - SUBMIT THIS JCL FROM THE DATA OWNER USER ID *
//* (E.G. SUB 'HLQ.MLD.LLQ(CIPHRTXT)') *
//*------------------------------------------------------------------*
//* Write "hello world" to the encrypted data set *
//*------------------------------------------------------------------*
//UPDATE EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//OUTDATA DD DSNAME=EYSHA.ICSF.ENCRYPT.ME.DATA,UNIT=3390,
// DISP=(OLD,KEEP),VOLUME=SER=SMSVL1,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSIN DD *
DSD OUTPUT=(OUTDATA)
FD NAME=HELLO,LENGTH=11,PICTURE=11,'hello world'
CREATE QUANTITY=1,NAME=(HELLO)
END
//*------------------------------------------------------------------*
//* Print the DASD contents to SYSOUT *
//*------------------------------------------------------------------*
//PRINT EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PRINT DATASET(EYSHA.ICSF.ENCRYPT.ME.DATA) INDYNAM(SMSVL1)
/*