Previous CloneSet | Next CloneSet | Back to Main Report |
Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
---|---|---|---|---|
28 | 2 | 2 | 0.984 | paragraph |
Clone Abstraction | Parameter Bindings |
Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
---|---|---|---|
1 | 28 | 2394 | CCCC3.COB |
2 | 28 | 3997 | CCCC7.COB |
| ||||
* * 2212-COMPUTE-EMPLOYEE-AGE. COMPUTE COMPUTED-AGE EQUAL CALENDAR-YEAR IN EMPLOYEE-DATA-RECORD - BIRTH-YEAR IN HOLD-BIRTHDATE. IF BIRTH-MONTH IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) SUBTRACT 1 FROM COMPUTED-AGE ELSE IF BIRTH-MONTH IN HOLD-BIRTHDATE IS EQUAL TO AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) AND BIRTH-DAY IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-DAY IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) SUBTRACT 1 FROM COMPUTED-AGE. |
| ||||
* * 2212-COMPUTE-STUDENT-AGE. COMPUTE COMPUTED-AGE EQUAL CALENDAR-YEAR IN STUDENT-BASIC-DATA-RECORD - BIRTH-YEAR IN HOLD-BIRTHDATE. IF BIRTH-MONTH IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) SUBTRACT 1 FROM COMPUTED-AGE ELSE IF BIRTH-MONTH IN HOLD-BIRTHDATE IS EQUAL TO AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) AND BIRTH-DAY IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-DAY IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX) SUBTRACT 1 FROM COMPUTED-AGE. |
| |||
[[#24ba1800]]. COMPUTE COMPUTED-AGE EQUAL CALENDAR-YEAR IN [[#24ba1780]] - BIRTH-YEAR IN HOLD-BIRTHDATE. IF BIRTH-MONTH IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY (TERM-IDENTIFIER-INDEX ) SUBTRACT 1 FROM COMPUTED-AGE ELSE IF BIRTH-MONTH IN HOLD-BIRTHDATE IS EQUAL TO AGE-COMPUTATION-MONTH IN TERM-IDENTIFIER-ENTRY( TERM-IDENTIFIER-INDEX ) AND BIRTH-DAY IN HOLD-BIRTHDATE IS GREATER THAN AGE-COMPUTATION-DAY IN TERM-IDENTIFIER-ENTRY ( TERM-IDENTIFIER-INDEX ) SUBTRACT 1 FROM COMPUTED-AGE. |
CloneAbstraction |
Parameter Index | Clone Instance | Parameter Name | Value |
---|---|---|---|
1 | 1 | [[#24ba1800]] | * * 2212-COMPUTE-STUDENT-AGE |
1 | 2 | [[#24ba1800]] | * * 2212-COMPUTE-EMPLOYEE-AGE |
2 | 1 | [[#24ba1780]] | STUDENT-BASIC-DATA-RECORD |
2 | 2 | [[#24ba1780]] | EMPLOYEE-DATA-RECORD |