CloneSet137


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

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	23	3480	CCCC3.COB
2	23	5656	CCCC7.COB

Clone Instance
1

Line Count
23

Source Line
3480

Source File

CCCC3.COB

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

Clone Instance
2

Line Count
23

Source Line
5656

Source File

CCCC7.COB

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

Clone Abstraction

Parameter Count: 0

Parameter Bindings

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

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
None