Previous CloneSet | Next CloneSet | Back to Main Report |
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 |
| ||||
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. |
| ||||
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. |
| ||||
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. |
| |||
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 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 |