StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POA Strange Error (COBOL)
text
Body
copied!<p>Hey all, got one mountain of a problem here. I have completed a program I had to do for college homework, but when I run it the output shows almost nothing it is suppose to. This only happens when I RUN it though. If I hold F11 to STEP through the whole thing it shows the results as it is suppose to be. Normally I would not ask about something this big but I am stumped. Here is my code:</p> <pre><code> ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SALESAMT-FILE-IN ASSIGN TO 'SALESAMT.SEQ' ORGANIZATION IS LINE SEQUENTIAL. SELECT SALESMAN-FILE-IN ASSIGN TO 'SALESMAN.SEQ' ORGANIZATION IS LINE SEQUENTIAL. SELECT SALESQTR-FILE-IN ASSIGN TO 'SALESQTR.SEQ' ORGANIZATION IS LINE SEQUENTIAL. SELECT SALESAMT-FILE-OUT ASSIGN TO 'SALESAMT.RPT' ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD SALESMAN-FILE-IN. 01 SALESMAN-RECORD-IN. 05 SM-NUMBER-IN PIC 99. 05 SM-NAME-IN PIC X(20). FD SALESQTR-FILE-IN. 01 SALESQTR-RECORD-IN. 05 QUARTER-YEAR PIC X. FD SALESAMT-FILE-IN. 01 SALESAMT-RECORD-IN. 05 SM-NUMBER PIC 99. 05 PIC X. 05 MONTH-NUMBER PIC 9. 05 PIC X. 05 SALES-AMOUNT PIC 9(5). FD SALESAMT-FILE-OUT. 01 SALESAMT-RECORD-OUT PIC X(80). WORKING-STORAGE SECTION. 01 ARE-THERE-MORE-RECORDS PIC X(3) VALUE 'YES'. 01 REPORT-START PIC X VALUE 'Y'. 01 LINE-COUNT PIC 99 VALUE ZEROS. 01 LINE-JUMP PIC X VALUE 'Y'. 01 PAGE-NUMBER PIC 99 VALUE ZEROS. 01 QUARTER-CHECK PIC X. 01 ROUTINE-CHECK PIC 99 VALUE ZEROS. 01 SALESMAN-MATH PIC 9(5) VALUE ZEROS. 01 SALESMAN-TOTAL PIC 9(6) VALUE ZEROS. 01 FINAL-M-TOTAL-1 PIC 9(7) VALUE ZEROS. 01 FINAL-M-TOTAL-3 PIC 9(7) VALUE ZEROS. 01 FINAL-M-TOTAL-2 PIC 9(7) VALUE ZEROS. 01 FINAL-TOTAL PIC 9(7) VALUE ZEROS. 01 SM-NUM-M PIC 99 VALUE ZEROS. 01 MORE-TABLE-RECS PIC X VALUE 'Y'. 01 SPACE-LINE PIC X VALUE SPACE. 01 MONTH-NAMES VALUE 'JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'. 05 MONTH-TITLES OCCURS 12 TIMES PIC X(3). 01 MONTH-ARRAY. 05 THREE-MONTHS OCCURS 3 TIMES. 10 MONTH-TOTAL OCCURS 99 TIMES PIC 9(7) VALUE ZEROS. 01 SALESMAN-TABLE. 05 TABLE-ENTRIES OCCURS 99 TIMES INDEXED BY IND-TABLE-ENTRIES. 10 SALESMAN-NUMBER PIC 99 VALUE ZEROS. 10 SALESMAN-NAME PIC X(20) VALUE SPACES. 01 SALESMAN-COUNT PIC 9(3) VALUE ZEROS. 01 WS-DATE. 05 RUN-YEAR PIC XX. 05 RUN-MONTH PIC XX. 05 RUN-DAY PIC XX. 01 HEADING-LINE-1. 05 PIC X(17) VALUE SPACES. 05 PIC X(35) VALUE 'SALES AMOUNTS BY SALESMAN AND MONTH'. 05 PIC X(10) VALUE SPACES. 05 HL-1-DATE. 10 MONTH-2 PIC XX. 10 PIC X VALUE '/'. 10 DAY-2 PIC XX. 10 PIC X VALUE '/'. 10 YEAR-2 PIC XX. 05 PIC X(3) VALUE SPACES. 05 PAGE-1 PIC X(4) VALUE 'PAGE'. 05 PIC X(1) VALUE SPACES. 05 NUMBER-PAGE PIC Z9. 01 HEADING-LINE-2. 05 HL-NUM PIC X(3) VALUE 'NUM'. 05 HL-BLANK-A PIC XX VALUE SPACES. 05 HL-NAME PIC X(4) VALUE 'NAME'. 05 HL-BLANK-B PIC X(20) VALUE SPACES. 05 HL-MONTH-1 PIC X(3) VALUE SPACES. 05 HL-BLANK-C PIC X(8) VALUE SPACES. 05 HL-MONTH-2 PIC X(3) VALUE SPACES. 05 HL-BLANK-D PIC X(8) VALUE SPACES. 05 HL-MONTH-3 PIC X(3) VALUE SPACES. 05 HL-BLANK-E PIC X(10) VALUE SPACES. 05 HL-TOTAL PIC X(5) VALUE 'TOTAL'. 01 DETAIL-LINE. 05 DL-BLANK-A PIC X VALUE SPACES. 05 DL-NUM-COLUMN PIC 99. 05 DL-BLANK-B PIC XX VALUE SPACES. 05 DL-NAME-COLUMN PIC X(17). 05 DL-BLANK-C PIC X(4) VALUE SPACES. 05 DL-MONTH-1 PIC ZZ,Z(3). 05 DL-BLANK-D PIC X(5) VALUE SPACES. 05 DL-MONTH-2 PIC ZZ,Z(3). 05 DL-BLANK-E PIC X(5) VALUE SPACES. 05 DL-MONTH-3 PIC ZZ,Z(3). 05 DL-BLANK-F PIC X(8) VALUE SPACES. 05 DL-TOTAL PIC Z(3),Z(3). 01 TOTALS-LINE. 05 TL-WORDS PIC X(12) VALUE 'Final Totals'. 05 TL-BLANK-A PIC X(12) VALUE SPACES. 05 MONTH-1-TOTAL PIC Z,Z(3),Z(3). 05 TL-BLANK-A PIC X(2) VALUE SPACES. 05 MONTH-2-TOTAL PIC Z,Z(3),Z(3). 05 TL-BLANK-A PIC X(2) VALUE SPACES. 05 MONTH-3-TOTAL PIC Z,Z(3),Z(3). 05 TL-BLANK-A PIC X(5) VALUE SPACES. 05 MONTH-FINAL-TOTAL PIC Z,Z(3),Z(3). PROCEDURE DIVISION. 100-MAIN. OPEN INPUT SALESAMT-FILE-IN, SALESMAN-FILE-IN, SALESQTR-FILE-IN OPEN OUTPUT SALESAMT-FILE-OUT ACCEPT WS-DATE FROM DATE MOVE RUN-MONTH TO MONTH-2 MOVE RUN-DAY TO DAY-2 MOVE RUN-YEAR TO YEAR-2 PERFORM 200-NEXT-PAGE PERFORM 300-SALES-ARRAY PERFORM 400-SALESMAN-NAME PERFORM 500-PROCESS-FILE PERFORM 600-FINAL-TOTALS CLOSE SALESAMT-FILE-IN, SALESMAN-FILE-IN, SALESQTR-FILE-IN CLOSE SALESAMT-FILE-OUT STOP RUN. 200-NEXT-PAGE. ADD 1 TO PAGE-NUMBER MOVE PAGE-NUMBER TO NUMBER-PAGE MOVE HEADING-LINE-1 TO SALESAMT-RECORD-OUT IF REPORT-START = 'N' WRITE SALESAMT-RECORD-OUT AFTER ADVANCING PAGE ELSE MOVE 'N' TO REPORT-START WRITE SALESAMT-RECORD-OUT AFTER ADVANCING 1 LINE PERFORM 210-MONTH-CHECK END-IF. MOVE HEADING-LINE-2 TO SALESAMT-RECORD-OUT WRITE SALESAMT-RECORD-OUT AFTER ADVANCING 2 LINES MOVE ZEROS TO LINE-COUNT. 210-MONTH-CHECK. READ SALESQTR-FILE-IN AT END CONTINUE NOT AT END PERFORM 220-MONTH-NAME END-READ. 220-MONTH-NAME. EVALUATE QUARTER-YEAR WHEN = 1 MOVE MONTH-TITLES(1) TO HL-MONTH-1 MOVE MONTH-TITLES(2) TO HL-MONTH-2 MOVE MONTH-TITLES(3) TO HL-MONTH-3 WHEN = 2 MOVE MONTH-TITLES(4) TO HL-MONTH-1 MOVE MONTH-TITLES(5) TO HL-MONTH-2 MOVE MONTH-TITLES(6) TO HL-MONTH-3 WHEN = 3 MOVE MONTH-TITLES(7) TO HL-MONTH-1 MOVE MONTH-TITLES(8) TO HL-MONTH-2 MOVE MONTH-TITLES(9) TO HL-MONTH-3 WHEN = 4 MOVE MONTH-TITLES(10) TO HL-MONTH-1 MOVE MONTH-TITLES(11) TO HL-MONTH-2 MOVE MONTH-TITLES(12) TO HL-MONTH-3 END-EVALUATE. 300-SALES-ARRAY. PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO ' READ SALESAMT-FILE-IN AT END MOVE 'NO ' TO ARE-THERE-MORE-RECORDS NOT AT END PERFORM 310-STORE-DATA END-READ END-PERFORM. 310-STORE-DATA. MOVE SM-NUMBER TO SM-NUM-M EVALUATE MONTH-NUMBER WHEN 1 PERFORM 320-FIRST-MONTH WHEN 2 PERFORM 330-SECOND-MONTH WHEN 3 PERFORM 340-THIRD-MONTH END-EVALUATE. 320-FIRST-MONTH. ADD SALES-AMOUNT TO MONTH-TOTAL OF MONTH-ARRAY (1, SM-NUM-M). 330-SECOND-MONTH. ADD SALES-AMOUNT TO MONTH-TOTAL OF MONTH-ARRAY (2, SM-NUM-M). 340-THIRD-MONTH. ADD SALES-AMOUNT TO MONTH-TOTAL OF MONTH-ARRAY (3, SM-NUM-M). 400-SALESMAN-NAME. PERFORM UNTIL MORE-TABLE-RECS = 'N' READ SALESMAN-FILE-IN AT END MOVE 'N' TO MORE-TABLE-RECS NOT AT END PERFORM 450-TABLE-LOAD END-READ END-PERFORM. 450-TABLE-LOAD. MOVE SM-NUMBER-IN TO SALESMAN-COUNT MOVE SM-NUMBER-IN TO SALESMAN-NUMBER (SALESMAN-COUNT) MOVE SM-NAME-IN TO SALESMAN-NAME (SALESMAN-COUNT). 500-PROCESS-FILE. PERFORM UNTIL ROUTINE-CHECK = 99 ADD 1 TO ROUTINE-CHECK PERFORM 510-TABLE-SEARCH END-PERFORM. 510-TABLE-SEARCH. SEARCH TABLE-ENTRIES WHEN SALESMAN-NUMBER (ROUTINE-CHECK) = ROUTINE-CHECK PERFORM 520-WRITE-FILE WHEN SALESMAN-NUMBER (ROUTINE-CHECK) = 0 CONTINUE END-SEARCH. 520-WRITE-FILE. MOVE SALESMAN-NAME (ROUTINE-CHECK) TO DL-NAME-COLUMN IF DL-NAME-COLUMN = SPACES MOVE '*** Not Found ***' TO DL-NAME-COLUMN END-IF MOVE ROUTINE-CHECK TO DL-NUM-COLUMN MOVE ROUTINE-CHECK TO SM-NUM-M MOVE MONTH-TOTAL (1, SM-NUM-M) TO DL-MONTH-1 MOVE DL-MONTH-1 TO SALESMAN-MATH ADD SALESMAN-MATH TO SALESMAN-TOTAL ADD SALESMAN-MATH TO FINAL-M-TOTAL-1 ADD SALESMAN-MATH TO FINAL-TOTAL MOVE MONTH-TOTAL (2, SM-NUM-M) TO DL-MONTH-2 MOVE DL-MONTH-2 TO SALESMAN-MATH ADD SALESMAN-MATH TO SALESMAN-TOTAL ADD SALESMAN-MATH TO FINAL-M-TOTAL-2 ADD SALESMAN-MATH TO FINAL-TOTAL MOVE MONTH-TOTAL (3, SM-NUM-M) TO DL-MONTH-3 MOVE DL-MONTH-3 TO SALESMAN-MATH ADD SALESMAN-MATH TO SALESMAN-TOTAL ADD SALESMAN-MATH TO FINAL-M-TOTAL-3 ADD SALESMAN-MATH TO FINAL-TOTAL IF SALESMAN-TOTAL > 0 MOVE SALESMAN-TOTAL TO DL-TOTAL MOVE DETAIL-LINE TO SALESAMT-RECORD-OUT WRITE SALESAMT-RECORD-OUT AFTER ADVANCING 2 LINES END-IF MOVE ZEROS TO SALESMAN-TOTAL. 600-FINAL-TOTALS. MOVE FINAL-M-TOTAL-1 TO MONTH-1-TOTAL MOVE FINAL-M-TOTAL-2 TO MONTH-2-TOTAL MOVE FINAL-M-TOTAL-3 TO MONTH-3-TOTAL MOVE FINAL-TOTAL TO MONTH-FINAL-TOTAL MOVE TOTALS-LINE TO SALESAMT-RECORD-OUT WRITE SALESAMT-RECORD-OUT AFTER ADVANCING 3 LINES. </code></pre> <p>To me it seems that the logic is right as it does work, but for some reason it (in my mind when i see the results) jumps completely over 520-WRITE-FILE when it runs. With this I do leave a few notes.</p> <ol> <li><p>I know 510-TABLE-SEARCH makes little sense and I intend to change it later, but I need to fix this first and it works for the moment. Unless it is the main problem please don't harass me over it.</p></li> <li><p>I will be willing to add the data in the SEQ files if someone asks me for it.</p></li> <li><p>My code might be a bit complex and I admit to that, but I am doing the best I can with the teacher I have (I mostly have to learn this stuff on my own).</p></li> </ol> <p>I appreciate any help I receive and thank anyone who tries to help in advance.</p> <p>edit: I am using a compiler called Micro Focus, Net Express 5.1 Academic Edition and my OS is Windows Vista. As for what the program does show when I run it, it just shows my two heading lines and then my totals-line without anything but the first field showing. I hope that helps.</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload