//KWCALDWC JOB (12345678),'KEN CALDWELL',MSGCLASS=H,                    00010000
//             MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID                    00020000
//*                                                                     00030000
//**********************************************************************00040000
//*                                                                    *00050000
//*             C O M P I L E   C O B O L   P R O G R A M              *00060000
//*                                                                    *00070000
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *00080000
//*                                                                    *00090000
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *00100000
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE.       *00110000
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS      *00120000
//*             AND MAPSETS FROM.                                      *00130000
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00140000
//*             LINK ROUTINES RESIDE.                                  *00150000
//*                                                                     00160000
//**********************************************************************00170000
//*                                                                     00180000
//SETVARS  SET SRCLIB=KWCALDW.REXXA.EXEC,                               00190000
//             MEMBER=,                                                 00200000
//             LELINK=CEE.SCEELKED,                                     00210000
//             LOADLIB=KWCALDW.A.LOAD                                   00220000
//*                                                                     00230000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00240000
//*                                                                     00250000
//TROPEN   EXEC COB3PROC,MEMBER=TROPEN                                  00260000
//TRDELETE EXEC COB3PROC,MEMBER=TRDELETE                                00270000
//                                                                      00280000