CloneSet69


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
57201.000paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1573783
CCCC2.COB
2573350
CCCC6.COB
Clone Instance
1
Line Count
57
Source Line
3783
Source File
CCCC2.COB

      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone Instance
2
Line Count
57
Source Line
3350
Source File
CCCC6.COB

      *    MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
      *            IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO                                 1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
                   UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO       COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                   IN COLLEGE-ELEMENT-TOTALS-COLUMNS
                   (COLLEGE-ELEMENT-ROW-INDEX
                    COLLEGE-ELEMENT-COLUMN-INDEX)
             TO       DISTRICT-ELEMENT-TOTAL
                   IN DISTRICT-ELEMNT-TOTALS-COLUMNS
                   (DISTRICT-ELEMENT-ROW-INDEX
                    DISTRICT-ELEMENT-COLUMN-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
           AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO       COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                   IN COLLEGE-TOTAL-ENTRY
                   (COLLEGE-TOTAL-INDEX)
             TO       DISTRICT-TOTAL
                   IN DISTRICT-TOTAL-ENTRY
                   (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO       COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO       COLLEGE-TOTAL-INDEX.


Clone AbstractionParameter Count: 0Parameter Bindings

      *    MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS
      *            IN PROGRAM-ACCUMULATORS.
      *
      *
       2210-ADD-DISTRICT-ELMNT-TOTALS.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO 1.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO 1.
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG.
           PERFORM 2211-ADD-TO-DISTRICT-MATRIX
             UNTIL ADD-ELEMENT-COLUMNS-DONE.
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-ELEMENT-ROW-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-ELEMENT-ROW-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-ROW-INDEX
             TO COLLEGE-ELEMENT-ROW-INDEX.
      *
      *
       2211-ADD-TO-DISTRICT-MATRIX.
           ADD COLLEGE-ELEMENT-TOTAL
                 IN COLLEGE-ELEMENT-TOTALS-COLUMNS (
                                               COLLEGE-ELEMENT-ROW-INDEX
                                            COLLEGE-ELEMENT-COLUMN-INDEX
                                                   )
             TO DISTRICT-ELEMENT-TOTAL
                  IN DISTRICT-ELEMNT-TOTALS-COLUMNS (
                                              DISTRICT-ELEMENT-ROW-INDEX
                                           DISTRICT-ELEMENT-COLUMN-INDEX
                                                    ).
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-ELEMENT-COLUMN-INDEX.
           SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS
             AT END
               MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-ELEMENT-COLUMN-INDEX
               NEXT SENTENCE.
           SET DISTRICT-ELEMENT-COLUMN-INDEX
             TO COLLEGE-ELEMENT-COLUMN-INDEX.
      *
      *
       2220-ADD-DISTRICT-SUM-TOTALS.
           ADD COLLEGE-TOTAL
                 IN COLLEGE-TOTAL-ENTRY (COLLEGE-TOTAL-INDEX)
             TO DISTRICT-TOTAL
                  IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO COLLEGE-TOTAL-INDEX.
           SEARCH COLLEGE-TOTAL-ENTRY
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  COLLEGE-TOTAL-INDEX
               NEXT SENTENCE.
           SET DISTRICT-TOTAL-INDEX
             TO COLLEGE-TOTAL-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None