CloneSet112


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
21340.954sentence_list[9]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1213770
CCCC12.COB
2214301
CCCC9.COB
3214922
CCCC9.COB
Clone Instance
1
Line Count
21
Source Line
3770
Source File
CCCC12.COB

           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8211-FILL-CLG-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       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.


Clone Instance
2
Line Count
21
Source Line
4301
Source File
CCCC9.COB

           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      ELEMENT-LITERAL-AREA.
           SET COLLEGE-ELEMENT-COLUMN-INDEX
             TO                                1.
           SET ELEMENT-COLUMN-INDEX
             TO                        1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8211-FILL-CLG-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       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.


Clone Instance
3
Line Count
21
Source Line
4922
Source File
CCCC9.COB

           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.


Clone AbstractionParameter Count: 4Parameter Bindings

           MOVE EDIT-ERROR-LITERAL-AREA
                  IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
           TO ELEMENT-LITERAL-AREA.
           SET [[#24b83c20]]
             TO 1.
           SET ELEMENT-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM [[#24b84120]]
             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 [[#24b839c0]].
           SEARCH [[#24b84060]]
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO [[#24b839c0]]
               NEXT SENTENCE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b83c20]]
       DISTRICT-ELEMENT-COLUMN-INDEX 
12[[#24b83c20]]
       COLLEGE-ELEMENT-COLUMN-INDEX 
13[[#24b83c20]]
       COLLEGE-ELEMENT-COLUMN-INDEX 
21[[#24b84120]]
       8811-FILL-DIST-PRINT-LINE 
22[[#24b84120]]
       8211-FILL-CLG-PRINT-LINE 
23[[#24b84120]]
       8211-FILL-CLG-PRINT-LINE 
31[[#24b839c0]]
       DISTRICT-ELEMENT-ROW-INDEX 
32[[#24b839c0]]
       COLLEGE-ELEMENT-ROW-INDEX 
33[[#24b839c0]]
       COLLEGE-ELEMENT-ROW-INDEX 
41[[#24b84060]]
       DISTRICT-ELEMENT-TOTALS-ROWS 
42[[#24b84060]]
       COLLEGE-ELEMENT-TOTALS-ROWS 
43[[#24b84060]]
       COLLEGE-ELEMENT-TOTALS-ROWS