| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 13 | 2 | 0 | 1.000 | paragraph |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 13 | 2013 | CCCC3.COB |
| 2 | 13 | 3395 | CCCC7.COB |
| ||||
*
*
1120-VALIDATE-TERM-ID.
SET TERM-IDENTIFIER-INDEX
TO 1
SEARCH TERM-IDENTIFIER-ENTRY
IN TERM-IDENTIFIER-TABLE
AT END
MOVE 1 TO PARAMETER-VALIDATION-FLAG
WHEN TERM-CODE
IN RUNTIME-PARAMETER-AREA
IS EQUAL TO TERM-CODE
IN TERM-IDENTIFIER-ENTRY
OF TERM-IDENTIFIER-TABLE
(TERM-IDENTIFIER-INDEX)
NEXT SENTENCE.
|
| ||||
*
*
1120-VALIDATE-TERM-ID.
SET TERM-IDENTIFIER-INDEX
TO 1
SEARCH TERM-IDENTIFIER-ENTRY
IN TERM-IDENTIFIER-TABLE
AT END
MOVE 1 TO PARAMETER-VALIDATION-FLAG
WHEN TERM-CODE
IN RUNTIME-PARAMETER-AREA
IS EQUAL TO TERM-CODE
IN TERM-IDENTIFIER-ENTRY
OF TERM-IDENTIFIER-TABLE
(TERM-IDENTIFIER-INDEX)
NEXT SENTENCE.
|
| |||
*
*
1120-VALIDATE-TERM-ID.
SET TERM-IDENTIFIER-INDEX
TO 1
SEARCH TERM-IDENTIFIER-ENTRY
IN TERM-IDENTIFIER-TABLE
AT END
MOVE 1 TO PARAMETER-VALIDATION-FLAG
WHEN TERM-CODE
IN RUNTIME-PARAMETER-AREA IS EQUAL TO TERM-CODE
IN
TERM-IDENTIFIER-ENTRY
OF
TERM-IDENTIFIER-TABLE
(
TERM-IDENTIFIER-INDEX
)
NEXT SENTENCE.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| None | |||