Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
57 | 2 | 0 | 1.000 | paragraph_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 57 | 3783 | CCCC2.COB |
2 | 57 | 3350 | CCCC6.COB |
| ||||
* * 2210-ADD-DISTRICT-ELMNT-TOTALS. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG. PERFORM 2211-ADD-TO-DISTRICT-MATRIX UNTIL ADD-ELEMENT-COLUMNS-DONE. SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-ROW-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-ROW-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 2211-ADD-TO-DISTRICT-MATRIX. ADD COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. * * 2220-ADD-DISTRICT-SUM-TOTALS. ADD COLLEGE-TOTAL IN COLLEGE-TOTAL-ENTRY (COLLEGE-TOTAL-INDEX) TO DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-TOTAL-INDEX. SEARCH COLLEGE-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-TOTAL-INDEX NEXT SENTENCE. SET DISTRICT-TOTAL-INDEX TO COLLEGE-TOTAL-INDEX. |
| ||||
* MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS * IN PROGRAM-ACCUMULATORS. * * 2210-ADD-DISTRICT-ELMNT-TOTALS. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG. PERFORM 2211-ADD-TO-DISTRICT-MATRIX UNTIL ADD-ELEMENT-COLUMNS-DONE. SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-ROW-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-ROW-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 2211-ADD-TO-DISTRICT-MATRIX. ADD COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS (COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX) TO DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS (DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. * * 2220-ADD-DISTRICT-SUM-TOTALS. ADD COLLEGE-TOTAL IN COLLEGE-TOTAL-ENTRY (COLLEGE-TOTAL-INDEX) TO DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-TOTAL-INDEX. SEARCH COLLEGE-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-TOTAL-INDEX NEXT SENTENCE. SET DISTRICT-TOTAL-INDEX TO COLLEGE-TOTAL-INDEX. |
| |||
* MOVE ZEROS TO COLLEGE-INTEGRITY-TOTALS * IN PROGRAM-ACCUMULATORS. * * 2210-ADD-DISTRICT-ELMNT-TOTALS. SET COLLEGE-ELEMENT-COLUMN-INDEX TO 1. SET DISTRICT-ELEMENT-COLUMN-INDEX TO 1. SET ELEMENT-COLUMN-INDEX TO 1. MOVE ZERO TO ADD-ELEMENT-COLUMNS-FLAG. PERFORM 2211-ADD-TO-DISTRICT-MATRIX UNTIL ADD-ELEMENT-COLUMNS-DONE. SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-ROW-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-ROWS AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-ROW-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-ROW-INDEX TO COLLEGE-ELEMENT-ROW-INDEX. * * 2211-ADD-TO-DISTRICT-MATRIX. ADD COLLEGE-ELEMENT-TOTAL IN COLLEGE-ELEMENT-TOTALS-COLUMNS ( COLLEGE-ELEMENT-ROW-INDEX COLLEGE-ELEMENT-COLUMN-INDEX ) TO DISTRICT-ELEMENT-TOTAL IN DISTRICT-ELEMNT-TOTALS-COLUMNS ( DISTRICT-ELEMENT-ROW-INDEX DISTRICT-ELEMENT-COLUMN-INDEX ). SET ORIGINAL-INDEX-VALUE TO COLLEGE-ELEMENT-COLUMN-INDEX. SEARCH COLLEGE-ELEMENT-TOTALS-COLUMNS AT END MOVE 1 TO ADD-ELEMENT-COLUMNS-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-ELEMENT-COLUMN-INDEX NEXT SENTENCE. SET DISTRICT-ELEMENT-COLUMN-INDEX TO COLLEGE-ELEMENT-COLUMN-INDEX. * * 2220-ADD-DISTRICT-SUM-TOTALS. ADD COLLEGE-TOTAL IN COLLEGE-TOTAL-ENTRY (COLLEGE-TOTAL-INDEX) TO DISTRICT-TOTAL IN DISTRICT-TOTAL-ENTRY (DISTRICT-TOTAL-INDEX). SET ORIGINAL-INDEX-VALUE TO COLLEGE-TOTAL-INDEX. SEARCH COLLEGE-TOTAL-ENTRY AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO COLLEGE-TOTAL-INDEX NEXT SENTENCE. SET DISTRICT-TOTAL-INDEX TO COLLEGE-TOTAL-INDEX. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |