Skip to content

Commit 347052d

Browse files
committed
replacing images *.jpg
Signed-off-by: klausmelcher <[email protected]>
1 parent 4493699 commit 347052d

File tree

12 files changed

+4
-4
lines changed

12 files changed

+4
-4
lines changed

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

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2084,7 +2084,7 @@ COBOL inputs and outputs must be opened to connect the selected internal name to
20842084

20852085
COBOL inputs and outputs should be closed at program completion or better yet when the program is done reading from or writing to the internal file name. Figure 5. closes the internal file name ACCT-REC and internal file name PRINT-LINE, then stops processing, STOP RUN.
20862086

2087-
![](Images/image129.jpg)
2087+
![](Images/image129.png)
20882088

20892089
*Figure 5. CLOSE-STOP*
20902090

@@ -2131,7 +2131,7 @@ Once all statements in the WRITE-RECORD paragraph are executed, then control is
21312131

21322132
Again, the READ-RECORD paragraph executes the COBOL READ statement, resulting in the external sequential file populating the variables associated with ACCT-REC internal file name. If ‘AT END’ of records read, Y is moved into the LASTREC variable, then returns control to READ-NEXT-RECORD paragraph. The READ-NEXT-RECORD paragraph would continue the iterative process UNTIL Y is found in the LASTREC variable. Observe #3 in Figure 7.
21332133

2134-
![](Images/image131.jpg)
2134+
![](Images/image131.png)
21352135

21362136
*Figure 7. Iterative processing*
21372137

@@ -3485,14 +3485,14 @@ In Figure 3. the READ-NEXT-RECORD paragraph, located within the PROCEDURE DIVIS
34853485

34863486
Figure 4. is an example of two COMPUTE statements in the paragraph, LIMIT-BALANCE-TOTAL. Notice that the results of the COMPUTE statements are to add client ACCT-LIMIT to the current TLIMIT and add client ACCT-BALANCE to TBALANCE totals each time the paragraph is executed, which is one time for each client record read in our example.
34873487

3488-
![](Images/image162.jpg)
3488+
![](Images/image162.png)
34893489

34903490
*Figure 4. COMPUTE statements*
34913491

34923492

34933493
The WRITE-TLIMIT-TBALANCE paragraph shown in Figure 5. is positioned within the PROCEDURE DIVISION to be executed immediately after all records are read and before the final paragraph that closes the files and terminates program execution.
34943494

3495-
![](Images/image163.jpg)
3495+
![](Images/image163.png)
34963496

34973497
*Figure 5. WRITE-TLIMIT-TBALANCE*
34983498

-10.5 KB
Loading
-43.3 KB
Loading
-17.6 KB
Loading
-3.96 KB
Binary file not shown.
1.01 KB
Loading
Binary file not shown.
12.2 KB
Loading
-5.81 KB
Binary file not shown.
7.09 KB
Loading

0 commit comments

Comments
 (0)