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