/* CLIST */
/* Pervasive (Data Set) Encryption: Step 9 of 10 */
/*-------------------------------------------------------------------*/
/* Allocate an SMS managed extended format data set. */
/*-------------------------------------------------------------------*/
/* Instructions: */
/* - Update EYSHA.ICSF.ENCRYPT.ME.DATA with your data set name */
/* (3 places) */
/* - Update the STORCLAS, DATACLAS, and/or MGMTCLAS as needed */
/* - Update the record format as needed */
/* - Update the block length as needed */
/* - Add additional allocate fields as needed */
/* */
/* - EXECUTE THIS CLIST FROM TSO */
/* (E.G. EX 'HLQ.MLD.LLQ(ALLOCDS)') */
/*-------------------------------------------------------------------*/
/*-------------------------------------------------------------------*/
/* Allocate an SMS-managed, extended format data set (DSNTYPE=EXTREQ */
/* or DSNTYPE=EXTPREF). */
/*-------------------------------------------------------------------*/
ALLOCATE DATASET('EYSHA.ICSF.ENCRYPT.ME.DATA') STORCLAS(NOSPACE) +
RECFM(F,B) BLOCK(80) DSNTYPE(EXTREQ) NEW
/*-------------------------------------------------------------------*/
/* Free the data set to make it available for processing. */
/*-------------------------------------------------------------------*/
FREE DATASET('EYSHA.ICSF.ENCRYPT.ME.DATA')
/*-------------------------------------------------------------------*/
/* Verify that the catalog shows that encryption is enabled. */
/*-------------------------------------------------------------------*/
LISTCAT ENTRIES('EYSHA.ICSF.ENCRYPT.ME.DATA') ALL