CloneSet227


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
11201.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1112212
CCCC3.COB
2113753
CCCC7.COB
Clone Instance
1
Line Count
11
Source Line
2212
Source File
CCCC3.COB

      *
      *
       2020-BUMP-ERROR-COLUMN-INDEX.
           SET ORIGINAL-INDEX-VALUE
             TO   EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
                   IN EDIT-ERROR-TABLE
           AT END
               PERFORM 5000-PRINT-ERROR-REPORT
               SET EDIT-COLUMN-INDEX
                 TO                     1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-COLUMN-INDEX
               NEXT SENTENCE.


Clone Instance
2
Line Count
11
Source Line
3753
Source File
CCCC7.COB

      *
      *
       2020-BUMP-ERROR-COLUMN-INDEX.
           SET ORIGINAL-INDEX-VALUE
             TO   EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
                   IN EDIT-ERROR-TABLE
           AT END
               PERFORM 5000-PRINT-ERROR-REPORT
               SET EDIT-COLUMN-INDEX
                 TO                     1
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-COLUMN-INDEX
               NEXT SENTENCE.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       2020-BUMP-ERROR-COLUMN-INDEX.
           SET ORIGINAL-INDEX-VALUE
             TO EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
                    IN EDIT-ERROR-TABLE
             AT END
               PERFORM 5000-PRINT-ERROR-REPORT
               SET EDIT-COLUMN-INDEX
                 TO 1
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO EDIT-COLUMN-INDEX
               NEXT SENTENCE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None