| 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 | |||