CloneSet94


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
13	5	1	0.986	paragraph

Clone Abstraction

Parameter Bindings


CCCC10.COB
CCCC12.COB
CCCC15.COB
CCCC3.COB
CCCC7.COB

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	13	6355	CCCC10.COB
2	13	4062	CCCC12.COB
3	13	6531	CCCC15.COB
4	13	3672	CCCC3.COB
5	13	5848	CCCC7.COB

Clone Instance
1

Line Count
13

Source Line
6355

Source File

CCCC10.COB

      *
      *
       8600-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO     REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO
                      HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
               PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

Clone Instance
2

Line Count
13

Source Line
4062

Source File

CCCC12.COB

      *
      *
       85002-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO     REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO
                      HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
               PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

Clone Instance
3

Line Count
13

Source Line
6531

Source File

CCCC15.COB

      *
      *
       8600-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO     REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO
                      HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
               PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

Clone Instance
4

Line Count
13

Source Line
3672

Source File

CCCC3.COB

      *
      *
       8600-REPORT-HEADINGS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO     REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO
                      HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
               PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

Clone Instance
5

Line Count
13

Source Line
5848

Source File

CCCC7.COB

      *
      *
       8600-REPORT-HEADINGS.
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO     REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO
                      HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
               PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

Clone Abstraction

Parameter Count: 1

Parameter Bindings

        [[#24b67360]].
           MOVE SPACES TO PRINT-RECORD-2.
           MOVE ZEROS TO REPORT-LINE-COUNTER.
           ADD 1
             TO REPORT-PAGE-COUNTER.
           MOVE REPORT-PAGE-COUNTER TO HEADER-PAGE-NUMBER.
           IF FIRST-PAGE
             PERFORM 1HDR-FIRST-PAGE-ROUTINE-2.
           IF NARROW-PAPER-REQUIRED
             PERFORM 2HDR-NARROW-PAPER-ROUTINE-2
           ELSE
             PERFORM 3HDR-WIDE-PAPER-ROUTINE-2.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS-2.

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b67360]]`	* * 8600-PRINT-HEADERS
1	2	`[[#24b67360]]`	* * 85002-PRINT-HEADERS
1	3	`[[#24b67360]]`	* * 8600-REPORT-HEADINGS
1	4	`[[#24b67360]]`	* * 8600-REPORT-HEADINGS
1	5	`[[#24b67360]]`	* * 8600-PRINT-HEADERS