CloneSet15


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
111660.988paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
11115381
CCCC1.COB
21004939
CCCC11.COB
31004306
CCCC13.COB
41004480
CCCC4.COB
51004018
CCCC5.COB
61004110
CCCC8.COB
Clone Instance
1
Line Count
111
Source Line
5381
Source File
CCCC1.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
               MOVE DISTRICT-ID
                       IN RUNTIME-PARAMETER-AREA TO
                          REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET TOTAL-DISTRICT-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-25
                 AND   ELEMENT-COLUMN-2)
                OR
                  (ELEMENT-ROWS-1-25
                     AND ELEMENT-COLUMN-3)
                OR
                  (ELEMENT-ROWS-1-25
                     AND ELEMENT-COLUMN-4)
      *                OR
      *           (ELEMENT-ROWS-13
      *            AND ELEMENT-COLUMN-4)
      *                OR
      *           (ELEMENT-ROWS-17
      *            AND ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE
               MOVE DISTRICT-ELEMENT-TOTAL
                       IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                       (DISTRICT-ELEMENT-ROW-INDEX
                        DISTRICT-ELEMENT-COLUMN-INDEX) TO
                          ELEMENT-TOTAL
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
2
Line Count
100
Source Line
4939
Source File
CCCC11.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
               MOVE DISTRICT-ID
                       IN RUNTIME-PARAMETER-AREA TO
                          REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-5-OR-9-18
                 AND                        ELEMENT-COLUMN-2)
                OR (ELEMENT-ROWS-1-6-OR-8-16
                      AND                        ELEMENT-COLUMN-3)
                OR       (ELEMENT-ROWS-1-16
                            AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
3
Line Count
100
Source Line
4306
Source File
CCCC13.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
           MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 3 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-13
                 AND                 ELEMENT-COLUMN-2)
                OR    (ELEMENT-ROWS-1-13
                         AND                 ELEMENT-COLUMN-3)
                OR    (ELEMENT-ROWS-1-13
                         AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
4
Line Count
100
Source Line
4480
Source File
CCCC4.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
           MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 3 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-12
                 AND                 ELEMENT-COLUMN-2)
                OR    (ELEMENT-ROWS-1-11
                         AND                 ELEMENT-COLUMN-3)
                OR    (ELEMENT-ROWS-1-12
                         AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
5
Line Count
100
Source Line
4018
Source File
CCCC5.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
           MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 3 LINES.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-TOTAL-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           IF (ELEMENT-ROWS-1-6
                 AND                ELEMENT-COLUMN-2)
                OR    (ELEMENT-ROWS-1-7
                         AND                ELEMENT-COLUMN-3)
                OR    (ELEMENT-ROWS-1-7
                         AND                ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
           ELSE MOVE DISTRICT-ELEMENT-TOTAL
                        IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                        (DISTRICT-ELEMENT-ROW-INDEX
                         DISTRICT-ELEMENT-COLUMN-INDEX) TO
                           ELEMENT-TOTAL
                        IN ELEMENT-COLUMNS
                        (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone Instance
6
Line Count
100
Source Line
4110
Source File
CCCC8.COB

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX) TO
                      COLLEGE-NAME
                   IN REPORT-TITLE-LINE-3.
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF  SINGLE-COLLEGE-DISTRICT
                   IN DISTRICT-CODE-ENTRY
                   (DISTRICT-CODE-INDEX)
               MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
           MOVE DISTRICT-ID
                   IN RUNTIME-PARAMETER-AREA TO
                      REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO                              1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                   IN PROGRAM-LITERAL-AND-WORK TO
                      PROGRAM-NAME
                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM       BLANK-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET TOTAL-DISTRICT-INDEX
             TO                        1.
           SET TOTAL-DESCRIPTION-INDEX
             TO                           1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
                   UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM       ELEMENT-TOTAL-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO       DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET  ELEMENT-TABLE-ROW-ID
             TO       DISTRICT-ELEMENT-ROW-INDEX.
           SET  ELEMENT-TABLE-COLUMN-ID
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
               IF (ELEMENT-ROWS-1-10
                     AND                 ELEMENT-COLUMN-2)
                    OR(ELEMENT-ROWS-1-10
                         AND                 ELEMENT-COLUMN-3)
                    OR(ELEMENT-ROWS-1-10
                         AND                 ELEMENT-COLUMN-4)
               MOVE NOT-APPLICABLE-LITERAL TO
                          ELEMENT-N-A
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX)
               ELSE
               MOVE DISTRICT-ELEMENT-TOTAL
                       IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                       (DISTRICT-ELEMENT-ROW-INDEX
                        DISTRICT-ELEMENT-COLUMN-INDEX) TO
                          ELEMENT-TOTAL
                       IN ELEMENT-COLUMNS
                       (ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO       DISTRICT-ELEMENT-COLUMN-INDEX.


Clone AbstractionParameter Count: 6Parameter Bindings

      *
      *
       8800-PRINT-DISTRICT-TOTALS.
           MOVE DISTRICT-NAME
                  IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX) TO
                                                            COLLEGE-NAME
                                                              IN
                                                     REPORT-TITLE-LINE-3
           .
           MOVE 4 TO HEADER-CONTROL-FLAG.
           MOVE SUM1-PROGRAM-LIT TO REPORT-ID-LIT.
           IF SINGLE-COLLEGE-DISTRICT
                IN DISTRICT-CODE-ENTRY (DISTRICT-CODE-INDEX)
             MOVE HOLD-COLLEGE-ID TO REPORT-CLG-DIST-ID
           ELSE
             MOVE DISTRICT-ID
                    IN RUNTIME-PARAMETER-AREA TO REPORT-CLG-DIST-ID.
           MOVE SUMMARY-PROGRAM-NAME
                  IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO 1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           PERFORM 8810-PRINT-DIST-ELEMENT-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
           PERFORM 8820-PRINT-DIST-INTGRTY-TOTALS.
           MOVE 7 TO HEADER-CONTROL-FLAG.
           MOVE SUM3-PROGRAM-LIT TO REPORT-ID-LIT.
           MOVE SUMMARY-PROGRAM-NAME
                  IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                   IN HEADER-REPORT-ID.
           PERFORM 85002-PRINT-HEADERS.
           WRITE PRINT-RECORD-2
             FROM BLANK-LINE
             AFTER ADVANCING [[#22a97580]] [[#22a97520]].
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET [[#22a97460]]
             TO 1.
           SET TOTAL-DESCRIPTION-INDEX
             TO 1.
           PERFORM 8830-PRINT-DISTRICT-SUM-TOTALS
             UNTIL TABLE-SEARCH-COMPLETED.
      *
      *
       8810-PRINT-DIST-ELEMENT-TOTALS.
           MOVE EDIT-ERROR-LITERAL-AREA
                  IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
           TO ELEMENT-LITERAL-AREA.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO 1.
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8811-FILL-DIST-PRINT-LINE
             UNTIL PRINT-LINE-FILLED.
           WRITE PRINT-RECORD-2
             FROM ELEMENT-TOTAL-DETAIL-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO ELEMENT-TOTAL-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO DISTRICT-ELEMENT-ROW-INDEX.
           SEARCH DISTRICT-ELEMENT-TOTALS-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET EDIT-ERROR-LITERAL-INDEX
             TO DISTRICT-ELEMENT-ROW-INDEX.
      *
      *
       8811-FILL-DIST-PRINT-LINE.
           SET ELEMENT-TABLE-ROW-ID
             TO DISTRICT-ELEMENT-ROW-INDEX.
           SET ELEMENT-TABLE-COLUMN-ID
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
           IF ( [[#22a97400]]
                 AND ELEMENT-COLUMN-2)
                OR ( [[#22a973a0]]
                      AND ELEMENT-COLUMN-3)
                OR ( [[#22a97240]]
                      AND ELEMENT-COLUMN-4)
      *                OR
      *           (ELEMENT-ROWS-13
      *            AND ELEMENT-COLUMN-4)
      *                OR
      *           (ELEMENT-ROWS-17
      *            AND ELEMENT-COLUMN-4)
             MOVE NOT-APPLICABLE-LITERAL TO ELEMENT-N-A
                                              IN ELEMENT-COLUMNS (
                                                    ELEMENT-COLUMN-INDEX
                                                                 )
           ELSE
             MOVE DISTRICT-ELEMENT-TOTAL
                    IN DISTRICT-ELEMNT-TOTALS-COLUMNS (
                                              DISTRICT-ELEMENT-ROW-INDEX
                                           DISTRICT-ELEMENT-COLUMN-INDEX
                                                      ) TO ELEMENT-TOTAL
                                                             IN
                                                         ELEMENT-COLUMNS
                                                           (
                                                    ELEMENT-COLUMN-INDEX
                                                           ).
           SET ORIGINAL-INDEX-VALUE
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
           SEARCH DISTRICT-ELEMNT-TOTALS-COLUMNS
             AT END
               MOVE 1 TO PRINT-LINE-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  DISTRICT-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET ELEMENT-COLUMN-INDEX
             TO DISTRICT-ELEMENT-COLUMN-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a97580]]
       1 
12[[#22a97580]]
       3 
13[[#22a97580]]
       3 
14[[#22a97580]]
       1 
15[[#22a97580]]
       1 
16[[#22a97580]]
       3 
21[[#22a97520]]
       LINE 
22[[#22a97520]]
       LINES 
23[[#22a97520]]
       LINES 
24[[#22a97520]]
       LINE 
25[[#22a97520]]
       LINE 
26[[#22a97520]]
       LINES 
31[[#22a97460]]
       TOTAL-DISTRICT-INDEX 
32[[#22a97460]]
       DISTRICT-TOTAL-INDEX 
33[[#22a97460]]
       DISTRICT-TOTAL-INDEX 
34[[#22a97460]]
       DISTRICT-TOTAL-INDEX 
35[[#22a97460]]
       TOTAL-DISTRICT-INDEX 
36[[#22a97460]]
       DISTRICT-TOTAL-INDEX 
41[[#22a97400]]
       ELEMENT-ROWS-1-25 
42[[#22a97400]]
       ELEMENT-ROWS-1-12 
43[[#22a97400]]
       ELEMENT-ROWS-1-6 
44[[#22a97400]]
       ELEMENT-ROWS-1-5-OR-9-18 
45[[#22a97400]]
       ELEMENT-ROWS-1-10 
46[[#22a97400]]
       ELEMENT-ROWS-1-13 
51[[#22a973a0]]
       ELEMENT-ROWS-1-25 
52[[#22a973a0]]
       ELEMENT-ROWS-1-11 
53[[#22a973a0]]
       ELEMENT-ROWS-1-7 
54[[#22a973a0]]
       ELEMENT-ROWS-1-6-OR-8-16 
55[[#22a973a0]]
       ELEMENT-ROWS-1-10 
56[[#22a973a0]]
       ELEMENT-ROWS-1-13 
61[[#22a97240]]
       ELEMENT-ROWS-1-25 
62[[#22a97240]]
       ELEMENT-ROWS-1-12 
63[[#22a97240]]
       ELEMENT-ROWS-1-7 
64[[#22a97240]]
       ELEMENT-ROWS-1-16 
65[[#22a97240]]
       ELEMENT-ROWS-1-10 
66[[#22a97240]]
       ELEMENT-ROWS-1-13