CloneSet30


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
17	10	1	0.990	paragraph

Clone Abstraction

Parameter Bindings


CCCC1.COB
CCCC11.COB
CCCC12.COB
CCCC13.COB
CCCC14.COB
CCCC4.COB
CCCC5.COB
CCCC6.COB
CCCC8.COB
CCCC9.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	17	4892	CCCC1.COB
2	17	4492	CCCC11.COB
3	17	3854	CCCC12.COB
4	17	3874	CCCC13.COB
5	17	4711	CCCC14.COB
6	17	4045	CCCC4.COB
7	17	3610	CCCC5.COB
8	17	4088	CCCC6.COB
9	17	3689	CCCC8.COB
10	17	4433	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 Abstraction

Parameter Count: 1

Parameter 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
1	1	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	2	`[[#22a47340]]`	* * 8400-PRINT-ERROR-REPORT
1	3	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	4	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	5	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	6	`[[#22a47340]]`	* * 8400-PRINT-ERROR-REPORT
1	7	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	8	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	9	`[[#22a47340]]`	* * 8400-PRINT-REPORT
1	10	`[[#22a47340]]`	* * 8400-PRINT-ERROR-REPORT