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