Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
13 | 10 | 2 | 0.971 | sentence_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 14 | 4629 | CCCC1.COB |
2 | 13 | 4317 | CCCC11.COB |
3 | 14 | 3715 | CCCC12.COB |
4 | 13 | 3719 | CCCC13.COB |
5 | 13 | 4529 | CCCC14.COB |
6 | 13 | 4757 | CCCC2.COB |
7 | 13 | 3455 | CCCC5.COB |
8 | 13 | 3927 | CCCC6.COB |
9 | 14 | 3527 | CCCC8.COB |
10 | 13 | 4246 | CCCC9.COB |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (26 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-ERROR-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (17 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (10 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-ERROR-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (14 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (13 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (12 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (8 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
* MOVE ASMNT-RAW-SCORE * IN STUDENT-ASSESSMENT-RECORD * TO DATA-ELEMENT * IN EDIT-ERROR-TABLE-COLUMNS * (11 EDIT-ERROR-COLUMN-INDEX). IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (10 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (11 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-ERROR-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| ||||
IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS (16 EDIT-ERROR-COLUMN-INDEX). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM 8400-PRINT-REPORT SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
| |||
* MOVE ASMNT-RAW-SCORE * IN STUDENT-ASSESSMENT-RECORD * TO DATA-ELEMENT * IN EDIT-ERROR-TABLE-COLUMNS * (11 EDIT-ERROR-COLUMN-INDEX). IF REJECT-RECORD MOVE REJECTED-MESSAGE TO DATA-ELEMENT IN EDIT-ERROR-TABLE-COLUMNS ( [[#22a5cae0]] EDIT-ERROR-COLUMN-INDEX ). SET ORIGINAL-INDEX-VALUE TO EDIT-ERROR-COLUMN-INDEX. SEARCH EDIT-ERROR-TABLE-COLUMNS AT END PERFORM [[#24b0f4c0]] SET EDIT-ERROR-COLUMN-INDEX TO 1 WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-ERROR-COLUMN-INDEX NEXT SENTENCE. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#22a5cae0]] | 10 |
1 | 2 | [[#22a5cae0]] | 26 |
1 | 3 | [[#22a5cae0]] | 12 |
1 | 4 | [[#22a5cae0]] | 8 |
1 | 5 | [[#22a5cae0]] | 11 |
1 | 6 | [[#22a5cae0]] | 16 |
1 | 7 | [[#22a5cae0]] | 17 |
1 | 8 | [[#22a5cae0]] | 14 |
1 | 9 | [[#22a5cae0]] | 13 |
1 | 10 | [[#22a5cae0]] | 10 |
2 | 1 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 2 | [[#24b0f4c0]] | 8400-PRINT-ERROR-REPORT |
2 | 3 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 4 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 5 | [[#24b0f4c0]] | 8400-PRINT-ERROR-REPORT |
2 | 6 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 7 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 8 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 9 | [[#24b0f4c0]] | 8400-PRINT-REPORT |
2 | 10 | [[#24b0f4c0]] | 8400-PRINT-ERROR-REPORT |