Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
335 | 10 | 2 | 0.981 | paragraph_list[12] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 336 | 4936 | CCCC1.COB |
2 | 335 | 4536 | CCCC11.COB |
3 | 335 | 3918 | CCCC13.COB |
4 | 335 | 4755 | CCCC14.COB |
5 | 337 | 5075 | CCCC2.COB |
6 | 335 | 4089 | CCCC4.COB |
7 | 335 | 3654 | CCCC5.COB |
8 | 335 | 4132 | CCCC6.COB |
9 | 336 | 3733 | CCCC8.COB |
10 | 335 | 4477 | CCCC9.COB |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-COURSE-DATA. MOVE SPACES TO EDITED-COURSE-INVENTORY-RECORD. PERFORM 8610-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-COURSE-INVENTORY-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-MATRIC-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-MATRIC-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-SV-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-SV-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-STUDENT-ENRL-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDNT-ENRLMNT-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8550-GET-JULIAN-DATE-FROM-XREF. SEARCH ALL CAL-ID-TO-JULIAN-DATE-XREF AT END MOVE 0 TO XREF-TABLE-SEARCH-FLAG WHEN CAL-DAY-ID (XREF-INDEX) EQUAL CALENDAR-DAY-ID IN COLLEGE-CALENDAR-RECORD MOVE 1 TO XREF-TABLE-SEARCH-FLAG. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-EJ-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-EJ-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-PBS-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-PBS-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-ASSESSMENT-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-ASSESSMENT-RECD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-DSPS-RECORDS. MOVE SPACES TO EDITED-STUDNT-DSPS-DATA-RECORD. PERFORM 8610-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDNT-DSPS-DATA-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| ||||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. * * 8600-WRITE-EOPS-RECORD. PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-EOPS-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
| |||
* * 8430-FILL-PRINT-LINE. MOVE DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO DATA-ELEMENT IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). MOVE VALIDATION-FLAG IN EDIT-ERROR-TABLE-COLUMNS (EDIT-ERROR-ROW-INDEX EDIT-ERROR-COLUMN-INDEX) TO VALIDATION-FLAG IN EDIT-ERROR-DETAIL-LINE (DETAIL-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END MOVE 1 TO PRINT-LINE-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX SET DETAIL-COLUMN-INDEX TO EDIT-ERROR-COLUMN-INDEX. * * 8500-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE. PERFORM 7HDR-USER-SUPPLIED-HEADINGS. * * 1HDR-FIRST-PAGE-ROUTINE. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-11 AFTER ADVANCING 2 LINES. IF KILL-PROCESS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-6 AFTER ADVANCING 2 LINES WRITE PRINT-RECORD FROM KILL-PROCESS-COLUMN-LINE-1 AFTER ADVANCING 2 LINES ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES. * * 85002-PRINT-HEADERS. MOVE SPACES TO PRINT-RECORD-2. MOVE ZEROS TO REPORT-LINE-COUNTER. ADD 1 TO REPORT-PAGE-COUNTER. MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER. IF FIRST-PAGE PERFORM 1HDR-FIRST-PAGE-ROUTINE-2. IF NARROW-PAPER-REQUIRED PERFORM 2HDR-NARROW-PAPER-ROUTINE-2 ELSE PERFORM 3HDR-WIDE-PAPER-ROUTINE-2. PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2. * * 1HDR-FIRST-PAGE-ROUTINE-2. ACCEPT REPORT-DATE IN HEADER-HOLDING-AREA FROM DATE. ACCEPT REPORT-TIME IN HEADER-HOLDING-AREA FROM TIME. MOVE FULL-MONTH-NAME IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH. MOVE REPORT-DAY IN HEADER-HOLDING-AREA TO HEADER-DAY IN HEADER-STATISTICS. MOVE REPORT-YEAR IN HEADER-HOLDING-AREA TO HEADER-YEAR IN HEADER-STATISTICS. MOVE ACTUAL-CLOCK-TIME IN HEADER-HOLDING-AREA TO HEADER-TIME IN HEADER-STATISTICS. MOVE ZERO TO FIRST-PAGE-SWITCH. INSPECT HEADER-TIME-AREA REPLACING ALL '/' BY ':'. * * 2HDR-NARROW-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 3HDR-WIDE-PAPER-ROUTINE-2. MOVE COMMUNITY-COLLEGE-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING PAGE. MOVE SPACES TO HEADING-LINE. MOVE MIS-PILOT-TITLE IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION IN HEADING-TITLE-LINE. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC. MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. MOVE HEADER-REPORT-ID TO LEFT-STATISTIC. MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC. WRITE PRINT-RECORD-2 FROM HEADING-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO HEADING-LINE. * * 7HDR-USER-SUPPLIED-HEADINGS-2. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-1 AFTER ADVANCING 1 LINE. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-2 AFTER ADVANCING 1 LINES. WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-3 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-7 AFTER ADVANCING 2 LINES. IF DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-8 AFTER ADVANCING 2 LINES. IF COLLEGE-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG OR DISTRICT-ELEMENT-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-1 AFTER ADVANCING 2 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-2 AFTER ADVANCING 1 LINE WRITE PRINT-RECORD-2 FROM ELEMENT-COLUMN-LINE-3 AFTER ADVANCING 1 LINES. IF COLLEGE-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-9 AFTER ADVANCING 2 LINES. IF DISTRICT-INTEGRITY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-10 AFTER ADVANCING 2 LINES. IF COLLEGE-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-4 AFTER ADVANCING 2 LINES. IF DISTRICT-SUMMARY-TOTALS IN HEADER-CONTROL-FLAG WRITE PRINT-RECORD-2 FROM REPORT-TITLE-LINE-5 AFTER ADVANCING 2 LINES. [[#f51eb40]]. [[#22ad5840]] |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#f51eb40]] | * * 8600-WRITE-STUDENT-ENRL-RECORD |
1 | 2 | [[#f51eb40]] | * * 8600-WRITE-SV-RECORD |
1 | 3 | [[#f51eb40]] | * * 8600-WRITE-MATRIC-RECORD |
1 | 4 | [[#f51eb40]] | * * 8600-WRITE-EOPS-RECORD |
1 | 5 | [[#f51eb40]] | * * 8600-WRITE-DSPS-RECORDS |
1 | 6 | [[#f51eb40]] | * * 8600-WRITE-ASSESSMENT-RECORD |
1 | 7 | [[#f51eb40]] | * * 8600-WRITE-PBS-RECORD |
1 | 8 | [[#f51eb40]] | * * 8600-WRITE-EJ-RECORD |
1 | 9 | [[#f51eb40]] | * * 8550-GET-JULIAN-DATE-FROM-XREF |
1 | 10 | [[#f51eb40]] | * * 8600-WRITE-COURSE-DATA |
2 | 1 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDNT-ENRLMNT-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 2 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-SV-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 3 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-MATRIC-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 4 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-EOPS-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 5 | [[#22ad5840]] | MOVE SPACES TO EDITED-STUDNT-DSPS-DATA-RECORD. PERFORM 8610-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDNT-DSPS-DATA-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 6 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-STUDENT-ASSESSMENT-RECD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 7 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-PBS-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 8 | [[#22ad5840]] | PERFORM 8620-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-EJ-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |
2 | 9 | [[#22ad5840]] | SEARCH ALL CAL-ID-TO-JULIAN-DATE-XREF AT END MOVE 0 TO XREF-TABLE-SEARCH-FLAG WHEN CAL-DAY-ID (XREF-INDEX) EQUAL CALENDAR-DAY-ID IN COLLEGE-CALENDAR-RECORD MOVE 1 TO XREF-TABLE-SEARCH-FLAG. |
2 | 10 | [[#22ad5840]] | MOVE SPACES TO EDITED-COURSE-INVENTORY-RECORD. PERFORM 8610-MOVE-DATA-TO-OUT-RECORD. WRITE EDITED-COURSE-INVENTORY-RECORD. ADD 1 TO TOTAL-COLLEGE-RECORDS-WRITTEN. |