Need to Identify 8 errors
Posted: Mon Mar 30, 2015 12:49 am
Hello all,
I have been working as an Admin on Racf through the vanguard utility for years blissfully unaware of a majority of the mainframe.
I have enrolled on a mainframe development class to get to grips with JCL and Cobol.
Looking for a little help, Have been give some code with 8 errors and wondering can you guys help pick them out.
I am having trouble finding any.
Code is
1. ENVIRONMENT DIVISION.
2. PROGRAM-ID CBLCALC.
3. IDENTIFICATION DIVISION.
4. INPUT-OUTPUT.
5. FILE-CONTROL.
6. SELECT CREDCARD-FILE ASSIGN.
7. DATA DIVISION.
8. FILE SECTION.
9. FD I-CREDCARD-FILE
10. RECORDING MODE IS F.
11. 01 ICRED-RECORD.
12. 03 CUST-NO PIC 9(3) VALUE SPACES.
13. 03 FIRST-NAME PIC X(10) VALUE SPACES.
14. 03 AMOUNT PIC S9(4). 99 VALUE ZEROS.
15. WORKING-STORAGE SECTION.
16. 01 FLAG-EOF PIC 9 VALUE ZEROS.
17. 01 RECORD-COUNT PIC 9(5) VALUE ZEROS.
18. * THIS IS MY MAIN PROCESSING LOGIC
19. PROCEDURE-DIVISION.
20. PERFORM BEGIN UNTIL FLAG-EOF EQUAL 1.
21. PERFORM FINISH.
22. STOP RUN.
23. BEGIN.
24. OPEN OUTPUT CREDCARD-FILE.
25. READ CREDCARD-FILE
AT END DISPLAY 'EOF - NO RECORDS IN FILE'
MOVE 1 TO FLAG-EOF.
26. ADD 1 TO REC-COUNT.
27. FINISH.
28. DISPLAY RECORD-COUNT.
29. CLOSE INPUT-CREDCARD-FILE.
Thank you,
Wayne
I have been working as an Admin on Racf through the vanguard utility for years blissfully unaware of a majority of the mainframe.
I have enrolled on a mainframe development class to get to grips with JCL and Cobol.
Looking for a little help, Have been give some code with 8 errors and wondering can you guys help pick them out.
I am having trouble finding any.
Code is
1. ENVIRONMENT DIVISION.
2. PROGRAM-ID CBLCALC.
3. IDENTIFICATION DIVISION.
4. INPUT-OUTPUT.
5. FILE-CONTROL.
6. SELECT CREDCARD-FILE ASSIGN.
7. DATA DIVISION.
8. FILE SECTION.
9. FD I-CREDCARD-FILE
10. RECORDING MODE IS F.
11. 01 ICRED-RECORD.
12. 03 CUST-NO PIC 9(3) VALUE SPACES.
13. 03 FIRST-NAME PIC X(10) VALUE SPACES.
14. 03 AMOUNT PIC S9(4). 99 VALUE ZEROS.
15. WORKING-STORAGE SECTION.
16. 01 FLAG-EOF PIC 9 VALUE ZEROS.
17. 01 RECORD-COUNT PIC 9(5) VALUE ZEROS.
18. * THIS IS MY MAIN PROCESSING LOGIC
19. PROCEDURE-DIVISION.
20. PERFORM BEGIN UNTIL FLAG-EOF EQUAL 1.
21. PERFORM FINISH.
22. STOP RUN.
23. BEGIN.
24. OPEN OUTPUT CREDCARD-FILE.
25. READ CREDCARD-FILE
AT END DISPLAY 'EOF - NO RECORDS IN FILE'
MOVE 1 TO FLAG-EOF.
26. ADD 1 TO REC-COUNT.
27. FINISH.
28. DISPLAY RECORD-COUNT.
29. CLOSE INPUT-CREDCARD-FILE.
Thank you,
Wayne