Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
24 | 3 | 0 | 1.000 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 24 | 4866 | CCCC1.COB |
2 | 24 | 3828 | CCCC12.COB |
3 | 24 | 3663 | CCCC8.COB |
| ||||
* MOVE SPACES TO PRINT-RECORD-2. * MOVE CLG-INTEGRITY-ERR-17-TOTAL TO INTEGRITY-TOTAL. * MOVE INTEGRITY-ERR-17-DESC TO INTEGRITY-DESCRIPTION. * WRITE PRINT-RECORD-2 * FROM INTEGRITY-TOTAL-DETAIL-LINE * AFTER ADVANCING 2 LINES. * * 8230-PRINT-COLLEGE-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE COLLEGE-TOTAL IN TOTAL-COLLEGE-ENTRY (TOTAL-COLLEGE-INDEX) TO TOTAL-FIELD IN TOTAL-DETAIL-LINE. WRITE PRINT-RECORD-2 FROM TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO TOTAL-COLLEGE-INDEX. SEARCH TOTAL-COLLEGE-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO TOTAL-COLLEGE-INDEX NEXT SENTENCE. SET TOTAL-DESCRIPTION-INDEX TO TOTAL-COLLEGE-INDEX. |
| ||||
* * 8230-PRINT-COLLEGE-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE COLLEGE-TOTAL IN TOTAL-COLLEGE-ENTRY (TOTAL-COLLEGE-INDEX) TO TOTAL-FIELD IN TOTAL-DETAIL-LINE. WRITE PRINT-RECORD-2 FROM TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO TOTAL-COLLEGE-INDEX. SEARCH TOTAL-COLLEGE-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO TOTAL-COLLEGE-INDEX NEXT SENTENCE. SET TOTAL-DESCRIPTION-INDEX TO TOTAL-COLLEGE-INDEX. |
| ||||
* * 8230-PRINT-COLLEGE-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE COLLEGE-TOTAL IN TOTAL-COLLEGE-ENTRY (TOTAL-COLLEGE-INDEX) TO TOTAL-FIELD IN TOTAL-DETAIL-LINE. WRITE PRINT-RECORD-2 FROM TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO TOTAL-COLLEGE-INDEX. SEARCH TOTAL-COLLEGE-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO TOTAL-COLLEGE-INDEX NEXT SENTENCE. SET TOTAL-DESCRIPTION-INDEX TO TOTAL-COLLEGE-INDEX. |
| |||
* MOVE SPACES TO PRINT-RECORD-2. * MOVE CLG-INTEGRITY-ERR-17-TOTAL TO INTEGRITY-TOTAL. * MOVE INTEGRITY-ERR-17-DESC TO INTEGRITY-DESCRIPTION. * WRITE PRINT-RECORD-2 * FROM INTEGRITY-TOTAL-DETAIL-LINE * AFTER ADVANCING 2 LINES. * * 8230-PRINT-COLLEGE-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX)TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE . MOVE COLLEGE-TOTAL IN TOTAL-COLLEGE-ENTRY (TOTAL-COLLEGE-INDEX) TO TOTAL-FIELD IN TOTAL-DETAIL-LINE . WRITE PRINT-RECORD-2 FROM TOTAL-DETAIL-LINE AFTER ADVANCING 1 LINE. SET ORIGINAL-INDEX-VALUE TO TOTAL-COLLEGE-INDEX. SEARCH TOTAL-COLLEGE-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO TOTAL-COLLEGE-INDEX NEXT SENTENCE. SET TOTAL-DESCRIPTION-INDEX TO TOTAL-COLLEGE-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |