CloneSet112


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
21	3	4	0.954	sentence_list[9]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	21	3770	CCCC12.COB
2	21	4301	CCCC9.COB
3	21	4922	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 Abstraction

Parameter Count: 4

Parameter 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
1	1	`[[#24b83c20]]`	DISTRICT-ELEMENT-COLUMN-INDEX
1	2	`[[#24b83c20]]`	COLLEGE-ELEMENT-COLUMN-INDEX
1	3	`[[#24b83c20]]`	COLLEGE-ELEMENT-COLUMN-INDEX
2	1	`[[#24b84120]]`	8811-FILL-DIST-PRINT-LINE
2	2	`[[#24b84120]]`	8211-FILL-CLG-PRINT-LINE
2	3	`[[#24b84120]]`	8211-FILL-CLG-PRINT-LINE
3	1	`[[#24b839c0]]`	DISTRICT-ELEMENT-ROW-INDEX
3	2	`[[#24b839c0]]`	COLLEGE-ELEMENT-ROW-INDEX
3	3	`[[#24b839c0]]`	COLLEGE-ELEMENT-ROW-INDEX
4	1	`[[#24b84060]]`	DISTRICT-ELEMENT-TOTALS-ROWS
4	2	`[[#24b84060]]`	COLLEGE-ELEMENT-TOTALS-ROWS
4	3	`[[#24b84060]]`	COLLEGE-ELEMENT-TOTALS-ROWS