//* COPY YOUR JOBCARD HERE.                                             00010000
//*                                                                     00020000
//**********************************************************************00030000
//*                                                                    *00040000
//*       T R A I N - R I G H T   J C L   C L A S S   S E T U P        *00050000
//*                                                                    *00060000
//*  SET THE SYMBOLIC PARAMETERS BELOW TO THE FOLLOWING VALUES:        *00070000
//*                                                                    *00080000
//*  HLQ     - THE HIGH LEVEL QUALIFIER OF THE UPLOADED JCL DATASET.   *00090000
//*  COBCOMP - THE DATASET NAME WHERE THE COBOL COMPILER PROGRAM       *00100000
//*            RESIDES.                                                *00110000
//*  LELINK  - THE DATASET NAME WHERE THE COBOL (LE) SYSTEM ROUTINES   *00120000
//*            RESIDE.                                                 *00130000
//*  SRCLIB  - THE DATASET NAME OF YOUR JCL CLASSROOM LIBRARY.         *00140000
//*  LOADLIB - THE DATASET NAME WHERE THE COMPILED AND LINKED          *00150000
//*            LOAD MODULE WILL RESIDE.                                *00160000
//*  SEQDSN  - THE DATASET NAME OF A SEQUENTIAL DATASET.               *00180000
//*                                                                    *00190000
//**********************************************************************00200000
//SETVAR1  SET HLQ=,                                                    00210000
//             COBCOMP=,                                                00220000
//             LELINK=                                                  00230000
//*                                                                     00240000
//SETVAR2  SET SRCLIB=&HLQ..JCL.LIB,                                    00250000
//             LOADLIB=&HLQ..JCL.LOAD,                                  00260000
//             SEQDSN=&HLQ..JCL.DATA                                    00280000
//*                                                                     00290000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00300000
//*                                                                     00310000
//STEP0    EXEC PGM=IEFBR14                                             00320000
//DD1      DD DSN=&SEQDSN,DISP=(MOD,DELETE),                            00330000
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00340000
//DD2      DD DSN=&LOADLIB,DISP=(MOD,DELETE),                           00350000
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00360000
//*                                                                     00390000
//STEP1    EXEC PGM=IEBGENER                                            00400000
//SYSPRINT DD SYSOUT=*                                                  00410000
//SYSIN    DD DUMMY                                                     00420000
//SYSUT2   DD DSN=&SEQDSN,DISP=(,CATLG),                                00430000
//            UNIT=SYSDA,SPACE=(TRK,(1,1))                              00440000
//SYSUT1   DD *                                                         00450000
THIS IS DATA FOR THE TRAIN-RIGHT JCL & UTILITIES COURSES.               00460000
IF YOU CAN SEE THIS DATA - SUCCESS!!                                    00470000
/*                                                                      00480000
//*                                                                     00490000
//STEP2    EXEC PGM=IEFBR14                                             00500000
//DD1      DD DSN=&LOADLIB,DISP=(,CATLG),                               00510000
//            UNIT=SYSDA,SPACE=(TRK,(1,1,1)),                           00520000
//            DSORG=PO,RECFM=U,LRECL=0,BLKSIZE=28332                    00530000
//*                                                                     00560000
//STEP3    EXEC PROCCOB3,MEMBER=DOGPGM                                  00570000
//                                                                      00690000