Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
44 | 2 | 3 | 0.986 | paragraph_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 44 | 3221 | CCCC3.COB |
2 | 44 | 5367 | CCCC7.COB |
| ||||
* * 4100B-OUTPUT-TOTALS-RECORD. MOVE REPORT-SUM3 TO TOTALS-ID3. MOVE DISTRICT-RECORDS-READ TO READ-TOTALS. MOVE DISTRICT-RECORDS-REJECTED TO REJECTED-TOTALS. MOVE DATE-HOLD TO DATE-FLAG. MOVE HH-MM TO TIME-FLAG. WRITE REPORT-TOTALS-RECORD3. * * 4150-BUMP-DESCRIPTOR-INDEX. SEARCH TOTAL-DESCRIPTIONS-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN TOTAL-DESCRIPTIONS-INDEX IS EQUAL TO DISTRICT-TOTAL-INDEX NEXT SENTENCE. * * 4200-PRINT-ERROR-TOTALS. MOVE REPORT-SUM1 TO TOTALS-ID1. MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO DED-NUMBER. PERFORM 4210A-OUTPUT-TOTALS-RECORD. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET ELEMENT-COLUMN-INDEX TO 1. SET ERROR-COUNT-COL-INDEX TO 1. PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE UNTIL ELEMENT-COLUMN-INDEX GREATER 4. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO ERROR-COUNT-ROW-INDEX. SEARCH EDIT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO ERROR-COUNT-ROW-INDEX PERFORM 4250-BUMP-DESCRIPTOR-INDEX. |
| ||||
* * 4100B-OUTPUT-TOTALS-RECORD. MOVE REPORT-SUM3 TO TOTALS-ID3. MOVE CAMPUS-RECORDS-READ TO READ-TOTALS. MOVE CAMPUS-RECORDS-REJECTED TO REJECTED-TOTALS. MOVE DATE-HOLD TO DATE-FLAG. MOVE HH-MM TO TIME-FLAG. WRITE REPORT-TOTALS-RECORD3. * * 4150-BUMP-DESCRIPTOR-INDEX. SEARCH TOTAL-DESCRIPTIONS-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN TOTAL-DESCRIPTIONS-INDEX IS EQUAL TO COLLEGE-TOTAL-INDEX NEXT SENTENCE. * * 4200-PRINT-ERROR-TOTALS. MOVE REPORT-SUM1 TO TOTALS-ID1. MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO DED-NUMBER. PERFORM 4210A-OUTPUT-TOTALS-RECORD. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET ELEMENT-COLUMN-INDEX TO 1. SET ERROR-COUNT-COL-INDEX TO 1. PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE UNTIL ELEMENT-COLUMN-INDEX GREATER 4. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO ERROR-COUNT-ROW-INDEX. SEARCH EDIT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO ERROR-COUNT-ROW-INDEX PERFORM 4250-BUMP-DESCRIPTOR-INDEX. |
| |||
* * 4100B-OUTPUT-TOTALS-RECORD. MOVE REPORT-SUM3 TO TOTALS-ID3. MOVE [[#24b52b60]]TO READ-TOTALS. MOVE [[#24b52ba0]]TO REJECTED-TOTALS. MOVE DATE-HOLD TO DATE-FLAG. MOVE HH-MM TO TIME-FLAG. WRITE REPORT-TOTALS-RECORD3. * * 4150-BUMP-DESCRIPTOR-INDEX. SEARCH TOTAL-DESCRIPTIONS-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN TOTAL-DESCRIPTIONS-INDEX IS EQUAL TO [[#24b52a80]] NEXT SENTENCE. * * 4200-PRINT-ERROR-TOTALS. MOVE REPORT-SUM1 TO TOTALS-ID1. MOVE ELEMENT-NUMBER (EDIT-ERROR-LITERAL-INDEX) TO DED-NUMBER. PERFORM 4210A-OUTPUT-TOTALS-RECORD. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA . SET ELEMENT-COLUMN-INDEX TO 1. SET ERROR-COUNT-COL-INDEX TO 1. PERFORM 4210B-FILL-ELEMENT-TOTAL-LINE UNTIL ELEMENT-COLUMN-INDEX GREATER 4. WRITE PRINT-RECORD-2 FROM ELEMENT-TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO ERROR-COUNT-ROW-INDEX. SEARCH EDIT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO ERROR-COUNT-ROW-INDEX PERFORM 4250-BUMP-DESCRIPTOR-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#24b52b60]] | CAMPUS-RECORDS-READ |
1 | 2 | [[#24b52b60]] | DISTRICT-RECORDS-READ |
2 | 1 | [[#24b52ba0]] | CAMPUS-RECORDS-REJECTED |
2 | 2 | [[#24b52ba0]] | DISTRICT-RECORDS-REJECTED |
3 | 1 | [[#24b52a80]] | COLLEGE-TOTAL-INDEX |
3 | 2 | [[#24b52a80]] | DISTRICT-TOTAL-INDEX |