| 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. |