| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 17 | 2 | 2 | 0.980 | sentence |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 17 | 4087 | CCCC9.COB |
| 2 | 17 | 4104 | CCCC9.COB |
| ||||
******************************************************************
* THE FOLLOWING TWO CHECKS ARE REASONABLENESS CHECKS FOR FIRST *
* YEAR (SUM '95, FALL '95 & SPRG '96). REJECT AFTER THAT *
******************************************************************
IF CARE-STATUS-LPS-CODES
IF CARE-TERM-OF-ACCEPTANCE
IN STUDENT-EOPS-RECORD
IS NOT EQUAL TO TERM-IDENTIFIER
IN STUDENT-EOPS-RECORD
ADD 1
TO COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(10 3)
MOVE 1 TO REASONABLE-FLAG
MOVE REASONABLE-LITERAL TO
VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS
(10 EDIT-ERROR-COLUMN-INDEX)
MOVE REASONABLE-LITERAL TO
VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS
(11 EDIT-ERROR-COLUMN-INDEX).
|
| ||||
IF CARE-STATUS-B-CODE
IF CARE-TERM-OF-ACCEPTANCE
IN STUDENT-EOPS-RECORD
IS EQUAL TO TERM-IDENTIFIER
IN STUDENT-EOPS-RECORD
ADD 1
TO COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS
(10 3)
MOVE 1 TO REASONABLE-FLAG
MOVE REASONABLE-LITERAL TO
VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS
(10 EDIT-ERROR-COLUMN-INDEX)
MOVE REASONABLE-LITERAL TO
VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS
(11 EDIT-ERROR-COLUMN-INDEX).
|
| |||
******************************************************************
* THE FOLLOWING TWO CHECKS ARE REASONABLENESS CHECKS FOR FIRST *
* YEAR (SUM '95, FALL '95 & SPRG '96). REJECT AFTER THAT *
******************************************************************
IF [[#24bc7920]]
IF CARE-TERM-OF-ACCEPTANCE
IN STUDENT-EOPS-RECORD IS [[#24bc7880]]TERM-IDENTIFIER
IN
STUDENT-EOPS-RECORD
ADD 1
TO COLLEGE-ELEMENT-TOTAL
IN COLLEGE-ELEMENT-TOTALS-COLUMNS (10
3)
MOVE 1 TO REASONABLE-FLAG
MOVE REASONABLE-LITERAL TO VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS(
10
EDIT-ERROR-COLUMN-INDEX
)
MOVE REASONABLE-LITERAL TO VALIDATION-FLAG
IN EDIT-ERROR-TABLE-COLUMNS(
11
EDIT-ERROR-COLUMN-INDEX
)
.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#24bc7920]] | CARE-STATUS-LPS-CODES |
| 1 | 2 | [[#24bc7920]] | CARE-STATUS-B-CODE |
| 2 | 1 | [[#24bc7880]] | NOT EQUAL TO |
| 2 | 2 | [[#24bc7880]] | EQUAL TO |