CloneSet98


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
12530.957paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1122819
CCCC3.COB
2122833
CCCC3.COB
3122847
CCCC3.COB
4122861
CCCC3.COB
5122890
CCCC3.COB
Clone Instance
1
Line Count
12
Source Line
2819
Source File
CCCC3.COB

      *
      *
       2451-CHECK-BIRTH-DATE.
           IF OTHER-EMPLOYEE
               NEXT SENTENCE
           ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (6  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (12  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (2)
               MOVE 1 TO REJECT-RECORD-FLAG.


Clone Instance
2
Line Count
12
Source Line
2833
Source File
CCCC3.COB

      *
      *
       2452-CHECK-CITIZENSHIP.
           IF OTHER-EMPLOYEE
               NEXT SENTENCE
           ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (9  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (12  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (3)
               MOVE 1 TO REJECT-RECORD-FLAG.


Clone Instance
3
Line Count
12
Source Line
2847
Source File
CCCC3.COB

      *
      *
       2453-CHECK-DISABILITY.
           IF OTHER-EMPLOYEE
               NEXT SENTENCE
           ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (10  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (12  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (4)
               MOVE 1 TO REJECT-RECORD-FLAG.


Clone Instance
4
Line Count
12
Source Line
2861
Source File
CCCC3.COB

      *
      *
       2454-CHECK-STATUS.
           IF OTHER-EMPLOYEE
               NEXT SENTENCE
           ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (13  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (12  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (8)
               MOVE 1 TO REJECT-RECORD-FLAG.


Clone Instance
5
Line Count
12
Source Line
2890
Source File
CCCC3.COB

      *
      *
       2456-CHECK-CONTRACT.
           IF OTHER-EMPLOYEE
               NEXT SENTENCE
           ELSE
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (15  EDIT-COLUMN-INDEX)
               MOVE INTEGRITY-LITERAL TO
                      DATA-ELEMENT-FLAG
                       (12  EDIT-COLUMN-INDEX)
               ADD 1
                 TO     DISTRICT-INT-CNT (11)
               MOVE 1 TO REJECT-RECORD-FLAG.


Clone AbstractionParameter Count: 3Parameter Bindings

        [[#24b6d8c0]].
           IF OTHER-EMPLOYEE
             NEXT SENTENCE
           ELSE
             MOVE INTEGRITY-LITERAL TO DATA-ELEMENT-FLAG ( [[#24b6d840]]
                                                       EDIT-COLUMN-INDEX
                                                         )
             MOVE INTEGRITY-LITERAL TO DATA-ELEMENT-FLAG (12
                                                       EDIT-COLUMN-INDEX
                                                         )
             ADD 1
               TO DISTRICT-INT-CNT ( [[#24b6d7c0]])
             MOVE 1 TO REJECT-RECORD-FLAG.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b6d8c0]]
      *
      *
       2456-CHECK-CONTRACT 
12[[#24b6d8c0]]
      *
      *
       2454-CHECK-STATUS 
13[[#24b6d8c0]]
      *
      *
       2453-CHECK-DISABILITY 
14[[#24b6d8c0]]
      *
      *
       2452-CHECK-CITIZENSHIP 
15[[#24b6d8c0]]
      *
      *
       2451-CHECK-BIRTH-DATE 
21[[#24b6d840]]
       15 
22[[#24b6d840]]
       13 
23[[#24b6d840]]
       10 
24[[#24b6d840]]
       9 
25[[#24b6d840]]
       6 
31[[#24b6d7c0]]
       11 
32[[#24b6d7c0]]
       8 
33[[#24b6d7c0]]
       4 
34[[#24b6d7c0]]
       3 
35[[#24b6d7c0]]
       2