Skip to content

Commit e1dc345

Browse files
committed
renamed CBL, JCL files and updated .md
Signed-off-by: Athar Ramzan <atharramzan.ofi@gmail.com>
1 parent 38b5439 commit e1dc345

File tree

3 files changed

+12
-12
lines changed

3 files changed

+12
-12
lines changed

COBOL Programming Course #2 - Learning COBOL/COBOL Programming Course #2 - Learning COBOL.md

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -2814,19 +2814,19 @@ Understand how case sensitivity in COBOL string comparisons can cause logical er
28142814

28152815
**Required Files:**
28162816

2817-
- `CBL0066.cbl` - COBOL program source
2818-
- `CBL0066J.jcl` - JCL job to compile and execute
2817+
- `CBL006A.cobol` - COBOL program source
2818+
- `CBL006AJ.jcl` - JCL job to compile and execute
28192819
- `id.DATA` - Input data file
28202820

28212821
All files are available in your VS Code Zowe Explorer.
28222822

28232823
### Instructions
28242824

2825-
1. Open `CBL0066.cbl` from your VS Code Zowe Explorer.
2825+
1. Open `CBL006A.cobol` from your VS Code Zowe Explorer.
28262826

28272827
This program reads account records and counts how many clients are from `"New York"`.
28282828

2829-
2. Submit the JCL job `CBL0066J.jcl`. View the job output from the JOBS section.
2829+
2. Submit the JCL job `CBL006AJ.jcl`. View the job output from the JOBS section.
28302830
- Confirm that no syntax or runtime errors occurred.
28312831
- Now carefully read the final line of the report. `New York Clients = 000`
28322832

@@ -2836,10 +2836,10 @@ Ask yourself: *Is this the number of New York clients you expected?*
28362836

28372837
3. Based on your understanding, where do you think the bug lies?
28382838
- Consider the case format of both the **comparison string** and the **actual data** from the file (id.DATA).
2839-
4. Go and update the source code CBL0066.cbl .
2839+
4. Go and update the source code `CBL006A.cobol` .
28402840
- Modify the string literal in the IF condition to match the exact case format found in the data file
2841-
5. Save your changes to `CBL0066.cbl`
2842-
6. Recompile and resubmit the job `CBL0006J.jcl`
2841+
5. Save your changes to `CBL006A.cobol`
2842+
6. Recompile and resubmit the job `CBL006AJ.jcl`
28432843
7. Verify that the report now correctly shows: `New York Clients = 005`
28442844

28452845
![](Images/image072.png)

COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0066.cobol renamed to COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL006A.cobol

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
*-----------------------
22
IDENTIFICATION DIVISION.
33
*-----------------------
4-
PROGRAM-ID. CBL0006
4+
PROGRAM-ID. CBL006A
55
AUTHOR. Otto B. Boolean.
66
*--------------------
77
ENVIRONMENT DIVISION.

COBOL Programming Course #2 - Learning COBOL/Labs/jcl/CBL0066.jcl renamed to COBOL Programming Course #2 - Learning COBOL/Labs/jcl/CBL006AJ.jcl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
1-
//CBL0066J JOB 1,NOTIFY=&SYSUID
1+
//CBL006AJ JOB 1,NOTIFY=&SYSUID
22
//***************************************************/
33
//* Copyright Contributors to the COBOL Programming Course
44
//* SPDX-License-Identifier: CC-BY-4.0
55
//***************************************************/
66
//COBRUN EXEC IGYWCL
7-
//COBOL.SYSIN DD DSN=&SYSUID..CBL(CBL0066),DISP=SHR
8-
//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(CBL0066),DISP=SHR
7+
//COBOL.SYSIN DD DSN=&SYSUID..CBL(CBL006A),DISP=SHR
8+
//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(CBL006A),DISP=SHR
99
//***************************************************/
1010
// IF RC = 0 THEN
1111
//***************************************************/
12-
//RUN EXEC PGM=CBL0066
12+
//RUN EXEC PGM=CBL006A
1313
//STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR
1414
//ACCTREC DD DSN=&SYSUID..DATA,DISP=SHR
1515
//PRTLINE DD SYSOUT=*,OUTLIM=15000

0 commit comments

Comments
 (0)