Merge branch 'master' into add-jcl

MikeBauerCA · web-flow · commit 981df0659cbf · 2021-06-29T15:12:43.000-04:00
diff --git a/COBOL Programming Course #1 - Getting Started/COBOL Programming Course #1 - Getting Started.md b/COBOL Programming Course #1 - Getting Started/COBOL Programming Course #1 - Getting Started.md
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0004.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0004.cobol
@@ -100,10 +100,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *------------------
        PROCEDURE DIVISION.
       *------------------
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0005.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0005.cobol
@@ -100,10 +100,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *------------------
        PROCEDURE DIVISION.
       *------------------
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0006.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0006.cobol
@@ -90,10 +90,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *    This data layout is organized according to the ouput
       *    format of the FUNCTION CURRENT-DATE.
       *
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0007.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0007.cobol
@@ -96,10 +96,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *
       *------------------
        PROCEDURE DIVISION.
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0008.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0008.cobol
@@ -113,10 +113,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *
       *------------------
        PROCEDURE DIVISION.
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0009.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0009.cobol
@@ -113,10 +113,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *
       *------------------
        PROCEDURE DIVISION.
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0010.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0010.cobol
@@ -117,10 +117,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *
       *------------------
        PROCEDURE DIVISION.
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0011.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0011.cobol
@@ -104,10 +104,10 @@
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
-               10  WS-CURRENT-HOURS        PIC 9(02).
+               10  WS-CURRENT-HOUR         PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
-               10  WS-CURRENT-MILLISECONDS PIC 9(02).
+               10  WS-CURRENT-CENTISECOND  PIC 9(02).
       *
       *------------------
        PROCEDURE DIVISION.
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/SRCHBIN.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/SRCHBIN.cobol
@@ -0,0 +1,70 @@
+      *-----------------------
+       IDENTIFICATION DIVISION.
+      *-----------------------
+       PROGRAM-ID.    SRCHBIN.
+       AUTHOR.        Otto B. Boolean.
+      *--------------------
+       ENVIRONMENT DIVISION.
+      *--------------------
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT ACCT-REC   ASSIGN TO ACCTREC.
+      *-------------
+       DATA DIVISION.
+      *-------------
+       FILE SECTION.
+       FD  ACCT-REC RECORDING MODE F.
+       01  ACCT-FIELDS        PIC X(170).
+      *
+       WORKING-STORAGE SECTION.
+       01  FLAGS.
+           05  LASTREC            PIC X VALUE SPACE.
+               88  END-OF-FILE          VALUE 'Y'.
+           05  TABLE-VAR          PIC S9(4) COMP.
+           05  TABLE-MAX          PIC S9(4) COMP VALUE 45.
+      *
+       01  ACCT-TABLE.
+           05  ACCT-TABLE-ITEM OCCURS 45 TIMES ASCENDING KEY IS ACCT-NO
+               INDEXED BY TABLE-IDX.
+               10  ACCT-NO            PIC X(8).
+               10  ACCT-LIMIT         PIC S9(7)V99 COMP-3.
+               10  ACCT-BALANCE       PIC S9(7)V99 COMP-3.
+               10  LAST-NAME          PIC X(20).
+               10  FIRST-NAME         PIC X(15).
+               10  CLIENT-ADDR.
+                   15  STREET-ADDR    PIC X(25).
+                   15  CITY-COUNTY    PIC X(20).
+                   15  USA-STATE      PIC X(15).
+               10  RESERVED           PIC X(7).
+               10  COMMENTS           PIC X(50).
+      *
+      *------------------
+       PROCEDURE DIVISION.
+      *------------------
+       OPEN-FILES.
+           OPEN INPUT ACCT-REC.
+      *
+       LOAD-TABLES.
+           PERFORM READ-RECORD.
+           PERFORM VARYING TABLE-VAR FROM 1 BY 1
+             UNTIL TABLE-VAR = TABLE-MAX OR END-OF-FILE
+               MOVE ACCT-FIELDS TO ACCT-TABLE-ITEM (TABLE-VAR)
+               PERFORM READ-RECORD
+           END-PERFORM.
+      *
+       SEARCH-RECORD.
+           SET TABLE-IDX TO 1.
+           SEARCH ALL ACCT-TABLE-ITEM
+               AT END DISPLAY "Not Found"
+               WHEN ACCT-NO (TABLE-IDX) = 18011809
+                   DISPLAY "User with Acct No 18011809 is found!".
+      *
+       CLOSE-STOP.
+           CLOSE ACCT-REC.
+           GOBACK.
+      *
+       READ-RECORD.
+           READ ACCT-REC
+           AT END MOVE 'Y' TO LASTREC
+           END-READ.
+      *
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/cbl/SRCHSER.cobol b/COBOL Programming Course #1 - Getting Started/Labs/cbl/SRCHSER.cobol
@@ -0,0 +1,69 @@
+      *-----------------------
+       IDENTIFICATION DIVISION.
+      *-----------------------
+       PROGRAM-ID.    SRCHSER.
+       AUTHOR.        Otto B. Boolean.
+      *--------------------
+       ENVIRONMENT DIVISION.
+      *--------------------
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT ACCT-REC   ASSIGN TO ACCTREC.
+      *-------------
+       DATA DIVISION.
+      *-------------
+       FILE SECTION.
+       FD  ACCT-REC RECORDING MODE F.
+       01  ACCT-FIELDS        PIC X(170).
+      *
+       WORKING-STORAGE SECTION.
+       01  FLAGS.
+           05  LASTREC            PIC X VALUE SPACE.
+               88  END-OF-FILE          VALUE 'Y'.
+           05  TABLE-VAR          PIC S9(4) COMP.
+           05  TABLE-MAX          PIC S9(4) COMP VALUE 45.
+      *
+       01  ACCT-TABLE.
+           05  ACCT-TABLE-ITEM OCCURS 45 TIMES INDEXED BY TABLE-IDX.
+               10  ACCT-NO            PIC X(8).
+               10  ACCT-LIMIT         PIC S9(7)V99 COMP-3.
+               10  ACCT-BALANCE       PIC S9(7)V99 COMP-3.
+               10  LAST-NAME          PIC X(20).
+               10  FIRST-NAME         PIC X(15).
+               10  CLIENT-ADDR.
+                   15  STREET-ADDR    PIC X(25).
+                   15  CITY-COUNTY    PIC X(20).
+                   15  USA-STATE      PIC X(15).
+               10  RESERVED           PIC X(7).
+               10  COMMENTS           PIC X(50).
+      *
+      *------------------
+       PROCEDURE DIVISION.
+      *------------------
+       OPEN-FILES.
+           OPEN INPUT ACCT-REC.
+      *
+       LOAD-TABLES.
+           PERFORM READ-RECORD.
+           PERFORM VARYING TABLE-VAR FROM 1 BY 1
+             UNTIL TABLE-VAR = TABLE-MAX OR END-OF-FILE
+               MOVE ACCT-FIELDS TO ACCT-TABLE-ITEM (TABLE-VAR)
+               PERFORM READ-RECORD
+           END-PERFORM.
+      *
+       SEARCH-RECORD.
+           SET TABLE-IDX TO 1.
+           SEARCH ACCT-TABLE-ITEM VARYING TABLE-IDX
+               AT END DISPLAY "Not Found"
+               WHEN LAST-NAME (TABLE-IDX) = "ROOSEVELT"
+                   DISPLAY "Roosevelt is found!".
+      *
+       CLOSE-STOP.
+           CLOSE ACCT-REC.
+           GOBACK.
+      *
+       READ-RECORD.
+           READ ACCT-REC
+           AT END MOVE 'Y' TO LASTREC
+           END-READ.
+      *
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/jcl/SRCHBINJ.jcl b/COBOL Programming Course #1 - Getting Started/Labs/jcl/SRCHBINJ.jcl
@@ -0,0 +1,18 @@
+//SRCHBINJ JOB 1,NOTIFY=&SYSUID
+//***************************************************/
+//COBRUN  EXEC IGYWCL
+//COBOL.SYSIN  DD DSN=&SYSUID..CBL(SRCHBIN),DISP=SHR
+//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(SRCHBIN),DISP=SHR
+//***************************************************/
+// IF RC = 0 THEN
+//***************************************************/
+//RUN     EXEC PGM=SRCHBIN
+//STEPLIB   DD DSN=&SYSUID..LOAD,DISP=SHR
+//ACCTREC   DD DSN=&SYSUID..DATA,DISP=SHR
+//PRTLINE   DD SYSOUT=*,OUTLIM=15000
+//SYSOUT    DD SYSOUT=*,OUTLIM=15000
+//CEEDUMP   DD DUMMY
+//SYSUDUMP  DD DUMMY
+//***************************************************/
+// ELSE
+// ENDIF
diff --git a/COBOL Programming Course #1 - Getting Started/Labs/jcl/SRCHSERJ.jcl b/COBOL Programming Course #1 - Getting Started/Labs/jcl/SRCHSERJ.jcl
@@ -0,0 +1,18 @@
+//SRCHSERJ JOB 1,NOTIFY=&SYSUID
+//***************************************************/
+//COBRUN  EXEC IGYWCL
+//COBOL.SYSIN  DD DSN=&SYSUID..CBL(SRCHSER),DISP=SHR
+//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(SRCHSER),DISP=SHR
+//***************************************************/
+// IF RC = 0 THEN
+//***************************************************/
+//RUN     EXEC PGM=SRCHSER
+//STEPLIB   DD DSN=&SYSUID..LOAD,DISP=SHR
+//ACCTREC   DD DSN=&SYSUID..DATA,DISP=SHR
+//PRTLINE   DD SYSOUT=*,OUTLIM=15000
+//SYSOUT    DD SYSOUT=*,OUTLIM=15000
+//CEEDUMP   DD DUMMY
+//SYSUDUMP  DD DUMMY
+//***************************************************/
+// ELSE
+// ENDIF
diff --git a/COBOL Programming Course #2 - Advanced Topics/COBOL Programming Course #2 - Advanced Topics.md b/COBOL Programming Course #2 - Advanced Topics/COBOL Programming Course #2 - Advanced Topics.md
@@ -48,15 +48,15 @@ Three ‘Enterprise COBOL for z/OS” manuals are referenced throughout the chap
 
 - What’s New in Enterprise COBOL for z/OS V6.1:
 
-   [https://youtu.be/N_Zsd1W8hWc](https://youtu.be/N_Zsd1W8hWc)
+   [https://www.ibm.com/support/pages/cobol-v61-was-announced-whats-new](https://www.ibm.com/support/pages/cobol-v61-was-announced-whats-new)
 
 - What’s New in Enterprise COBOL for z/OS V6.2:
 
-   [https://youtu.be/H0iweEbVNFs](https://youtu.be/H0iweEbVNFs)
+   [https://www.ibm.com/support/pages/cobol-v62-was-announced-whats-new](https://www.ibm.com/support/pages/cobol-v62-was-announced-whats-new)
 
 - What’s New in Enterprise COBOL for z/OS V6.3:
 
-   [https://youtu.be/bRLKGeB6W2A](https://youtu.be/bRLKGeB6W2A)
+   [https://www.ibm.com/support/pages/cobol-v63-was-announced-whats-new](https://www.ibm.com/support/pages/cobol-v63-was-announced-whats-new)
 
 \newpage
 # Numerical Data Representation
@@ -750,7 +750,7 @@ We will explore the popular Hacker News website for this challenge. Hacker News
 The site offers a dynamic list of posts/stories, submitted by users, each of which could be expanded into its own unique comment thread. Readers can upvote or downvote links and comments, and the top thirty links are featured on the front page. Today, more than five million people read Hacker News each month, and landing a blog post on the front page is a badge of honor for many technologists.
 
 ### Our Goal
-We will be working on a Hacker News 2015-2016 dataset from Kaggle with a full year’s worth of stories:  Our goal is to extract only the Mainframe/COBOL related stories and assign ranking scores to them based on (a simplified version) the published Hacker News ranking algorithm. We will create a front page report that reflects this ranking order. The algorithm works in a way that nothing stays on the front page for too long, so a story’s score will eventually drop to zero over time (the gravity effect). Since our posts are spread out over a year and as older posts will always have a lower (or zero) ranking, we will distort the data so all our stories have the same date and and consider only the times in the ranking score calculation. This will give all our posts a fair chance of landing the front page.  Our front page report is published at 11:59pm. [Here's some additional information on the ranking.](http://www.righto.com/2013/11/how-hacker-news-ranking-really-works.html)
+We will be working on a Hacker News 2015-2016 dataset from Kaggle with a full year’s worth of stories:  Our goal is to extract only the Mainframe/COBOL related stories and assign ranking scores to them based on (a simplified version) the published Hacker News ranking algorithm. We will create a front page report that reflects this ranking order. The algorithm works in a way that nothing stays on the front page for too long, so a story’s score will eventually drop to zero over time (the gravity effect). Since our posts are spread out over a year and as older posts will always have a lower (or zero) ranking, we will distort the data so all our stories have the same date and and consider only the times in the ranking score calculation. This will give all our posts a fair chance of landing the front page.  Our front page report is published at 11:59pm. [Here's some additional information on the ranking.](https://www.righto.com/2013/11/how-hacker-news-ranking-really-works.html)
 
 ### The Plan
  - There are different creative ways of accomplishing this but here’s our plan: We will have a COBOL program that reads the input CSV file and retrieves only the ***Mainframe/COBOL*** stories. It then calculates the ranking score for the stories by factoring in the time they were posted and the number of votes they received. Each of the records is then written to an output dataset along with the ranking score. 
@@ -778,9 +778,9 @@ We will be working on a Hacker News 2015-2016 dataset from Kaggle with a full ye
 
 5. Next add a new step in the JCL member to run the `DFSORT` utility on the output dataset from the previous step. The sort should be done on the ranking score field, from highest to lowest. Use `DFSORT` to also print headers for our front page. As this is a new utility not covered in the course, please check out these links to explore this very powerful and versatile tool:
  
-   [Getting started with DFSORT](https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.iceg200/abstract.htm)
+   [Getting started with DFSORT](https://www.ibm.com/docs/en/zos/2.4.0?topic=dfsort-zos-getting-started)
 
-   [Example with DFSORT](https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.icea100/ice2ca_Example_10._Sort_with_OUTFIL.htm)
+   [Example with DFSORT](https://www.ibm.com/docs/en/zos/2.4.0?topic=examples-example-10-sort-outfil)
 
 
 6. Run and debug until the front page looks ready! Which posts ranked among the highest? Here's a look at the generated report:
