Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
23 | 7 | 0 | 1.000 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 23 | 5075 | CCCC11.COB |
2 | 23 | 4424 | CCCC13.COB |
3 | 23 | 5296 | CCCC14.COB |
4 | 23 | 5664 | CCCC2.COB |
5 | 23 | 4622 | CCCC4.COB |
6 | 23 | 4136 | CCCC5.COB |
7 | 23 | 5028 | CCCC9.COB |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| ||||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX) TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE. MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
| |||
* * 8830-PRINT-DISTRICT-SUM-TOTALS. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTION-ENTRY (TOTAL-DESCRIPTION-INDEX)TO TOTAL-DESCRIPTION IN TOTAL-DETAIL-LINE . MOVE DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-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 DISTRICT-TOTAL-INDEX. SEARCH DISTRICT-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-TOTAL-INDEX SET TOTAL-DESCRIPTION-INDEX TO DISTRICT-TOTAL-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |