//ESE2TAPE JOB 'JOB INFORMATION','TEST',MSGLEVEL=(1,1),            
//          MSGCLASS=H,CLASS=A,NOTIFY=&SYSUID,REGION=4M               
//******************************************************************* 
//* This is sample JCL which can be used to encrypt data and place  *
//* it into a tape dataset using the Encryption Services provided   * 
//* by the IBM Encryption Facility for z/OS                         * 
//*                                                                 * 
//* This job uses the CSDFILEN batch program of the Encryption      * 
//* Services to encrypt the data to tape. The SYSUT1 DD statement   * 
//* specifies the name of the dataset that contains the data to     * 
//* be encrypted. The SYSUT2 DD statement contains the name of the  * 
//* tape dataset that will contain the encrypted data.              * 
//*                                                                 * 
//* Refer to the IBM Encryption Facility for z/OS: User's Guide for * 
//* additional information.                                         * 
//******************************************************************* 
//ENC      EXEC PGM=CSDFILEN                                          
//SYSPRINT DD SYSOUT=*                                                
//SYSUDUMP DD SYSOUT=*                       
//SYSOUT   DD SYSOUT=*                                   
//SYSIN    DD *                                          
PASSWORD=TEST1PASSWORD                                   
//SYSUT1   DD DSN=HLQ.INPUT.DATASET,DISP=SHR             
//SYSUT2   DD UNIT=3590-1,DSN=HLQ.ENCRYPTED.TAPE.DATASET,
//            DISP=OLD,VOL=SER=ABCDEF                    
/*