Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
33 | 3 | 6 | 0.957 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 33 | 6101 | CCCC15.COB |
2 | 33 | 6203 | CCCC15.COB |
3 | 33 | 6305 | CCCC15.COB |
| ||||
* * 8400-PRINT-SECTION-REPORT. IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT AND NOT PRINT-ALL NEXT SENTENCE ELSE IF PAGE-IS-FULL MOVE REPORT-ID TO PROGRAM-NAME PERFORM 8500-PRINT-HEADERS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3A AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET SECTION-ERROR-ROW-INDEX TO 1 SET SECTION-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-SECTION-DETAIL UNTIL TABLE-SEARCH-COMPLETED ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET SECTION-ERROR-ROW-INDEX TO 1 SET SECTION-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-SECTION-DETAIL UNTIL TABLE-SEARCH-COMPLETED MOVE 99 TO REPORT-LINE-COUNTER. MOVE SPACES TO SECTION-ERROR-TABLE. SET SECTION-ERROR-COLUMN-INDEX TO 1. IF PRINT-ALL NEXT SENTENCE ELSE ADD 1 TO PRINT-RECORD-COUNT. |
| ||||
* * 8400-PRINT-SESSION-REPORT. IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT AND NOT PRINT-ALL NEXT SENTENCE ELSE IF PAGE-IS-FULL MOVE REPORT-ID TO PROGRAM-NAME PERFORM 8500-PRINT-HEADERS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3A AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET SESSION-ERROR-ROW-INDEX TO 1 SET SESSION-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-SESSION-DETAIL UNTIL TABLE-SEARCH-COMPLETED ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET SESSION-ERROR-ROW-INDEX TO 1 SET SESSION-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-SESSION-DETAIL UNTIL TABLE-SEARCH-COMPLETED MOVE 99 TO REPORT-LINE-COUNTER. MOVE SPACES TO SESSION-ERROR-TABLE. SET SESSION-ERROR-COLUMN-INDEX TO 1. IF PRINT-ALL NEXT SENTENCE ELSE ADD 1 TO PRINT-RECORD-COUNT. |
| ||||
* * 8400-PRINT-ASSIGN-REPORT. IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT AND NOT PRINT-ALL NEXT SENTENCE ELSE IF PAGE-IS-FULL MOVE REPORT-ID TO PROGRAM-NAME PERFORM 8500-PRINT-HEADERS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3A AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET ASSIGN-ERROR-ROW-INDEX TO 1 SET ASSIGN-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-ASSIGN-DETAIL UNTIL TABLE-SEARCH-COMPLETED ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET ASSIGN-ERROR-ROW-INDEX TO 1 SET ASSIGN-ERROR-LITERAL-INDEX TO 1 PERFORM 8410-PRINT-ASSIGN-DETAIL UNTIL TABLE-SEARCH-COMPLETED MOVE 99 TO REPORT-LINE-COUNTER. MOVE SPACES TO ASSIGN-ERROR-TABLE. SET ASSIGN-ERROR-COLUMN-INDEX TO 1. IF PRINT-ALL NEXT SENTENCE ELSE ADD 1 TO PRINT-RECORD-COUNT. |
| |||
[[#24b037c0]]. IF PRINT-RECORD-COUNT GREATER PRINT-RECORD-LIMIT AND NOT PRINT-ALL NEXT SENTENCE ELSE IF PAGE-IS-FULL MOVE REPORT-ID TO PROGRAM-NAME PERFORM 8500-PRINT-HEADERS WRITE PRINT-RECORD FROM REPORT-TITLE-LINE-3A AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET [[#24b03920]] TO 1 SET [[#24b02f60]] TO 1 PERFORM [[#24b03900]] UNTIL TABLE-SEARCH-COMPLETED ELSE WRITE PRINT-RECORD FROM REPORT-COLUMN-LINE-1 AFTER ADVANCING 2 LINES MOVE SPACES TO PRINT-RECORD WRITE PRINT-RECORD AFTER 1 LINE MOVE ZERO TO TABLE-SEARCH-FLAG SET [[#24b03920]] TO 1 SET [[#24b02f60]] TO 1 PERFORM [[#24b03900]] UNTIL TABLE-SEARCH-COMPLETED MOVE 99 TO REPORT-LINE-COUNTER. MOVE SPACES TO [[#24b03860]]. SET [[#24b03760]] TO 1. IF PRINT-ALL NEXT SENTENCE ELSE ADD 1 TO PRINT-RECORD-COUNT. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#24b037c0]] | * * 8400-PRINT-SECTION-REPORT |
1 | 2 | [[#24b037c0]] | * * 8400-PRINT-SESSION-REPORT |
1 | 3 | [[#24b037c0]] | * * 8400-PRINT-ASSIGN-REPORT |
2 | 1 | [[#24b03920]] | SECTION-ERROR-ROW-INDEX |
2 | 2 | [[#24b03920]] | SESSION-ERROR-ROW-INDEX |
2 | 3 | [[#24b03920]] | ASSIGN-ERROR-ROW-INDEX |
3 | 1 | [[#24b02f60]] | SECTION-ERROR-LITERAL-INDEX |
3 | 2 | [[#24b02f60]] | SESSION-ERROR-LITERAL-INDEX |
3 | 3 | [[#24b02f60]] | ASSIGN-ERROR-LITERAL-INDEX |
4 | 1 | [[#24b03900]] | 8410-PRINT-SECTION-DETAIL |
4 | 2 | [[#24b03900]] | 8410-PRINT-SESSION-DETAIL |
4 | 3 | [[#24b03900]] | 8410-PRINT-ASSIGN-DETAIL |
5 | 1 | [[#24b03860]] | SECTION-ERROR-TABLE |
5 | 2 | [[#24b03860]] | SESSION-ERROR-TABLE |
5 | 3 | [[#24b03860]] | ASSIGN-ERROR-TABLE |
6 | 1 | [[#24b03760]] | SECTION-ERROR-COLUMN-INDEX |
6 | 2 | [[#24b03760]] | SESSION-ERROR-COLUMN-INDEX |
6 | 3 | [[#24b03760]] | ASSIGN-ERROR-COLUMN-INDEX |