CloneSet156


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
23201.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1233514
CCCC3.COB
2235690
CCCC7.COB
Clone Instance
1
Line Count
23
Source Line
3514
Source File
CCCC3.COB

      *
      *
       5200-FILL-PRINT-LINE.
           MOVE DATA-ELEMENT
                   IN EDIT-ERROR-COLUMNS
                   (EDIT-ROW-INDEX
                   EDIT-COLUMN-INDEX) TO
                  DATA-ELEMENT-OUT
                   IN EDIT-ERROR-PRINT-LINE
                   (EDIT-ERROR-DATA-INDEX).
           MOVE DATA-ELEMENT-FLAG
                   IN EDIT-ERROR-COLUMNS
                   (EDIT-ROW-INDEX
                    EDIT-COLUMN-INDEX) TO
                  VALIDATION-FLAG
                   IN EDIT-ERROR-PRINT-LINE
                   (EDIT-ERROR-DATA-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO   EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL EDIT-COLUMN-INDEX
               PERFORM 5250-BUMP-DETAIL-LINE-INDEX.


Clone Instance
2
Line Count
23
Source Line
5690
Source File
CCCC7.COB

      *
      *
       5200-FILL-PRINT-LINE.
           MOVE DATA-ELEMENT
                   IN EDIT-ERROR-COLUMNS
                   (EDIT-ROW-INDEX
                   EDIT-COLUMN-INDEX) TO
                  DATA-ELEMENT-OUT
                   IN EDIT-ERROR-PRINT-LINE
                   (EDIT-ERROR-DATA-INDEX).
           MOVE DATA-ELEMENT-FLAG
                   IN EDIT-ERROR-COLUMNS
                   (EDIT-ROW-INDEX
                    EDIT-COLUMN-INDEX) TO
                  VALIDATION-FLAG
                   IN EDIT-ERROR-PRINT-LINE
                   (EDIT-ERROR-DATA-INDEX).
           SET ORIGINAL-INDEX-VALUE
             TO   EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
           AT END
               MOVE 1 TO PRINT-LINE-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL EDIT-COLUMN-INDEX
               PERFORM 5250-BUMP-DETAIL-LINE-INDEX.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      *
       5200-FILL-PRINT-LINE.
           MOVE DATA-ELEMENT
                  IN EDIT-ERROR-COLUMNS (EDIT-ROW-INDEX
                                         EDIT-COLUMN-INDEX) TO
                                                        DATA-ELEMENT-OUT
                                                          IN
                                                   EDIT-ERROR-PRINT-LINE
                                                        (
                                                   EDIT-ERROR-DATA-INDEX
                                                        ).
           MOVE DATA-ELEMENT-FLAG
                  IN EDIT-ERROR-COLUMNS (EDIT-ROW-INDEX
                                         EDIT-COLUMN-INDEX) TO
                                                         VALIDATION-FLAG
                                                           IN
                                                   EDIT-ERROR-PRINT-LINE
                                                         (
                                                   EDIT-ERROR-DATA-INDEX
                                                         ).
           SET ORIGINAL-INDEX-VALUE
             TO EDIT-COLUMN-INDEX.
           SEARCH EDIT-ERROR-COLUMNS
             AT END
               MOVE 1 TO PRINT-LINE-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL EDIT-COLUMN-INDEX
               PERFORM 5250-BUMP-DETAIL-LINE-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None