Merge pull request #277 from vargajb/master

tanto259 · web-flow · commit 91a73c512579 · 2022-10-18T11:14:10.000+08:00
Signed-off-by: Hartanto Ario Widjaya &lt;13640520+tanto259@users.noreply.github.com&gt;
diff --git a/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/SRCHBIN.cobol b/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/SRCHBIN.cobol
@@ -68,6 +68,6 @@
       *
        READ-RECORD.
            READ ACCT-REC
-           AT END MOVE 'Y' TO LASTREC
+           AT END SET END-OF-FILE TO TRUE
            END-READ.
-      *
+      *
diff --git a/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/SRCHSER.cobol b/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/SRCHSER.cobol
@@ -67,6 +67,6 @@
       *
        READ-RECORD.
            READ ACCT-REC
-           AT END MOVE 'Y' TO LASTREC
+           AT END SET END-OF-FILE TO TRUE
            END-READ.
-      *
+      *
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB22.cbl b/COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB22.cbl
@@ -101,7 +101,7 @@
                 OPEN INPUT  RECIN.                                      
                 OPEN OUTPUT REPOUT.                                     
                 READ RECIN  RECORD INTO IOAREA                          
-                   AT END MOVE 'N' TO INPUT-SWITCH.                     
+                   AT END SET NOMORE-INPUT TO TRUE.
                 PERFORM PROCESS-INPUT                                   
                    UNTIL NOMORE-INPUT.                                  
       *                                                                 
@@ -116,7 +116,7 @@
                 ELSE                                                    
                    PERFORM GET-SPECIFIC.                                
                 READ RECIN  RECORD INTO IOAREA                          
-                   AT END MOVE 'N' TO INPUT-SWITCH.                     
+                   AT END SET NOMORE-INPUT TO TRUE.
       *                                                                 
        GET-ALL.                                                         
                 EXEC SQL OPEN CUR1  END-EXEC.                           
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB23.cbl b/COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB23.cbl
@@ -97,7 +97,7 @@
                 OPEN INPUT  CARDIN.                                     
                 OPEN OUTPUT REPOUT.                                     
                 READ CARDIN RECORD INTO IOAREA                          
-                   AT END MOVE 'N' TO INPUT-SWITCH.                     
+                   AT END SET NOMORE-INPUT TO TRUE.
                 PERFORM PROCESS-INPUT                                   
                    UNTIL NOMORE-INPUT.                                  
        PROG-END.                                                        
@@ -110,7 +110,7 @@
                 ELSE                                                    
                    PERFORM GET-SPECIFIC.                                
                 READ CARDIN RECORD INTO IOAREA                          
-                   AT END MOVE 'N' TO INPUT-SWITCH.                     
+                   AT END SET NOMORE-INPUT TO TRUE.
        GET-ALL.                                                         
                 EXEC SQL OPEN CUR1  END-EXEC.                           
                 EXEC SQL FETCH CUR1  INTO :CUSTOMER-RECORD END-EXEC.    
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21C.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB21C.jcl
@@ -3,7 +3,7 @@
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
 //***************************************************/
-//COMPILE  EXEC DB2CBL,MBR=CBLDB21
+//COMPILE  EXEC DB2CBL,MBR=CBLDB21,PARM=('SQL,CODEPAGE(1047)')
 //BIND.SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..*) MEMBER(CBLDB21) -
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22C.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB22C.jcl
@@ -3,7 +3,7 @@
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
 //***************************************************/
-//COMPILE  EXEC DB2CBL,MBR=CBLDB22
+//COMPILE  EXEC DB2CBL,MBR=CBLDB22,PARM=('SQL,CODEPAGE(1047)')
 //BIND.SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..*) MEMBER(CBLDB22) -
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23C.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CBLDB23C.jcl
@@ -3,7 +3,7 @@
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
 //***************************************************/
-//COMPILE  EXEC DB2CBL,MBR=CBLDB23
+//COMPILE  EXEC DB2CBL,MBR=CBLDB23,PARM=('SQL,CODEPAGE(1047)')
 //BIND.SYSTSIN  DD *,SYMBOLS=CNVTSYS
  DSN SYSTEM(DBCG)
  BIND PLAN(&SYSUID) PKLIST(&SYSUID..CBLDB23) MEMBER(CBLDB23) -
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CRETBL.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/CRETBL.jcl
@@ -1,4 +1,4 @@
-//CREATE1   JOB 1                                                       
+//CREATE1   JOB 1,NOTIFY=&SYSUID
 //***************************************************/
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DB2SETUP.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DB2SETUP.jcl
@@ -1,4 +1,4 @@
-//DB2SETUP JOB   1
+//DB2SETUP JOB   1,NOTIFY=&SYSUID
 //***************************************************/
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DBRMLIB.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/DBRMLIB.jcl
@@ -1,4 +1,4 @@
-//DBRMLIB JOB 1
+//DBRMLIB JOB 1,NOTIFY=&SYSUID
 //***************************************************/
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0
diff --git a/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/SELTBL.jcl b/COBOL Programming Course #3 - Advanced Topics/Labs/jcl/SELTBL.jcl
@@ -1,4 +1,4 @@
-//SELTBL  JOB 1                                                         
+//SELTBL  JOB 1,NOTIFY=&SYSUID
 //***************************************************/
 //* Copyright Contributors to the COBOL Programming Course 
 //* SPDX-License-Identifier: CC-BY-4.0

Original file line number	Diff line number	Diff line change
`@@ -68,6 +68,6 @@`
`68`	`68`	`*`
`69`	`69`	`READ-RECORD.`
`70`	`70`	`READ ACCT-REC`
`71`		`- AT END MOVE 'Y' TO LASTREC`
	`71`	`+ AT END SET END-OF-FILE TO TRUE`
`72`	`72`	`END-READ.`
`73`		`- *`
	`73`	`+ *`
Original file line number	Diff line number	Diff line change
`@@ -67,6 +67,6 @@`
`67`	`67`	`*`
`68`	`68`	`READ-RECORD.`
`69`	`69`	`READ ACCT-REC`
`70`		`- AT END MOVE 'Y' TO LASTREC`
	`70`	`+ AT END SET END-OF-FILE TO TRUE`
`71`	`71`	`END-READ.`
`72`		`- *`
	`72`	`+ *`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-//CREATE1 JOB 1`
	`1`	`+//CREATE1 JOB 1,NOTIFY=&SYSUID`
`2`	`2`	`//***************************************************/`
`3`	`3`	`//* Copyright Contributors to the COBOL Programming Course`
`4`	`4`	`//* SPDX-License-Identifier: CC-BY-4.0`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-//DB2SETUP JOB 1`
	`1`	`+//DB2SETUP JOB 1,NOTIFY=&SYSUID`
`2`	`2`	`//***************************************************/`
`3`	`3`	`//* Copyright Contributors to the COBOL Programming Course`
`4`	`4`	`//* SPDX-License-Identifier: CC-BY-4.0`
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-//DBRMLIB JOB 1`
	`1`	`+//DBRMLIB JOB 1,NOTIFY=&SYSUID`
`2`	`2`	`//***************************************************/`
`3`	`3`	`//* Copyright Contributors to the COBOL Programming Course`
`4`	`4`	`//* SPDX-License-Identifier: CC-BY-4.0`