Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
59 | 2 | 0 | 1.000 | paragraph_list[3] |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 59 | 3384 | CCCC2.COB |
2 | 59 | 3088 | CCCC6.COB |
| ||||
* * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). |
| ||||
* * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX). |
| |||
* * 1120-VALIDATE-COLLEGE-PARAMS. IF COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) IS EQUAL TO SPACES NEXT SENTENCE ELSE PERFORM 1121-SEARCH-COLLEGE-TABLE IF COLLEGE-NOT-FOUND MOVE 1 TO COLLEGE-ID-FLAG MOVE 1 TO TABLE-SEARCH-FLAG ELSE PERFORM 1122-FILL-WORK-TABLE. SET ORIGINAL-INDEX-VALUE TO PARAMETER-COLLEGE-INDEX. SEARCH PARAMETER-COLLEGES AT END MOVE 1 TO TABLE-SEARCH-FLAG WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO PARAMETER-COLLEGE-INDEX NEXT SENTENCE. * * 1121-SEARCH-COLLEGE-TABLE. SET COLLEGE-CODE-INDEX TO 1. SEARCH COLLEGE-CODE-ENTRY IN COLLEGE-CODES-TABLE AT END MOVE 1 TO COLLEGE-SEARCH-FLAG WHEN COLLEGE-ID IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) IS EQUAL TO COLLEGE-ID IN PARAMETER-COLLEGES ( PARAMETER-COLLEGE-INDEX ) MOVE ZERO TO COLLEGE-SEARCH-FLAG. * * 1122-FILL-WORK-TABLE. SET RUNTIME-PARAMETER-INDEX TO 1. SEARCH RUNTIME-COLLEGE-ENTRY AT END MOVE 1 TO COLLEGE-ID-FLAG WHEN COLLEGE-ID IN RUNTIME-PARAMETER-TABLE (RUNTIME-PARAMETER-INDEX) IS EQUAL TO SPACES MOVE COLLEGE-ID IN PARAMETER-COLLEGES (PARAMETER-COLLEGE-INDEX) TO COLLEGE-ID IN RUNTIME-PARAMETER-TABLE ( RUNTIME-PARAMETER-INDEX ) MOVE COLLEGE-NAME IN COLLEGE-CODE-ENTRY (COLLEGE-CODE-INDEX) TO COLLEGE-NAME IN RUNTIME-PARAMETER-TABLE ( RUNTIME-PARAMETER-INDEX ). |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |