CloneSet32


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
23	8	0	1.000	paragraph

Clone Abstraction

Parameter Bindings


CCCC11.COB
CCCC13.COB
CCCC14.COB
CCCC2.COB
CCCC4.COB
CCCC5.COB
CCCC6.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	23	4511	CCCC11.COB
2	23	3893	CCCC13.COB
3	23	4730	CCCC14.COB
4	23	5050	CCCC2.COB
5	23	4064	CCCC4.COB
6	23	3629	CCCC5.COB
7	23	4107	CCCC6.COB
8	23	4452	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 Abstraction

Parameter Count: 0

Parameter 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