CloneSet132


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

Clone Instance
1

Line Count
28

Source Line
2394

Source File

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

Clone Instance
2

Line Count
28

Source Line
3997

Source File

CCCC7.COB

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

Clone Abstraction

Parameter Count: 2

Parameter Bindings

        [[#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 Bindings
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