Author Ricky

PROGRAM NARRATIVE *

IDENTIFICATION DIVISION. AUTHOR.1INSTALLATION.DATE-WRITTEN..1/6/2015.23 DATE-COMPILED * IT WILL PRODUCE A REPORT LISTING THE CLASSES OFFERED * BY THE COMPUTER PROGRAMMING DEPARTMENT AT MSCTC * FIELDS WILL INCLUDE DEPARTMENT ABBREVIATION, CLASS NUMBER * CLASS TITLE AND NUMBER OF CREDITS FOR EACH CLASS LISTED. * INPUT : MIDTERM.DAT - MIDTERM INPUT FILE * OUTPUT : MIDTERM.RPT - MIDTERM REPORT FILE 01 ACCUMULATORS. 020202AC-LINE-COUNTAC-PAGE-COUNTAC-RECORD-COUNTPIC999.PIC999.PIC9(5). 01 WORK-AREA. 01 SUMMARY-LINES. "END OF REPORT". PROCEDURE DIVISION . MAIN-PROGRAM . PERFORM A-100-INITIALIZATION . PERFORM B-100-PROCESS-FILE. PERFORM C-100-WRAP-UP. 39 RUN . B-100-PROCESS-FILE MOVEREAD"N"TOSW-END-OF-FILE.42 AT END MOVE "Y" TO SW-END-OF-FILE. PERFORM B-200-PROCESS-RECORD UNTIL END-OF-FILE . MOVE AC-RECORD-COUNT TO SL-RECORD-COUNT. WRITE MIDTERM-REPORT-LINE-OUT FROM SL-LINE-1 AFTER ADVANCING 2 LINES. WRITE MIDTERM-REPORT-LINE-OUT FROM SL-LINE-2 AFTER ADVANCING 2 LINES. IF AC-LINE-COUNT >55 MOVE ZERO TO AC-LINE-COUNT PERFORM B-300-PRINT-HEADINGS . READ CLASS-INPUT-FILE AT END MOVE " Y " TO 47 B-300-PRINT-HEADINGS . ADD 1 TO AC-PAGE-COUNT. MOVE AC-PAGE-COUNT TO RH-PAGE-COUNT . MOVE SPACES TO MIDTERM-REPORT-LINE-OUT. WRITE MIDTERM-REPORT-LINE-OUT FROM RH-LINE-1 AFTER ADVANCING PAGE. WRITE MIDTERM-REPORT-LINE-OUT FROM 48 AFTER ADVANCING 49 LINES. AFTER ADVANCING 1 LINE. WRITE MIDTERM-REPORT-LINE-OUT FROM RH-LINE-4 AFTER ADVANCING 1 LINE. MOVE 5 TO AC-LINE-COUNT . C-100-WRAP-UP. 50 CLASS-INPUT-FILE MIDTERM-REPORT-FILE . IDENTIFICATION DIVISION. AUTHOR.1INSTALLATION.DATE-WRITTEN..1/6/2015.23 DATE-COMPILED * IT WILL PRODUCE A REPORT LISTING THE CLASSES OFFERED * BY THE COMPUTER PROGRAMMING DEPARTMENT AT MSCTC * FIELDS WILL INCLUDE DEPARTMENT ABBREVIATION, CLASS NUMBER * CLASS TITLE AND NUMBER OF CREDITS FOR EACH CLASS LISTED. * INPUT : MIDTERM.DAT - MIDTERM INPUT FILE * OUTPUT : MIDTERM.RPT - MIDTERM REPORT FILE 01 ACCUMULATORS. 020202AC-LINE-COUNTAC-PAGE-COUNTAC-RECORD-COUNTPIC999.PIC999.PIC9(5). 01 WORK-AREA. 01 SUMMARY-LINES. "END OF REPORT". PROCEDURE DIVISION . MAIN-PROGRAM . PERFORM A-100-INITIALIZATION . PERFORM B-100-PROCESS-FILE. PERFORM C-100-WRAP-UP. 39 RUN . B-100-PROCESS-FILE MOVEREAD"N"TOSW-END-OF-FILE.42 AT END MOVE "Y" TO SW-END-OF-FILE. PERFORM B-200-PROCESS-RECORD UNTIL END-OF-FILE . MOVE AC-RECORD-COUNT TO SL-RECORD-COUNT. WRITE MIDTERM-REPORT-LINE-OUT FROM SL-LINE-1 AFTER ADVANCING 2 LINES. WRITE MIDTERM-REPORT-LINE-OUT FROM SL-LINE-2 AFTER ADVANCING 2 LINES. IF AC-LINE-COUNT >55 MOVE ZERO TO AC-LINE-COUNT PERFORM B-300-PRINT-HEADINGS . READ CLASS-INPUT-FILE AT END MOVE " Y " TO 47 B-300-PRINT-HEADINGS . ADD 1 TO AC-PAGE-COUNT. MOVE AC-PAGE-COUNT TO RH-PAGE-COUNT . MOVE SPACES TO MIDTERM-REPORT-LINE-OUT. WRITE MIDTERM-REPORT-LINE-OUT FROM RH-LINE-1 AFTER ADVANCING PAGE. WRITE MIDTERM-REPORT-LINE-OUT FROM 48 AFTER ADVANCING 49 LINES. AFTER ADVANCING 1 LINE. WRITE MIDTERM-REPORT-LINE-OUT FROM RH-LINE-4 AFTER ADVANCING 1 LINE. MOVE 5 TO AC-LINE-COUNT . C-100-WRAP-UP. 50 CLASS-INPUT-FILE MIDTERM-REPORT-FILE