CloneSet198


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
13220.968imperative_statement_list[7]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1136135
CCCC10.COB
2135636
CCCC7.COB
Clone Instance
1
Line Count
13
Source Line
6135
Source File
CCCC10.COB

               SET EDIT-ERROR-LITERAL-INDEX
                 TO                            1
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-PRINT-HEADERS
               WRITE PRINT-RECORD
                 FROM      REPORT-TITLE-LINE-3A
                      AFTER ADVANCING 2 LINES
               WRITE PRINT-RECORD
                 FROM      REPORT-COLUMN-LINE-1
                      AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD
                       AFTER ADVANCING 1 LINES


Clone Instance
2
Line Count
13
Source Line
5636
Source File
CCCC7.COB

               SET EDIT-ERROR-LITERAL-INDEX
                 TO                            1
               MOVE REPORT-ID TO PROGRAM-NAME
               PERFORM 8500-REPORT-HEADINGS
               WRITE PRINT-RECORD
                 FROM   REPORT-TITLE-LINE-3A
                   AFTER ADVANCING 2 LINES
               WRITE PRINT-RECORD
                 FROM   REPORT-COLUMN-TITLES
                   AFTER ADVANCING 2 LINES
               MOVE SPACES TO PRINT-RECORD
               WRITE PRINT-RECORD
                   AFTER ADVANCING 1 LINES


Clone AbstractionParameter Count: 2Parameter Bindings

           SET EDIT-ERROR-LITERAL-INDEX
             TO 1
           MOVE REPORT-ID TO PROGRAM-NAME
           PERFORM [[#24bae640]]
           WRITE PRINT-RECORD
             FROM REPORT-TITLE-LINE-3A
             AFTER ADVANCING 2 LINES
           WRITE PRINT-RECORD
             FROM [[#24bea760]]
             AFTER ADVANCING 2 LINES
           MOVE SPACES TO PRINT-RECORD
           WRITE PRINT-RECORD
             AFTER ADVANCING 1 LINES
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24bae640]]
       8500-PRINT-HEADERS 
12[[#24bae640]]
       8500-REPORT-HEADINGS 
21[[#24bea760]]
       REPORT-COLUMN-LINE-1 
22[[#24bea760]]
       REPORT-COLUMN-TITLES