CloneSet55


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
49210.993record_01_description_entry
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
149314
CCCC13.COB
249272
CCCC5.COB
Clone Instance
1
Line Count
49
Source Line
314
Source File
CCCC13.COB

      *
      *
       01  PROGRAM-ACCUMULATORS                   VALUE ZEROS.
           03  COLLEGE-TOTALS.
               05  TOTAL-COLLEGE-RECORDS-READ
                                       PIC 9(6).
               05  TOTAL-COLLEGE-RECORDS-WRITTEN
                                       PIC 9(6).
               05  TOTAL-COLLEGE-RECORDS-REJECT
                                       PIC 9(6).
           03  COLLEGE-TOTAL-ENTRY
                       REDEFINES COLLEGE-TOTALS
                       OCCURS 3 TIMES
                       INDEXED BY COLLEGE-TOTAL-INDEX.
               05  COLLEGE-TOTAL       PIC 9(6).
           03  COLLEGE-ELEMENT-TOTALS.
               05  COLLEGE-ELEMENT-TOTALS-ROWS
                           OCCURS 13 TIMES
                           INDEXED BY COLLEGE-ELEMENT-ROW-INDEX.
                   07  COLLEGE-ELEMENT-TOTALS-COLUMNS
                               OCCURS 4 TIMES
                               INDEXED BY COLLEGE-ELEMENT-COLUMN-INDEX.
                       09  COLLEGE-ELEMENT-TOTAL
                                       PIC 9(5).
           03  DISTRICT-TOTALS.
               05  TOTAL-DISTRICT-RECORDS-READ
                                       PIC 9(6).
               05  TOTAL-DISTRICT-RECORDS-WRITTEN
                                       PIC 9(6).
               05  TOTAL-DISTRICT-RECORDS-REJECT
                                       PIC 9(6).
           03  DISTRICT-TOTAL-ENTRY
                       REDEFINES DISTRICT-TOTALS
                       OCCURS 3 TIMES
                       INDEXED BY DISTRICT-TOTAL-INDEX.
               05  DISTRICT-TOTAL      PIC 9(6).
           03  DISTRICT-ELEMENT-TOTALS.
               05  DISTRICT-ELEMENT-TOTALS-ROWS
                           OCCURS 13 TIMES
                           INDEXED BY DISTRICT-ELEMENT-ROW-INDEX.
                   07  DISTRICT-ELEMNT-TOTALS-COLUMNS
                             OCCURS 4 TIMES
                             INDEXED BY DISTRICT-ELEMENT-COLUMN-INDEX.
                       09  DISTRICT-ELEMENT-TOTAL
                                       PIC 9(5).
           03  COLLEGE-INTEGRITY-TOTALS.
               05  CLG-INTEGRITY-ERR-1-TOTAL
                                       PIC 9(6).
           03  DISTRICT-INTEGRITY-TOTALS.
               05  DIST-INTEGRITY-ERR-1-TOTAL
                                       PIC 9(6).


Clone Instance
2
Line Count
49
Source Line
272
Source File
CCCC5.COB

      *
      *
       01  PROGRAM-ACCUMULATORS                   VALUE ZEROS.
           03  COLLEGE-TOTALS.
               05  TOTAL-COLLEGE-RECORDS-READ
                                       PIC 9(6).
               05  TOTAL-COLLEGE-RECORDS-WRITTEN
                                       PIC 9(6).
               05  TOTAL-COLLEGE-RECORDS-REJECT
                                       PIC 9(6).
           03  COLLEGE-TOTAL-ENTRY
                       REDEFINES COLLEGE-TOTALS
                       OCCURS 3 TIMES
                       INDEXED BY COLLEGE-TOTAL-INDEX.
               05  COLLEGE-TOTAL       PIC 9(6).
           03  COLLEGE-ELEMENT-TOTALS.
               05  COLLEGE-ELEMENT-TOTALS-ROWS
                           OCCURS 7 TIMES
                           INDEXED BY COLLEGE-ELEMENT-ROW-INDEX.
                   07  COLLEGE-ELEMENT-TOTALS-COLUMNS
                               OCCURS 4 TIMES
                               INDEXED BY COLLEGE-ELEMENT-COLUMN-INDEX.
                       09  COLLEGE-ELEMENT-TOTAL
                                       PIC 9(5).
           03  DISTRICT-TOTALS.
               05  TOTAL-DISTRICT-RECORDS-READ
                                       PIC 9(6).
               05  TOTAL-DISTRICT-RECORDS-WRITTEN
                                       PIC 9(6).
               05  TOTAL-DISTRICT-RECORDS-REJECT
                                       PIC 9(6).
           03  DISTRICT-TOTAL-ENTRY
                       REDEFINES DISTRICT-TOTALS
                       OCCURS 3 TIMES
                       INDEXED BY DISTRICT-TOTAL-INDEX.
               05  DISTRICT-TOTAL      PIC 9(6).
           03  DISTRICT-ELEMENT-TOTALS.
               05  DISTRICT-ELEMENT-TOTALS-ROWS
                           OCCURS 7 TIMES
                           INDEXED BY DISTRICT-ELEMENT-ROW-INDEX.
                   07  DISTRICT-ELEMNT-TOTALS-COLUMNS
                             OCCURS 4 TIMES
                             INDEXED BY DISTRICT-ELEMENT-COLUMN-INDEX.
                       09  DISTRICT-ELEMENT-TOTAL
                                       PIC 9(5).
           03  COLLEGE-INTEGRITY-TOTALS.
               05  CLG-INTEGRITY-ERR-1-TOTAL
                                       PIC 9(6).
           03  DISTRICT-INTEGRITY-TOTALS.
               05  DIST-INTEGRITY-ERR-1-TOTAL
                                       PIC 9(6).


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      *
       01  PROGRAM-ACCUMULATORS
           VALUE ZEROS.
           03 COLLEGE-TOTALS.
              05 TOTAL-COLLEGE-RECORDS-READ
                 PIC 9(6).
              05 TOTAL-COLLEGE-RECORDS-WRITTEN
                 PIC 9(6).
              05 TOTAL-COLLEGE-RECORDS-REJECT
                 PIC 9(6).
           03 COLLEGE-TOTAL-ENTRY
              REDEFINES COLLEGE-TOTALS
              OCCURS 3 TIMES
                INDEXED
                BY
                  COLLEGE-TOTAL-INDEX.
              05 COLLEGE-TOTAL
                 PIC 9(6).
           03 COLLEGE-ELEMENT-TOTALS.
              05 COLLEGE-ELEMENT-TOTALS-ROWS
                 OCCURS [[#24b1e200]]TIMES
                   INDEXED
                   BY
                     COLLEGE-ELEMENT-ROW-INDEX.
                 07 COLLEGE-ELEMENT-TOTALS-COLUMNS
                    OCCURS 4 TIMES
                      INDEXED
                      BY
                        COLLEGE-ELEMENT-COLUMN-INDEX.
                    09 COLLEGE-ELEMENT-TOTAL
                       PIC 9(5).
           03 DISTRICT-TOTALS.
              05 TOTAL-DISTRICT-RECORDS-READ
                 PIC 9(6).
              05 TOTAL-DISTRICT-RECORDS-WRITTEN
                 PIC 9(6).
              05 TOTAL-DISTRICT-RECORDS-REJECT
                 PIC 9(6).
           03 DISTRICT-TOTAL-ENTRY
              REDEFINES DISTRICT-TOTALS
              OCCURS 3 TIMES
                INDEXED
                BY
                  DISTRICT-TOTAL-INDEX.
              05 DISTRICT-TOTAL
                 PIC 9(6).
           03 DISTRICT-ELEMENT-TOTALS.
              05 DISTRICT-ELEMENT-TOTALS-ROWS
                 OCCURS [[#24b1e200]]TIMES
                   INDEXED
                   BY
                     DISTRICT-ELEMENT-ROW-INDEX.
                 07 DISTRICT-ELEMNT-TOTALS-COLUMNS
                    OCCURS 4 TIMES
                      INDEXED
                      BY
                        DISTRICT-ELEMENT-COLUMN-INDEX.
                    09 DISTRICT-ELEMENT-TOTAL
                       PIC 9(5).
           03 COLLEGE-INTEGRITY-TOTALS.
              05 CLG-INTEGRITY-ERR-1-TOTAL
                 PIC 9(6).
           03 DISTRICT-INTEGRITY-TOTALS.
              05 DIST-INTEGRITY-ERR-1-TOTAL
                 PIC 9(6).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b1e200]]
       13 
12[[#24b1e200]]
       7