Add comments to CBL0008 and CBL0009

Signed-off-by: klausmelcher <[email protected]>

Author: klausmelcher

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

@@ -46,6 +46,13 @@
        01  TLIMIT-TBALANCE.
            05 TLIMIT              PIC S9(9)V99 COMP-3 VALUE ZERO.
            05 TBALANCE            PIC S9(9)V99 COMP-3 VALUE ZERO.
+      *    TLIMIT -- variable for total of all client's
+      *    bank account limits.
+      *    TBALANCE -- variable for total of all client's
+      *    bank account balances.
+      *    The PIC Clause S9 allows representation of positive and
+      *    negative balances. Using PIC Clause $$$,$$$,$$9.99 
+      *    only a positive total balance could be displayed . 
       *
        01  HEADER-1.
            05  FILLER         PIC X(20) VALUE 'Financial Report for'.
@@ -97,6 +104,8 @@
            05  FILLER         PIC X(01) VALUE SPACES.
            05  TBALANCE-O     PIC $$$,$$$,$$9.99.
            05  FILLER         PIC X(40) VALUE SPACES.
+      *    Just like HEADER, TRAILER formats the report for
+      *    total client account limit and balance
       *
        01 WS-CURRENT-DATE-DATA.
            05  WS-CURRENT-DATE.
@@ -137,6 +146,7 @@
             PERFORM READ-RECORD
             END-PERFORM
            .
+      * 
        WRITE-TLIMIT-TBALANCE.
             MOVE TLIMIT   TO TLIMIT-O.
             MOVE TBALANCE TO TBALANCE-O.
@@ -152,11 +162,25 @@
            READ ACCT-REC
            AT END MOVE 'Y' TO LASTREC
            END-READ.
+      *
+      *     The LIMIT-BALANCE-TOTAL paragraph performs an arithmetic
+      *     statement for each client through the loop,
+      *     in order to calculate the final limit and balance report.
       *
        LIMIT-BALANCE-TOTAL.
            COMPUTE TLIMIT   = TLIMIT   + ACCT-LIMIT   END-COMPUTE
            COMPUTE TBALANCE = TBALANCE + ACCT-BALANCE END-COMPUTE
            .
+      *    The COMPUTE verb assigns the value of the arithmetic 
+      *    expression to the TLIMIT and TBALANCE data items.
+      *    Since the expression only includes an addition operation,
+      *    the statements can also be written as:
+      *    ADD ACCT-LIMIT TO TLIMIT.
+      *    ADD ACCT-BALANCE TO TBALANCE.
+      *    Or, alternatively specifying the target variable:
+      *    ADD ACCT-LIMIT TO TLIMIT GIVING TLIMIT. 
+      *    ADD ACCT-BALANCE TO TBALANCE GIVING TLIMIT.
+      *    A END-COMPUTE or END-ADD stetement is optional.
       *
        WRITE-RECORD.
            MOVE ACCT-NO      TO  ACCT-NO-O.

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

@@ -46,6 +46,13 @@
        01  TLIMIT-TBALANCE.
            05 TLIMITED            PIC S9(9)V99 COMP-3 VALUE ZERO.
            05 TBALANCE            PIC S9(9)V99 COMP-3 VALUE ZERO.
+      *    TLIMITED -- variable for total of all client's
+      *    bank account limits.
+      *    TBALANCE -- variable for total of all client's
+      *    bank account balances.
+      *    The PIC Clause S9 allows representation of positive and
+      *    negative balances. Using PIC Clause $$$,$$$,$$9.99 
+      *    only a positive total balance could be displayed . 
       *
        01  HEADER-1.
            05  FILLER         PIC X(20) VALUE 'Financial Report for'.
@@ -97,6 +104,8 @@
            05  FILLER         PIC X(01) VALUE SPACES.
            05  TBALANCE-O     PIC $$$,$$$,$$9.99.
            05  FILLER         PIC X(40) VALUE SPACES.
+      *    Just like HEADER, TRAILER formats the report for
+      *    total client account limit and balance
       *
        01 WS-CURRENT-DATE-DATA.
            05  WS-CURRENT-DATE.
@@ -137,6 +146,7 @@
             PERFORM READ-RECORD
             END-PERFORM
            .
+      * 
        WRITE-TLIMIT-TBALANCE.
             MOVE TLIMIT   TO TLIMIT-O.
             MOVE TBALANCE TO TBALANCE-O.
@@ -152,11 +162,25 @@
            READ ACCT-REC
            AT END MOVE 'Y' TO LASTREC
            END-READ.
+      *
+      *     The LIMIT-BALANCE-TOTAL paragraph performs an arithmetic
+      *     statement for each client through the loop,
+      *     in order to calculate the final limit and balance report.
       *
        LIMIT-BALANCE-TOTAL.
            COMPUTE TLIMIT   = TLIMIT   + ACCT-LIMIT   END-COMPUTE
            COMPUTE TBALANCE = TBALANCE + ACCT-BALANCE END-COMPUTE
            .
+      *    The COMPUTE verb assigns the value of the arithmetic 
+      *    expression to the TLIMIT and TBALANCE data items.
+      *    Since the expression only includes an addition operation,
+      *    the statements can also be written as:
+      *    ADD ACCT-LIMIT TO TLIMIT.
+      *    ADD ACCT-BALANCE TO TBALANCE.
+      *    Or, alternatively specifying the target variable:
+      *    ADD ACCT-LIMIT TO TLIMIT GIVING TLIMIT. 
+      *    ADD ACCT-BALANCE TO TBALANCE GIVING TLIMIT.
+      *    A END-COMPUTE or END-ADD stetement is optional.
       *
        WRITE-RECORD.
            MOVE ACCT-NO      TO  ACCT-NO-O.