CloneSet166


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
9420.958sentence_list[5]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
196163
CCCC10.COB
296143
CCCC15.COB
396245
CCCC15.COB
496347
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 AbstractionParameter Count: 2Parameter 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
11[[#24bced20]]
       8430-FILL-SECTION-LINE 
12[[#24bced20]]
       8430-FILL-SESSION-LINE 
13[[#24bced20]]
       8430-FILL-ASSIGN-LINE 
14[[#24bced20]]
       8430-FILL-PRINT-LINE 
21[[#24bceb80]]
       SECTION-ERROR-ROW-INDEX 
22[[#24bceb80]]
       SESSION-ERROR-ROW-INDEX 
23[[#24bceb80]]
       ASSIGN-ERROR-ROW-INDEX 
24[[#24bceb80]]
       EDIT-ERROR-ROW-INDEX