CloneSet131


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
11310.977imperative_statement_list
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1115237
CCCC10.COB
2115255
CCCC10.COB
3155282
CCCC10.COB
Clone Instance
1
Line Count
11
Source Line
5237
Source File
CCCC10.COB

      *            MOVE 1 TO REJECT-RECORD-FLAG         10-6-92
                   ADD 1
                     TO     ERROR-COUNT (12  3)
                   ADD 1
                     TO     ERROR-COUNT (18  3)
                   MOVE 1 TO REASONABLE-FLAG
                   MOVE REASONABLENESS-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (12 EDIT-ERROR-COLUMN-INDEX)
                   MOVE REASONABLENESS-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (18 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
2
Line Count
11
Source Line
5255
Source File
CCCC10.COB

      *        MOVE 1 TO REJECT-RECORD-FLAG        10-6-92
                   ADD 1
                     TO     ERROR-COUNT (13  3)
                   ADD 1
                     TO     ERROR-COUNT (18  3)
               MOVE 1 TO REASONABLE-FLAG
               MOVE REASONABLENESS-LITERAL TO
                          VALIDATION-FLAG
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (13 EDIT-ERROR-COLUMN-INDEX)
               MOVE REASONABLENESS-LITERAL TO
                          VALIDATION-FLAG
                       IN EDIT-ERROR-TABLE-COLUMNS
                       (18 EDIT-ERROR-COLUMN-INDEX)


Clone Instance
3
Line Count
15
Source Line
5282
Source File
CCCC10.COB

      *        IF (INCOME-1-UNKNOWN OR NO-INCOME-1)
      *                        AND
      *           (NOT-APPL-FIVE OR UNKNOWN-FIVE OR ZERO-FIVE)
      *            MOVE 1 TO REJECT-RECORD-FLAG     10-12-93
                   ADD 1
                     TO     ERROR-COUNT (17  3)
                   ADD 1
                     TO     ERROR-COUNT (18  3)
                   MOVE 1 TO REASONABLE-FLAG
                   MOVE REASONABLENESS-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (17 EDIT-ERROR-COLUMN-INDEX)
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (21 EDIT-ERROR-COLUMN-INDEX)
                   MOVE REASONABLENESS-LITERAL TO
                              VALIDATION-FLAG
                           IN EDIT-ERROR-TABLE-COLUMNS
                           (18 EDIT-ERROR-COLUMN-INDEX)


Clone AbstractionParameter Count: 1Parameter Bindings

      *            MOVE 1 TO REJECT-RECORD-FLAG         10-6-92
      *        MOVE 1 TO REJECT-RECORD-FLAG        10-6-92
      *        IF (INCOME-1-UNKNOWN OR NO-INCOME-1)
      *                        AND
      *           (NOT-APPL-FIVE OR UNKNOWN-FIVE OR ZERO-FIVE)
      *            MOVE 1 TO REJECT-RECORD-FLAG     10-12-93
           ADD 1
             TO ERROR-COUNT ( [[#24ba05e0]]
                             3)
           ADD 1
             TO ERROR-COUNT (18
                             3)
           MOVE 1 TO REASONABLE-FLAG
           MOVE REASONABLENESS-LITERAL TO VALIDATION-FLAG
                                            IN EDIT-ERROR-TABLE-COLUMNS(
                                                           [[#24ba05e0]]
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                       )
      *            MOVE REASONABLENESS-LITERAL
      *                    TO VALIDATION-FLAG
      *                    IN EDIT-ERROR-TABLE-COLUMNS
      *                    (21 EDIT-ERROR-COLUMN-INDEX)
           MOVE REASONABLENESS-LITERAL TO VALIDATION-FLAG
                                            IN EDIT-ERROR-TABLE-COLUMNS(
                                                                      18
                                                 EDIT-ERROR-COLUMN-INDEX
                                                                       )
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24ba05e0]]
       12 
12[[#24ba05e0]]
       13 
13[[#24ba05e0]]
       17