//* COPY YOUR JOBCARD HERE.                                             00010001
//*                                                                     00020001
//**********************************************************************00030001
//*                                                                    *00040001
//*       T R A I N - R I G H T   J C L   C L A S S   S E T U P        *00050001
//*                                                                    *00060001
//*  SET THE SYMBOLIC PARAMETERS BELOW TO THE FOLLOWING VALUES:        *00070001
//*                                                                    *00080001
//*  HLQ     - THE HIGH LEVEL QUALIFIER OF THE UPLOADED JCL DATASET.   *00090001
//*  COBCOMP - THE DATASET NAME WHERE THE COBOL COMPILER PROGRAM       *00100001
//*            RESIDES.                                                *00110001
//*  LELINK  - THE DATASET NAME WHERE THE COBOL (LE) SYSTEM ROUTINES   *00120001
//*            RESIDE.                                                 *00130001
//*  SRCLIB  - THE DATASET NAME OF YOUR JCL CLASSROOM LIBRARY.         *00140001
//*  LOADLIB - THE DATASET NAME WHERE THE COMPILED AND LINKED          *00150001
//*            LOAD MODULE WILL RESIDE.                                *00160001
//*  STULIB  - THE DATASET NAME OF THE STUDENT LIBRARY.                *00170001
//*  SEQDSN  - THE DATASET NAME OF A SEQUENTIAL DATASET.               *00180001
//*                                                                    *00190001
//**********************************************************************00200001
//SETVAR1  SET HLQ=,                                                    00210001
//             COBCOMP=,                                                00220001
//             LELINK=                                                  00230001
//*                                                                     00240001
//SETVAR2  SET SRCLIB=&HLQ..JCL.LIB,                                    00250001
//             LOADLIB=&HLQ..JCL.LOAD,                                  00260001
//             STULIB=&HLQ..JCL.CLASS,                                  00270001
//             SEQDSN=&HLQ..JCL.DATA                                    00280001
//*                                                                     00290001
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00300001
//*                                                                     00310001
//STEP0    EXEC PGM=IEFBR14                                             00320001
//DD1      DD DSN=&SEQDSN,DISP=(MOD,DELETE),                            00330001
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00340001
//DD2      DD DSN=&LOADLIB,DISP=(MOD,DELETE),                           00350001
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00360001
//DD3      DD DSN=&STULIB,DISP=(MOD,DELETE),                            00370001
//            UNIT=SYSDA,SPACE=(TRK,0)                                  00380001
//*                                                                     00390001
//STEP1    EXEC PGM=IEBGENER                                            00400001
//SYSPRINT DD SYSOUT=*                                                  00410001
//SYSIN    DD DUMMY                                                     00420001
//SYSUT2   DD DSN=&SEQDSN,DISP=(,CATLG),                                00430001
//            UNIT=SYSDA,SPACE=(TRK,(1,1))                              00440001
//SYSUT1   DD *                                                         00450001
THIS IS DATA FOR THE TRAIN-RIGHT JCL & UTILITIES COURSES.               00460001
IF YOU CAN SEE THIS DATA - SUCCESS!!                                    00470001
/*                                                                      00480001
//*                                                                     00490001
//STEP2    EXEC PGM=IEFBR14                                             00500001
//DD1      DD DSN=&LOADLIB,DISP=(,CATLG),                               00510001
//            UNIT=SYSDA,SPACE=(TRK,(1,1,1)),                           00520001
//            DSORG=PO,RECFM=U,LRECL=0,BLKSIZE=28332                    00530001
//DD2      DD DSN=&STULIB,DISP=(,CATLG),                                00540001
//            UNIT=SYSDA,LIKE=&SRCLIB                                   00550001
//*                                                                     00560001
//STEP3    EXEC PROCCOB3,MEMBER=DOGPGM                                  00570001
//*                                                                     00580001
//STEP4    EXEC PGM=IEBCOPY                                             00590001
//SYSPRINT DD SYSOUT=*                                                  00600001
//SYSUT1   DD DSN=&SRCLIB,DISP=SHR                                      00610001
//SYSUT2   DD DSN=&STULIB,DISP=SHR                                      00620001
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00630001
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00640001
//SYSIN    DD *                                                         00650001
 COPY O=SYSUT2,I=SYSUT1                                                 00660001
 S M=PROCCOB3,DOGPGM,DOGDATA,SETUP                                      00670001
/*                                                                      00680001
//                                                                      00690001