Merge branch 'master' into add-table-handling-with-labs

Author: MikeBauerCA

COBOL Programming Course #1 - Getting Started/COBOL Programming Course #1 - Getting Started.md

@@ -3518,24 +3518,58 @@ A PERFORM with UNTIL phrase is a conditional expression.  In the UNTIL phrase fo
 
 
 ```
-PERFORM SAY-SOMETHING-DIFFERENT BY FACIAL-EXP UNTIL 'HAPPY'
+WORKING-STORAGE.
+01 FACIAL-EXP    PIC X(11) VALUE SPACES.
+   88 HAPPY      VALUE 'HAPPY'.
+....
+....
+PROCEDURE DIVISION.
+....
+....
+PERFORM SAY-SOMETHING-DIFFERENT UNTIL HAPPY
 END-PERFORM.
 ```
 
-*Example 5. PERFORM statement*
+*Example 5. PERFORM statement with 88-level conditional name*
+
+
+It is also possible to use PERFORM statement without the use of a 88-level conditional name, observe Example 6.
+
+```
+WORKING-STORAGE.
+01 FACIAL-EXP    PIC X(11) VALUE SPACES.
+....
+....
+PROCEDURE DIVISION.
+....
+....
+PERFORM SAY-SOMETHING-DIFFERENT UNTIL FACIAL-EXP = "HAPPY"
+END-PERFORM.
+```
+
+*Example 6. PERFORM statement without 88-level conditional name*
 
 
 ### SEARCH statements
 
-The SEARCH statement searches a table for an element that satisfies the specified condition and adjusts the associated index to indicate that element.  Tables, effectively an array of values, are created with an OCCURS clause applied to WORK-STORAGE data-names.  A WHEN clause is utilized in SEARCH statements to verify if the element searched for satisfies the specified condition.  Assuming FACIAL-EXP has many possible values, then SEARCH WHEN is an alternative conditional expression, observe Example 6.
+The SEARCH statement searches a table for an element that satisfies the specified condition and adjusts the associated index to indicate that element.  Tables, effectively an array of values, are created with an OCCURS clause applied to WORK-STORAGE data-names.  A WHEN clause is utilized in SEARCH statements to verify if the element searched for satisfies the specified condition.  Assuming FACIAL-EXP has many possible values, then SEARCH WHEN is an alternative conditional expression, observe Example 7.
 
 
 ```
+WORKING-STORAGE.
+01  FACIAL-EXP-TABLE REDEFINES FACIAL-EXP-LIST.
+    05  FACIAL-EXP  PIC X(11) OCCURS n TIMES INDEXED BY INX-A.
+        88  HAPPY VALUE "HAPPY".
+....
+....
+PROCEDURE DIVISION.
+....
+....
 SEARCH FACIAL-EXP
-WHEN 'HAPPY' STOP RUN
+WHEN HAPPY(INX-A) DISPLAY 'I am glad you are happy'
 END-SEARCH
 ```
-*Example 6. SEARCH WHEN statement*
+*Example 7. SEARCH WHEN statement*
 
 
 ## Conditions

COBOL Programming Course #1 - Getting Started/Labs/README.md

@@ -19,5 +19,5 @@ Note:
 
 **data** folder
 - member **data** must be transferred binary to z/OS because the data contains EBCDIC and Packed Decimal
-- member **datax** is a viewable ASCII data but the packed decimal fields were translated to ASCII and are unreadable
+- member **xdata** is a viewable ASCII data but the packed decimal fields were translated to ASCII and are unreadable