Skip to content

Fix variable references and comment errors in lab programs #344

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
DukeDeSouth wants to merge 1 commit into
base: master
Choose a base branch
from
+10 −10
Open

Fix variable references and comment errors in lab programs #344

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0008.cobol
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -182,8 +182,8 @@
* 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.
* ADD ACCT-BALANCE TO TBALANCE GIVING TBALANCE.
* An END-COMPUTE or END-ADD statement is optional.
*
WRITE-RECORD.
MOVE ACCT-NO TO ACCT-NO-O.
Expand Down
14 changes: 7 additions & 7 deletions COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0009.cobol
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -151,7 +151,7 @@
.
*
WRITE-TLIMIT-TBALANCE.
MOVE TLIMIT TO TLIMIT-O.
MOVE TLIMITED TO TLIMIT-O.
MOVE TBALANCE TO TBALANCE-O.
WRITE PRINT-REC FROM TRAILER-1.
WRITE PRINT-REC FROM TRAILER-2.
Expand All @@ -171,19 +171,19 @@
* in order to calculate the final limit and balance report.
*
LIMIT-BALANCE-TOTAL.
COMPUTE TLIMIT = TLIMIT + ACCT-LIMIT END-COMPUTE
COMPUTE TLIMITED = TLIMITED + 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.
* expression to the TLIMITED 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-LIMIT TO TLIMITED.
* 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.
* ADD ACCT-LIMIT TO TLIMITED GIVING TLIMITED.
* ADD ACCT-BALANCE TO TBALANCE GIVING TBALANCE.
* An END-COMPUTE or END-ADD statement is optional.
*
WRITE-RECORD.
MOVE ACCT-NO TO ACCT-NO-O.
Expand Down
2 changes: 1 addition & 1 deletion COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL006A.cobol
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -154,7 +154,7 @@
* - Adds to NEWYORK-CLIENTS counter

IS-STATE-NEWYORK.
IF USA-STATE = 'new York' THEN
IF USA-STATE = 'New York' THEN
ADD 1 TO NEWYORK-CLIENTS
END-IF.

Expand Down