Merge pull request #278 from vargajb/master

Some minor changes in jcl's

Author: tanto259

COBOL Programming Course #2 - Learning COBOL/Labs/jcl/ADDAMT.jcl

@@ -20,6 +20,7 @@ CUSTOMER
 00050
 00015
 NO
+/*
 //***************************************************/
 // ELSE
 // ENDIF

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21C.jcl

@@ -8,3 +8,4 @@
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..*) MEMBER(CBLDB21) -
       ACT(REP) ISO(CS) ENCODING(EBCDIC)
+/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21R.jcl

@@ -12,9 +12,9 @@
  DSN SYSTEM(DBCG)
  RUN PROGRAM(CBLDB21) PLAN(&SYSUID) LIB('&SYSUID..LOAD')
  END
+/*
 //SYSIN    DD DUMMY
 //SYSUDUMP DD DUMMY
 //CEEDUMP  DD DUMMY
 //SYSTSPRT DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
-/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22C.jcl

@@ -8,3 +8,4 @@
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..*) MEMBER(CBLDB22) -
       ACT(REP) ISO(CS) ENCODING(EBCDIC)
+/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22R.jcl

@@ -9,13 +9,14 @@
 //STEPLIB  DD DSN=DSNC10.SDSNLOAD,DISP=SHR
 //RECIN    DD *
 LINCOLN
+/*
 //SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  RUN PROGRAM(CBLDB22) PLAN(&SYSUID) LIB('&SYSUID..LOAD')
  END
+/*
 //SYSIN    DD DUMMY
 //SYSUDUMP DD DUMMY
 //CEEDUMP  DD DUMMY
 //SYSTSPRT DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
-/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23C.jcl

@@ -8,3 +8,4 @@
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..CBLDB23) MEMBER(CBLDB23) -
       ACT(REP) ISO(CS) ENCODING(EBCDIC)
+/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23R.jcl

@@ -10,13 +10,14 @@
 //REPORT   DD SYSOUT=*
 //CARDIN   DD *
 *
+/*
 //SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  RUN PROGRAM(CBLDB23) PLAN(&SYSUID) LIB('&SYSUID..LOAD')
  END
+/*
 //SYSIN    DD DUMMY
 //SYSUDUMP DD DUMMY
 //CEEDUMP  DD DUMMY
 //SYSTSPRT DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
-/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CRETBL.jcl

@@ -33,4 +33,5 @@
                    USING STOGROUP DB2DISK  PRIQTY 12 ERASE NO           
                    BUFFERPOOL BP0 CLOSE NO;                             
 --*******************************************************               
-  COMMIT;                                                               
+  COMMIT;
+/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DB2SETUP.jcl

@@ -20,7 +20,7 @@ COPYOPER   COPY    OUTDD=JCL,INDD=DB2JCL
                            (CBLDB23C,,R),                              X
                            (CBLDB23R,,R),                              X
                            (CRETBL,,R),                                X
-                           (DBRMLIB,R),                                X
+                           (DBRMLIB,,R),                               X
                            (LOADTBL,,R),                               X
                            (SELTBL,,R),                                X
                            ($README,,R))
@@ -29,8 +29,8 @@ COPYOPER   COPY    OUTDD=CBL,INDD=DB2CBL
                            (CBLDB22,,R),                               X
                            (CBLDB23,,R),                               X
                            ($README,,R))
+/*
 //DBRMLIB EXEC PGM=IEFBR14
 //DBRMLIB DD DSN=&SYSUID..DBRMLIB,DISP=(,CATLG),
 // UNIT=3390,VOL=SER=DB2004,SPACE=(CYL,(1,1)),
 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000,DSORG=PO),DSNTYPE=LIBRARY
-/*

COBOL Programming Course #3 - Advanced Topics/Labs/jcl/LOADTBL.jcl

@@ -18,7 +18,8 @@
       RESERVED  POSITION(114) CHAR(7),
       COMMENTS  POSITION(121) CHAR(50))
   SORTDEVT SYSALLDA SORTNUM 2
-//RUNSTAT EXEC DSNUPROC,PARM='DBCG,Z99'
+/*
+//RUNSTAT EXEC DSNUPROC,PARM='DBCG,Z99',COND=(0,NE)
 //SYSIN    DD  *,SYMBOLS=CNVTSYS
   RUNSTATS TABLESPACE DB2.&SYSUID.S INDEX(ALL) TABLE(ALL)
 /*