CloneSet132


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
28220.984paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1282394
CCCC3.COB
2283997
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 AbstractionParameter Count: 2Parameter 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
11[[#24ba1800]]
      *
      *
       2212-COMPUTE-STUDENT-AGE 
12[[#24ba1800]]
      *
      *
       2212-COMPUTE-EMPLOYEE-AGE 
21[[#24ba1780]]
       STUDENT-BASIC-DATA-RECORD 
22[[#24ba1780]]
       EMPLOYEE-DATA-RECORD