Merge branch 'master' into challenges-fmt

Author: jellypuno

COBOL Programming Course #1 - Getting Started/Images/image145.jpg

@@ -94,6 +94,8 @@
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
                10  WS-CURRENT-MILLISECONDS PIC 9(02).
+      *    This data layout is organized according to the ouput
+      *    format of the FUNCTION CURRENT-DATE.
       *
       *------------------
        PROCEDURE DIVISION.
@@ -104,6 +106,10 @@
       *
        WRITE-HEADERS.
            MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-DATA.
+      *         The CURRENT-DATE function returns an alphanumeric value
+      *         that represents the calendar date and time of day
+      *         provided by the system on which the function is
+      *         evaluated.    
            MOVE WS-CURRENT-YEAR  TO HDR-YR.
            MOVE WS-CURRENT-MONTH TO HDR-MO.
            MOVE WS-CURRENT-DAY   TO HDR-DAY.
@@ -139,6 +145,11 @@
            IF USA-STATE = 'Virginia' THEN
               ADD 1 TO VIRGINIA-CLIENTS
            END-IF.
+      *    Boolean logic -- when the conditional expression 
+      *    USA-STATE = 'Virginia' is true, the program
+      *    counts one more client from Virginia
+      *    Note -- the inclusion of the word THEN is optional
+      *    END-IF -- explicitly terminates the IF statement 
       *
        WRITE-RECORD.
            MOVE ACCT-NO      TO  ACCT-NO-O.

COBOL Programming Course #1 - Getting Started/Labs/cbl/CBL0006.cobol

@@ -36,6 +36,12 @@
                10  STREET-ADDR    PIC X(25).
                10  CITY-COUNTY    PIC X(20).
                10  USA-STATE      PIC X(15).
+                   88  STATE      VALUE 'Virginia'.
+      *    Level-number 88 declares a conditional data-name called STATE
+      *    which is associated with data-name USA-STATE.
+      *    STATE becomes TRUE when 'Virginia' is put into USA-STATE.
+      *    STATE is used in the parapgraph IS-STATE-VIRGINIA.
+      *
            05  RESERVED           PIC X(7).
            05  COMMENTS           PIC X(50).
       *
@@ -136,9 +142,10 @@
            END-READ.
       *
        IS-STATE-VIRGINIA.
-           IF USA-STATE = 'Virginia' THEN
-              ADD 1 TO VIRGINIA-CLIENTS.
+           IF STATE ADD 1 TO VIRGINIA-CLIENTS.
            END-IF.
+      *    When the current value of USA-STATE equals 'Virginia' 
+      *    the conditional data-name STATE is TRUE.
       *
        WRITE-RECORD.
            MOVE ACCT-NO      TO  ACCT-NO-O.