CloneSet30


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
171010.990paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1174892
CCCC1.COB
2174492
CCCC11.COB
3173854
CCCC12.COB
4173874
CCCC13.COB
5174711
CCCC14.COB
6174045
CCCC4.COB
7173610
CCCC5.COB
8174088
CCCC6.COB
9173689
CCCC8.COB
10174433
CCCC9.COB
Clone Instance
1
Line Count
17
Source Line
4892
Source File
CCCC1.COB

      *
      *
       8400-PRINT-ERROR-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
2
Line Count
17
Source Line
4492
Source File
CCCC11.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
3
Line Count
17
Source Line
3854
Source File
CCCC12.COB

      *
      *
       8400-PRINT-ERROR-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
4
Line Count
17
Source Line
3874
Source File
CCCC13.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
5
Line Count
17
Source Line
4711
Source File
CCCC14.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
6
Line Count
17
Source Line
4045
Source File
CCCC4.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
7
Line Count
17
Source Line
3610
Source File
CCCC5.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
8
Line Count
17
Source Line
4088
Source File
CCCC6.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
9
Line Count
17
Source Line
3689
Source File
CCCC8.COB

      *
      *
       8400-PRINT-ERROR-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone Instance
10
Line Count
17
Source Line
4433
Source File
CCCC9.COB

      *
      *
       8400-PRINT-REPORT.
           IF  PAGE-FULL
               MOVE ZERO TO HEADER-CONTROL-FLAG
               MOVE DETAIL-PROGRAM-NAME
                       IN PROGRAM-LITERAL-AND-WORK TO
                          PROGRAM-NAME
                       IN HEADER-REPORT-ID
               PERFORM 8500-PRINT-HEADERS
               MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO     PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO                        1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO                            1.
           PERFORM 8410-PRINT-DETAIL-LINES
                   UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO                           1.


Clone AbstractionParameter Count: 1Parameter Bindings

        [[#22a47340]].
           IF PAGE-FULL
             MOVE ZERO TO HEADER-CONTROL-FLAG
             MOVE DETAIL-PROGRAM-NAME
                    IN PROGRAM-LITERAL-AND-WORK TO PROGRAM-NAME
                                                     IN HEADER-REPORT-ID
             PERFORM 8500-PRINT-HEADERS
             MOVE ZERO TO PAGE-FULL-FLAG.
           ADD 1
             TO PAGE-FULL-FLAG.
           MOVE ZERO TO TABLE-SEARCH-FLAG.
           SET EDIT-ERROR-ROW-INDEX
             TO 1.
           SET EDIT-ERROR-LITERAL-INDEX
             TO 1.
           PERFORM 8410-PRINT-DETAIL-LINES
             UNTIL TABLE-SEARCH-COMPLETED.
           MOVE SPACES TO EDIT-ERROR-TABLE.
           SET EDIT-ERROR-COLUMN-INDEX
             TO 1.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
12[[#22a47340]]
      *
      *
       8400-PRINT-ERROR-REPORT 
13[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
14[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
15[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
16[[#22a47340]]
      *
      *
       8400-PRINT-ERROR-REPORT 
17[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
18[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
19[[#22a47340]]
      *
      *
       8400-PRINT-REPORT 
110[[#22a47340]]
      *
      *
       8400-PRINT-ERROR-REPORT