Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
23 | 2 | 0 | 1.000 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 23 | 3480 | CCCC3.COB |
2 | 23 | 5656 | CCCC7.COB |
| ||||
* * 5100-PRINT-DETAIL-LINES. MOVE DATA-ELEMENT-LITERAL IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO DETAIL-LITERAL-AREA IN EDIT-ERROR-PRINT-LINE. SET EDIT-COLUMN-INDEX TO 1. SET EDIT-ERROR-DATA-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 5200-FILL-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD FROM EDIT-ERROR-PRINT-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO EDIT-ERROR-PRINT-LINE. SET ORIGINAL-INDEX-VALUE TO EDIT-ROW-INDEX. SEARCH EDIT-ERROR-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ROW-INDEX PERFORM 5150-BUMP-LITERAL-INDEX. |
| ||||
* * 5100-PRINT-DETAIL-LINES. MOVE DATA-ELEMENT-LITERAL IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO DETAIL-LITERAL-AREA IN EDIT-ERROR-PRINT-LINE. SET EDIT-COLUMN-INDEX TO 1. SET EDIT-ERROR-DATA-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 5200-FILL-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD FROM EDIT-ERROR-PRINT-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO EDIT-ERROR-PRINT-LINE. SET ORIGINAL-INDEX-VALUE TO EDIT-ROW-INDEX. SEARCH EDIT-ERROR-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ROW-INDEX PERFORM 5150-BUMP-LITERAL-INDEX. |
| |||
* * 5100-PRINT-DETAIL-LINES. MOVE DATA-ELEMENT-LITERAL IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX) TO DETAIL-LITERAL-AREA IN EDIT-ERROR-PRINT-LINE. SET EDIT-COLUMN-INDEX TO 1. SET EDIT-ERROR-DATA-INDEX TO 1. MOVE ZERO TO PRINT-LINE-FLAG. PERFORM 5200-FILL-PRINT-LINE UNTIL PRINT-LINE-FILLED. WRITE PRINT-RECORD FROM EDIT-ERROR-PRINT-LINE AFTER ADVANCING 1 LINE. MOVE SPACES TO EDIT-ERROR-PRINT-LINE. SET ORIGINAL-INDEX-VALUE TO EDIT-ROW-INDEX. SEARCH EDIT-ERROR-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ROW-INDEX PERFORM 5150-BUMP-LITERAL-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |