//*  COPY YOUR JOBCARD HERE                                                     
//**********************************************************************        
//*                                                                    *        
//*       T  R  A  N  S  L  A  T  E    &    C  O  M  P  I  L  E        *        
//*                 C  I  C  S    P  R  O  G  R  A  M                  *        
//*                                                                    *        
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *        
//*                                                                    *        
//*  TEAMID   - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR.               *        
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *        
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE.       *        
//*  COPYLIB  - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE     *        
//*             FROM THE MAPJCL.                                       *        
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS      *        
//*             AND MAPSETS FROM.                                      *        
//*  CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID,        *        
//*             LINK EDIT INCLUDE STATEMENT AND OTHER CICS             *        
//*             COPYBOOKS.                                             *        
//*  CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,       *        
//*             AND OTHER CICS MODULES RESIDE.                         *        
//*  LECOPY   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *        
//*             COPYBOOKS AND SAMPLE PROGRAMS RESIDE.                  *        
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *        
//*             LINK ROUTINES RESIDE.                                  *        
//*                                                                             
//**********************************************************************        
//*                                                                             
//SETVARS  SET TEAMID=,                                                         
//             SRCLIB=,                                                         
//             MEMBER=,                                                         
//             COPYLIB=,                                                        
//             LOADLIB=,                                                        
//             CICSCOPY=,                                                       
//             CICSLOAD=,                                                       
//             LECOPY=,                                                         
//             LELINK=                                                          
//*                                                                             
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                               
//*                                                                             
//TRPGMXX  EXEC COB3PROC                                                        
//