Merge pull request #278 from vargajb/master

Some minor changes in jcl's
openmainframeproject · Oct 18, 2022 · 46d3a5c · 46d3a5c
2 parents 91a73c5 + ae7ba63
commit 46d3a5c
Show file tree

Hide file tree

Showing 12 changed files with 19 additions and 9 deletions.
diff --git a/COBOL Programming Course #2 - Learning COBOL/Labs/jcl/ADDAMT.jcl b/COBOL Programming Course #2 - Learning COBOL/Labs/jcl/ADDAMT.jcl
@@ -20,6 +20,7 @@ CUSTOMER
 00050
 00015
 NO
+/*
 //***************************************************/
 // ELSE
 // ENDIF
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21C.jcl b/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)
+/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21R.jcl b/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=*
-/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22C.jcl b/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)
+/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22R.jcl b/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=*
-/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23C.jcl b/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)
+/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23R.jcl b/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=*
-/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CRETBL.jcl b/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;
+/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DB2SETUP.jcl b/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
-/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/LOADTBL.jcl b/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)
 /*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/SELTBL.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/SELTBL.jcl
@@ -6,4 +6,5 @@
 //SQLEXEC EXEC DB2JCL                                                   
 //SYSIN   DD *,SYMBOLS=CNVTSYS                                          
 --******* SQL FOLLOWS                                                   
-  SELECT * FROM &SYSUID.T;                                              
+  SELECT * FROM &SYSUID.T;
+/*
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jclproc/DB2JCL.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jclproc/DB2JCL.jcl
@@ -10,7 +10,8 @@
   DSN SYSTEM(DBCG)                                                      
   RUN  PROGRAM(DSNTEP2) PLAN(DSNTEP12) +                                
        LIB('DSNC10.DBCG.RUNLIB.LOAD') PARMS('/ALIGN(MID)')              
-  END                                                                   
+  END
+/*
 //SYSPRINT DD  SYSOUT=*                                                 
 //SYSUDUMP DD  DUMMY                                                    
 //         PEND
-Original file line number
+Diff line change
@@ Expand Up / @@ -20,6 +20,7 @@ CUSTOMER @@
     NO
+    /*
     //***************************************************/
     // ELSE
     // ENDIF