CloneSet191


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
8220.969paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
185565
CCCC10.COB
285575
CCCC10.COB
Clone Instance
1
Line Count
8
Source Line
5565
Source File
CCCC10.COB

      *
      *
      *23499-FLAG-INT-ERR-A-AWARDS.
      *    IF GROUP-A-AWARD (HOLD-AWARD-INDEX)
      *        IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX)
      *           = SPACES
      *            MOVE INTEGRITY-LITERAL
      *                   TO AWARD-TYPE-ERR-FLAG
      *                   (HOLD-AWARD-INDEX).
      *
      *
       23499-FLAG-RES-ERR-A-AWARDS.
           IF GROUP-A-AWARD (HOLD-AWARD-INDEX)
               IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX)
                  EQUAL SPACES
                   ADD 1
                     TO     ERROR-COUNT (27  3)
                   MOVE REASONABLENESS-LITERAL TO
                             AWARD-TYPE-ERR-FLAG
                          (HOLD-AWARD-INDEX).


Clone Instance
2
Line Count
8
Source Line
5575
Source File
CCCC10.COB

      *
      *
       23499-FLAG-RES-ERR-B-AWARDS.
           IF GROUP-B-AWARD (HOLD-AWARD-INDEX)
               IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX)
                  EQUAL SPACES
                   ADD 1
                     TO     ERROR-COUNT (27  3)
                   MOVE REASONABLENESS-LITERAL TO
                             AWARD-TYPE-ERR-FLAG
                          (HOLD-AWARD-INDEX).


Clone AbstractionParameter Count: 2Parameter Bindings

        [[#24be4ce0]].
           IF [[#24be4c60]](HOLD-AWARD-INDEX)
             IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX) EQUAL SPACES
               ADD 1
                 TO ERROR-COUNT (27
                                 3)
               MOVE REASONABLENESS-LITERAL TO AWARD-TYPE-ERR-FLAG (
                                                        HOLD-AWARD-INDEX
                                                                  ).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24be4ce0]]
      *
      *
       23499-FLAG-RES-ERR-B-AWARDS 
12[[#24be4ce0]]
      *
      *
      *23499-FLAG-INT-ERR-A-AWARDS.
      *    IF GROUP-A-AWARD (HOLD-AWARD-INDEX)
      *        IF AWARD-TYPE-ERR-FLAG (HOLD-AWARD-INDEX)
      *           = SPACES
      *            MOVE INTEGRITY-LITERAL
      *                   TO AWARD-TYPE-ERR-FLAG
      *                   (HOLD-AWARD-INDEX).
      *
      *
       23499-FLAG-RES-ERR-A-AWARDS 
21[[#24be4c60]]
       GROUP-B-AWARD 
22[[#24be4c60]]
       GROUP-A-AWARD