Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
26 | 6 | 0 | 1.000 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 26 | 3133 | CCCC11.COB |
2 | 26 | 2965 | CCCC13.COB |
3 | 26 | 3486 | CCCC14.COB |
4 | 26 | 3039 | CCCC4.COB |
5 | 26 | 2905 | CCCC5.COB |
6 | 26 | 3089 | CCCC9.COB |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| ||||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
| |||
* * 1100-VALIDATE-PARAMETER-INPUT. IF TERM-CHECK IS EQUAL TO ZEROS OR TERM-CHECK IS NOT NUMERIC MOVE 1 TO TERM-ID-FLAG ELSE PERFORM 1110-VALIDATE-TERM-ID. IF DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS EQUAL TO ZEROS OR DISTRICT-ID IN RUNTIME-PARAMETER-AREA IS NOT NUMERIC MOVE 1 TO DISTRICT-ID-FLAG ELSE PERFORM 1140-VALIDATE-DISTRICT-ID. MOVE SPACES TO RUNTIME-PARAMETER-TABLE. SET PARAMETER-COLLEGE-INDEX TO 1 PERFORM 1120-VALIDATE-COLLEGE-PARAMS UNTIL TABLE-SEARCH-COMPLETED. IF COLLEGE-ID-INVALID OR TERM-ID-INVALID OR DISTRICT-ID-INVALID OR (NOT PRT-CONTROL-VALID) OR RUNTIME-PARAMETER-TABLE IS EQUAL TO SPACES PERFORM 1130-KILL-PROCESS. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
None |