CloneSet6


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
3351020.981paragraph_list[12]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
13364936
CCCC1.COB
23354536
CCCC11.COB
33353918
CCCC13.COB
43354755
CCCC14.COB
53375075
CCCC2.COB
63354089
CCCC4.COB
73353654
CCCC5.COB
83354132
CCCC6.COB
93363733
CCCC8.COB
103354477
CCCC9.COB
Clone Instance
1
Line Count
336
Source Line
4936
Source File
CCCC1.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.


Clone Instance
2
Line Count
335
Source Line
4536
Source File
CCCC11.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-MATRIC-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-MATRIC-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
3
Line Count
335
Source Line
3918
Source File
CCCC13.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-SV-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-SV-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
4
Line Count
335
Source Line
4755
Source File
CCCC14.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-STUDENT-ENRL-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDNT-ENRLMNT-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
5
Line Count
337
Source Line
5075
Source File
CCCC2.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.
      *
      *
       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.


Clone Instance
6
Line Count
335
Source Line
4089
Source File
CCCC4.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-EJ-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-EJ-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
7
Line Count
335
Source Line
3654
Source File
CCCC5.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-PBS-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-PBS-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
8
Line Count
335
Source Line
4132
Source File
CCCC6.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-ASSESSMENT-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-ASSESSMENT-RECD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone Instance
9
Line Count
336
Source Line
3733
Source File
CCCC8.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-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.


Clone Instance
10
Line Count
335
Source Line
4477
Source File
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-EOPS-RECORD.
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-EOPS-RECORD.
           ADD 1
             TO     TOTAL-COLLEGE-RECORDS-WRITTEN.


Clone AbstractionParameter Count: 2Parameter Bindings

      *
      *
       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 Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#f51eb40]]
      *
      *
       8600-WRITE-STUDENT-ENRL-RECORD 
12[[#f51eb40]]
      *
      *
       8600-WRITE-SV-RECORD 
13[[#f51eb40]]
      *
      *
       8600-WRITE-MATRIC-RECORD 
14[[#f51eb40]]
      *
      *
       8600-WRITE-EOPS-RECORD 
15[[#f51eb40]]
      *
      *
       8600-WRITE-DSPS-RECORDS 
16[[#f51eb40]]
      *
      *
       8600-WRITE-ASSESSMENT-RECORD 
17[[#f51eb40]]
      *
      *
       8600-WRITE-PBS-RECORD 
18[[#f51eb40]]
      *
      *
       8600-WRITE-EJ-RECORD 
19[[#f51eb40]]
      *
      *
       8550-GET-JULIAN-DATE-FROM-XREF 
110[[#f51eb40]]
      *
      *
       8600-WRITE-COURSE-DATA 
21[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDNT-ENRLMNT-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
22[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-SV-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
23[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-MATRIC-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
24[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-EOPS-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
25[[#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. 
26[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-STUDENT-ASSESSMENT-RECD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
27[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-PBS-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
28[[#22ad5840]]
           PERFORM 8620-MOVE-DATA-TO-OUT-RECORD.
           WRITE EDITED-EJ-RECORD.
           ADD 1
             TO TOTAL-COLLEGE-RECORDS-WRITTEN. 
29[[#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. 
210[[#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.