CloneSet191


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
8	2	2	0.969	paragraph

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	8	5565	CCCC10.COB
2	8	5575	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 Abstraction

Parameter Count: 2

Parameter 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
1	1	`[[#24be4ce0]]`	* * 23499-FLAG-RES-ERR-B-AWARDS
1	2	`[[#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
2	1	`[[#24be4c60]]`	GROUP-B-AWARD
2	2	`[[#24be4c60]]`	GROUP-A-AWARD