Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
53 | 2 | 0 | 1.000 | paragraph_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 53 | 3843 | CCCC3.COB |
2 | 53 | 6039 | CCCC7.COB |
| ||||
* * 9200-PRINT-TOTAL-LINES. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTIONS-ENTRY (TOTAL-DESCRIPTIONS-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. MOVE SPACES TO TOTAL-DETAIL-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 PERFORM 9250-BUMP-DESCRIPTOR-INDEX. * * 9250-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. * * 9300-PRINT-ERROR-TOTALS. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-COUNT-COL-INDEX TO 1. PERFORM 9310-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 DISTRICT-COUNT-ROW-INDEX. SEARCH DISTRICT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX PERFORM 9350-BUMP-DESCRIPTOR-INDEX. |
| ||||
* * 9200-PRINT-TOTAL-LINES. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTIONS-ENTRY (TOTAL-DESCRIPTIONS-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. MOVE SPACES TO TOTAL-DETAIL-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 PERFORM 9250-BUMP-DESCRIPTOR-INDEX. * * 9250-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. * * 9300-PRINT-ERROR-TOTALS. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA. SET ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-COUNT-COL-INDEX TO 1. PERFORM 9310-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 DISTRICT-COUNT-ROW-INDEX. SEARCH DISTRICT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX PERFORM 9350-BUMP-DESCRIPTOR-INDEX. |
| |||
* * 9200-PRINT-TOTAL-LINES. MOVE TOTAL-DESCRIPTION IN TOTAL-DESCRIPTIONS-ENTRY (TOTAL-DESCRIPTIONS-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. MOVE SPACES TO TOTAL-DETAIL-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 PERFORM 9250-BUMP-DESCRIPTOR-INDEX. * * 9250-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. * * 9300-PRINT-ERROR-TOTALS. MOVE DATA-ELEMENT-LITERAL (EDIT-ERROR-LITERAL-INDEX) TO ELEMENT-LITERAL-AREA . SET ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-COUNT-COL-INDEX TO 1. PERFORM 9310-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 DISTRICT-COUNT-ROW-INDEX. SEARCH DISTRICT-ERROR-COUNT-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO DISTRICT-COUNT-ROW-INDEX PERFORM 9350-BUMP-DESCRIPTOR-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |