CloneSet166


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
9	4	2	0.958	sentence_list[5]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	9	6163	CCCC10.COB
2	9	6143	CCCC15.COB
3	9	6245	CCCC15.COB
4	9	6347	CCCC15.COB

Clone Instance
1

Line Count
9

Source Line
6163

Source File

CCCC10.COB

           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.

Clone Instance
2

Line Count
9

Source Line
6143

Source File

CCCC15.COB

           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8430-FILL-SECTION-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   SECTION-ERROR-ROW-INDEX.

Clone Instance
3

Line Count
9

Source Line
6245

Source File

CCCC15.COB

           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8430-FILL-SESSION-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   SESSION-ERROR-ROW-INDEX.

Clone Instance
4

Line Count
9

Source Line
6347

Source File

CCCC15.COB

           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM 8430-FILL-ASSIGN-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   ASSIGN-ERROR-ROW-INDEX.

Clone Abstraction

Parameter Count: 2

Parameter Bindings

           MOVE ZERO TO PRINT-LINE-FLAG.
           PERFORM [[#24bced20]]
             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 [[#24bceb80]].

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24bced20]]`	8430-FILL-SECTION-LINE
1	2	`[[#24bced20]]`	8430-FILL-SESSION-LINE
1	3	`[[#24bced20]]`	8430-FILL-ASSIGN-LINE
1	4	`[[#24bced20]]`	8430-FILL-PRINT-LINE
2	1	`[[#24bceb80]]`	SECTION-ERROR-ROW-INDEX
2	2	`[[#24bceb80]]`	SESSION-ERROR-ROW-INDEX
2	3	`[[#24bceb80]]`	ASSIGN-ERROR-ROW-INDEX
2	4	`[[#24bceb80]]`	EDIT-ERROR-ROW-INDEX