CloneSet90


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
23310.992paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1234911
CCCC1.COB
2233873
CCCC12.COB
3233708
CCCC8.COB
Clone Instance
1
Line Count
23
Source Line
4911
Source File
CCCC1.COB

      *
      *
       8410-PRINT-DETAIL-LINES.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      DETAIL-LITERAL-AREA.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.
           SET DETAIL-COLUMN-INDEX
             TO                       1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8430-FILL-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED
           WRITE PRINT-RECORD
             FROM       EDIT-ERROR-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO EDIT-ERROR-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-ROW-INDEX.
           SEARCH EDIT-ERROR-TABLE-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-ROW-INDEX
               SET EDIT-ERROR-LITERAL-INDEX
                 TO       EDIT-ERROR-ROW-INDEX.


Clone Instance
2
Line Count
23
Source Line
3873
Source File
CCCC12.COB

      *
      *
       8410-PRINT-DETAIL-LINES.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      DETAIL-LITERAL-AREA.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.
           SET DETAIL-COLUMN-INDEX
             TO                       1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8411-FILL-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED
           WRITE PRINT-RECORD
             FROM       EDIT-ERROR-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO EDIT-ERROR-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-ROW-INDEX.
           SEARCH EDIT-ERROR-TABLE-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-ROW-INDEX
               SET EDIT-ERROR-LITERAL-INDEX
                 TO       EDIT-ERROR-ROW-INDEX.


Clone Instance
3
Line Count
23
Source Line
3708
Source File
CCCC8.COB

      *
      *
       8410-PRINT-DETAIL-LINES.
           MOVE EDIT-ERROR-LITERAL-AREA
                   IN EDIT-ERROR-LITERAL-ENTRY
                   (EDIT-ERROR-LITERAL-INDEX) TO
                      DETAIL-LITERAL-AREA.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.
           SET DETAIL-COLUMN-INDEX
             TO                       1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8430-FILL-PRINT-LINE
                   UNTIL PRINT-LINE-FILLED
           WRITE PRINT-RECORD
             FROM       EDIT-ERROR-DETAIL-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO EDIT-ERROR-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO       EDIT-ERROR-ROW-INDEX.
           SEARCH EDIT-ERROR-TABLE-ROWS
           AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
           WHEN ORIGINAL-INDEX-VALUE
                   IS NOT EQUAL TO EDIT-ERROR-ROW-INDEX
               SET EDIT-ERROR-LITERAL-INDEX
                 TO       EDIT-ERROR-ROW-INDEX.


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      *
       8410-PRINT-DETAIL-LINES.
           MOVE EDIT-ERROR-LITERAL-AREA
                  IN EDIT-ERROR-LITERAL-ENTRY (EDIT-ERROR-LITERAL-INDEX)
           TO DETAIL-LITERAL-AREA.
           SET EDIT-ERROR-COLUMN-INDEX
             TO 1.
           SET DETAIL-COLUMN-INDEX
             TO 1.
           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM [[#24b5fee0]]
             UNTIL PRINT-LINE-FILLED
           WRITE PRINT-RECORD
             FROM EDIT-ERROR-DETAIL-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO EDIT-ERROR-DETAIL-LINE.
           SET ORIGINAL-INDEX-VALUE
             TO EDIT-ERROR-ROW-INDEX.
           SEARCH EDIT-ERROR-TABLE-ROWS
             AT END
               MOVE 1 TO TABLE-SEARCH-FLAG
             WHEN ORIGINAL-INDEX-VALUE IS NOT EQUAL TO
                  EDIT-ERROR-ROW-INDEX
               SET EDIT-ERROR-LITERAL-INDEX
                 TO EDIT-ERROR-ROW-INDEX.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b5fee0]]
       8430-FILL-PRINT-LINE 
12[[#24b5fee0]]
       8411-FILL-PRINT-LINE 
13[[#24b5fee0]]
       8430-FILL-PRINT-LINE