CloneSet93


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
13510.986paragraph
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1136223
CCCC10.COB
2133924
CCCC12.COB
3136407
CCCC15.COB
4133548
CCCC3.COB
5135724
CCCC7.COB
Clone Instance
1
Line Count
13
Source Line
6223
Source File
CCCC10.COB

      *
      *
       8500-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.


Clone Instance
2
Line Count
13
Source Line
3924
Source File
CCCC12.COB

      *
      *
       8500-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.


Clone Instance
3
Line Count
13
Source Line
6407
Source File
CCCC15.COB

      *
      *
       8500-PRINT-HEADERS.
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.


Clone Instance
4
Line Count
13
Source Line
3548
Source File
CCCC3.COB

       8500-REPORT-HEADINGS.
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.


Clone Instance
5
Line Count
13
Source Line
5724
Source File
CCCC7.COB

       8500-REPORT-HEADINGS.
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
               PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
               PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.


Clone AbstractionParameter Count: 1Parameter Bindings

        [[#24b66540]].
           MOVE SPACES TO PRINT-RECORD.
           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.
           IF NARROW-PAPER-REQUIRED
             PERFORM 2HDR-NARROW-PAPER-ROUTINE
           ELSE
             PERFORM 3HDR-WIDE-PAPER-ROUTINE.
           PERFORM 7HDR-USER-SUPPLIED-HEADINGS.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b66540]]
      *
      *
       8500-PRINT-HEADERS 
12[[#24b66540]]
       8500-REPORT-HEADINGS 
13[[#24b66540]]
       8500-REPORT-HEADINGS 
14[[#24b66540]]
      *
      *
       8500-PRINT-HEADERS 
15[[#24b66540]]
      *
      *
       8500-PRINT-HEADERS