COBOL Code // Debugging //

IDENTIFICATION DIVISION.

PROGRAM-ID. TryToDebug. AUTHOR. Your Name. INSTALLATION. ClientServer lab on campus. DATE-WRITTEN. Todays Date. DATE-COMPILED. Todays Date. SECURITY. None.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. IBM-AS400. OBJECT-COMPUTER. IBM-PC.

INPUT-OUTPUT SECTION. FILE-CONTROL.

* change the paths to point to the project directory

SELECT PRINT-FILE ASSIGN TO "d:\printout.txt".

SELECT STUDENT-FILE ASSIGN TO "d:\students.dat".

DATA DIVISION. FILE SECTION.

FD PRINT-FILE LABEL RECORDS ARE OMITTED DATA RECORD IS PRINT-LINE. 01 PRINT-LINE. 03 FILLER PIC X(80).

FD STUDENT-FILE LABEL RECORDS ARE OMITTED DATA RECORD IS INPUT-RECORD. 01 INPUT-RECORD. 05 STUDENT-NO PIC 9(9). 05 STUDENT-NAME PIC X(20). 05 STUDENT-ADDRESS PIC X(20). 05 STUDENT-CITY PIC X(15). 05 STUDENT-STATE PIC X(2). 05 STUDENT-ZIP PIC 9(9).

WORKING-STORAGE SECTION.

01 FIELD1 PIC X(20). 01 FIELD2 PIC X(20).

01 HEADING-LINE1. 03 FILLER PIC X(3) VALUE SPACES 03 FILLER PIC X(20) VALUE "Your Name Here" 03 FILLER PIC X(34) value spaces 03 FILLER PIC X(13) VALUE "Debugging Lab" 03 FILLER PIC X(10) VALUE SPACES.

01 HEADING-LINE2. 03 FILLER PIC X(9) VALUE SPACES 03 FILLER PIC X(12) VALUE "STUDENT NAME" 03 FILLER PIC X(16) value spaces 03 FILLER PIC X(14) VALUE "STUDENT NUMBER" 03 FILLER PIC X(29) VALUE SPACES.

01 DETAIL-LINE. 03 FILLER PIC X(10) VALUE SPACES. 03 DL-NAME PIC X(20). 03 FILLER PIC X(10) VALUE SPACES. 03 DL-NUMBER PIC X(20). 03 FILLER PIC X(50) VALUE SPACES.

01 SWITCHES. 03 EOF-SW PIC 9 VALUE ZEROS. 88 AT-END-OF-FILE VALUE 1. 88 NOT-AT-END VALUE ZERO.

01 ACCUMULATORS-AND-SAVE-AREAS. 03 SAVE-FIELD1 PIC X(5) VALUE SPACES.

PROCEDURE DIVISION.

***************************************** * This is the Mainline Logic ***************************************** 000-PREPARE-SAMPLE-REPORT. PERFORM 101-OPEN-REPORT-FILES. PERFORM 200-FORMAT-HEADING-LINE. PERFORM 310-READ-INPUT-FILE. PERFORM 300-PREPARE-REPORT-LINE UNTIL AT-END-OF-FILE. PERFORM 400-FORMAT-DETAIL-LINE. PERFORM 500-CLOSE-PRINT-FILE. STOP RUN.

***************************************** * Opens the print file for output * and the student file for input ***************************************** 100-OPEN-REPORT-FILES. OPEN INPUT STUDENT-FILE OUTPUT PRINT-FILE.

***************************************** * Formats and prints the heading lines ***************************************** 200-FORMAT-HEADING-LINE. MOVE HEADING-LINE1 TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE. MOVE HEADING-LINE2 TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE.

***************************************** * Writes a print line after moving down * one line in the print file ***************************************** 210-WRITE-PRINT-LINE. WRITE PRINT-LINE AFTER ADVANCING 1 LINE.

***************************************** * Loop structure formats a line and * reads in the next record ***************************************** 300-PREPARE-REPORT-LINE. PERFORM 400-FORMAT-DETAIL-LINE. PERFORM 310-READ-INPUT-FILE.

***************************************** * * ***************************************** 310-READ-INPUT-FILE. READ STUDENT-FILE AT END MOVE 0 TO EOF-SW.

***************************************** * Fills in the detail line ***************************************** 400-FORMAT-DETAIL-LINE. MOVE STUDENT-NAME TO DL-NAME. MOVE STUDENT-NO TO DL-NUMBER. MOVE DETAIL-LINE TO PRINT-LINE. PERFORM 210-WRITE-PRINT-LINE.

***************************************** * Closes the print file and data file ***************************************** 500-CLOSE-PRINT-FILE. CLOSE PRINT-FILE, STUDENT-FILE.

student.dat has the following//

123456789Bob Barker 123 Main Street Mankato MN560010000987654321Ricki Lake 833 E. 2nd Street Minneapolis MN554090000552354323Spaceman Spiff RR. 1, Box 832 Lexington KY543247669