CloneSet32


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
23801.000paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1234511
CCCC11.COB
2233893
CCCC13.COB
3234730
CCCC14.COB
4235050
CCCC2.COB
5234064
CCCC4.COB
6233629
CCCC5.COB
7234107
CCCC6.COB
8234452
CCCC9.COB
Clone Instance
1
Line Count
23
Source Line
4511
Source File
CCCC11.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
3893
Source File
CCCC13.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
3
Line Count
23
Source Line
4730
Source File
CCCC14.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
4
Line Count
23
Source Line
5050
Source File
CCCC2.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
5
Line Count
23
Source Line
4064
Source File
CCCC4.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
6
Line Count
23
Source Line
3629
Source File
CCCC5.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
7
Line Count
23
Source Line
4107
Source File
CCCC6.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
8
Line Count
23
Source Line
4452
Source File
CCCC9.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: 0Parameter 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 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.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None