FMT CB ......-A+++B+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data *************************************
0001.00 IDENTIFICATION DIVISION.
0002.00 *************************
0003.00 ** CIS 3741 LAB 2
0004.00 **
0005.00 **JANUARY 30 - 2007
0006.00 **********************
0007.00 *
0008.00 PROGRAM-ID. LAB2.
0009.00 ENVIRONMENT DIVISION.
0010.00 INPUT-OUTPUT SECTION.
0011.00 FILE-CONTROL.
0012.00 SELECT STUDENT-FILE-IN
0013.00 ASSIGN TO DISK-PESTUDENT.
0014.00 SELECT STUDENT-FILE-OUT
0015.00 ASSIGN TO PRINTER-QPRINT.
0016.00 DATA DIVISION.
0017.00 FILE SECTION.
0018.00 FD STUDENT-FILE-IN.
0019.00 01 STUDENT-RECORD-IN.
0020.00 05 STUDENT-NAME-IN PIC X(20).
0021.00 05 NUMBER-OF-CREDITS-IN PIC 9(2).
0022.00 05 PIC X(58).
0023.00 FD STUDENT-FILE-OUT.
0024.00 01 PRINT-REC-OUT.
0025.00 05 STUDENT-NAME-OUT PIC X(20).
0026.00 05 PIC X(20).
0027.00 05 NUMBER-OF-CREDITS-OUT PIC 9(2).
0028.00 05 PIC X(20).
0029.00 05 TUITION-OUT PIC 9(4).
0030.00 05 PIC X(14).
0031.00 WORKING-STORAGE SECTION.
0032.00 01 ARE-THERE-MORE-RECORDS PIC XXX VALUE "YES".
0033.00 01 PART-TIME-TUITION PIC 9(3) VALUE 525.
0034.00 01 FULL-TIME-TUITION PIC 9(4) VALUE 6300.
0035.00 01 LINE-CNTR PIC 9(2) VALUE 99.
0036.00 01 HEADING-LINE-1.
0037.00 05 PIC X(10) VALUE SPACES.
0038.00 05 PIC X(13) VALUE
0039.00 "STUDENT NAME".
0040.00 05 PIC X(10) VALUE SPACES.
0041.00 05 PIC X(17) VALUE
0042.00 "NUMBER OF CREDITS".
0043.00 05 PIC X(10) VALUE SPACES.
0044.00 05 PIC X(7) VALUE
0045.00 "TUITION".
0046.00 PROCEDURE DIVISION.
0047.00 0-MAIN-MODULE.
0048.00 OPEN INPUT STUDENT-FILE-IN
0049.00 OUTPUT STUDENT-FILE-OUT
0050.00 PERFORM UNTIL ARE-THERE-MORE-RECORDS = "NO "
0051.00 READ STUDENT-FILE-IN
0052.00 AT END MOVE "NO " TO ARE-THERE-MORE-RECORDS
0053.00 NOT AT END PERFORM 1-PROCESS-STUDENT
0054.00 END-READ
0055.00 END-PERFORM
0056.00 CLOSE STUDENT-FILE-IN
0057.00 STUDENT-FILE-OUT
0058.00 STOP RUN.
0059.00 1-PROCESS-STUDENT.
0060.00 IF LINE-CNTR > 50
0061.00 THEN
0062.00 PERFORM 2-PRINT-PAGE-HEADINGS
0063.00 END-IF
0064.00 MOVE SPACES TO PRINT-REC-OUT
0065.00 MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT
0066.00 MOVE NUMBER-OF-CREDITS-IN TO NUMBER-OF-CREDITS-OUT
0067.00 IF NUMBER-OF-CREDITS-IN > 12
0068.00 MOVE FULL-TIME-TUITION TO TUITION-OUT
0069.00 ELSE
0070.00 MULTIPLY NUMBER-OF-CREDITS-IN BY PART-TIME-TUITION
0071.00 GIVING TUITION-OUT
0072.00 END-IF
0073.00 WRITE PRINT-REC-OUT AFTER ADVANCING 1 LINE
0074.00 ADD 1 TO LINE-CNTR.
0075.00 2-PRINT-PAGE-HEADINGS.
0076.00 WRITE PRINT-REC-OUT FROM HEADING-LINE-1
0077.00 AFTER PAGE
0078.00 MOVE 1 TO LINE-CNTR.
****************** End of data ****************************************
Reply With Quote