//* COPY YOUR JOBCARD HERE 00010000 //**********************************************************************00020000 //* *00030000 //* C O M P I L E C O B O L P R O G R A M *00040000 //* *00050000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00060000 //* *00070000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. *00080000 //* MEMBER - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE. *00090000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00100000 //* AND MAPSETS FROM. *00110000 //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00120000 //* LINK ROUTINES RESIDE. *00130000 //* 00140000 //**********************************************************************00150000 //* 00160000 //SETVARS SET SRCLIB=, 00170000 // MEMBER=, 00180000 // LELINK=, 00190000 // LOADLIB= 00200000 //* 00210000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00220000 //* 00230000 //TROPEN EXEC COB3PROC,MEMBER=TROPEN 00240000 //TRDELETE EXEC COB3PROC,MEMBER=TRDELETE 00250000 // 00260000