CloneSet45


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
13720.980record_or_data_item_entry_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
113832
CCCC11.COB
213584
CCCC13.COB
313665
CCCC14.COB
414997
CCCC2.COB
513658
CCCC4.COB
613542
CCCC5.COB
713703
CCCC9.COB
Clone Instance
1
Line Count
13
Source Line
832
Source File
CCCC11.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(115).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
2
Line Count
13
Source Line
584
Source File
CCCC13.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(100).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
3
Line Count
13
Source Line
665
Source File
CCCC14.COB

      *    03  INTEGRITY-ERR-?-DESC.
      *        05  INT-ERR-?-PART-1   PIC X(42)
      *            VALUE 'A GRADE (SX04) WAS REPORTED AS UD,UG,W,MW '
      *        05  INT-ERR-?-PART-2   PIC X(37)
      *            VALUE 'OR XX BUT UNITS (SX03) WAS NOT = 8888'.
      *    03  INTEGRITY-ERR-?-DESC.
      *        05  INT-ERR-?-PART-1   PIC X(42)
      *            VALUE 'A GRADE (SX04) WAS REPORTED AS I,IP OR RD '
      *        05  INT-ERR-?-PART-2   PIC X(31)
      *            VALUE 'BUT UNITS (SX03) WAS NOT = 9999'.
      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(80).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
4
Line Count
14
Source Line
997
Source File
CCCC2.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(120).
      *
      *   FOLLOWING TABLE IS USED FOR EDITING THE DISTRICT & COLLEGE IDS
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
5
Line Count
13
Source Line
658
Source File
CCCC4.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(120).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
6
Line Count
13
Source Line
542
Source File
CCCC5.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(100).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 7 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone Instance
7
Line Count
13
Source Line
703
Source File
CCCC9.COB

      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE            VALUE SPACE.
           03  FILLER                  PIC X(01).
           03  INTEGRITY-TOTAL         PIC ZZZ,ZZ9.
           03  FILLER                  PIC X(2).
           03  INTEGRITY-DESCRIPTION   PIC X(100).
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID          PIC X(3).
               05  COLLEGE-NAME        PIC X(30).


Clone AbstractionParameter Count: 2Parameter Bindings

      *    03  INTEGRITY-ERR-?-DESC.
      *        05  INT-ERR-?-PART-1   PIC X(42)
      *            VALUE 'A GRADE (SX04) WAS REPORTED AS UD,UG,W,MW '
      *        05  INT-ERR-?-PART-2   PIC X(37)
      *            VALUE 'OR XX BUT UNITS (SX03) WAS NOT = 8888'.
      *    03  INTEGRITY-ERR-?-DESC.
      *        05  INT-ERR-?-PART-1   PIC X(42)
      *            VALUE 'A GRADE (SX04) WAS REPORTED AS I,IP OR RD '
      *        05  INT-ERR-?-PART-2   PIC X(31)
      *            VALUE 'BUT UNITS (SX03) WAS NOT = 9999'.
      *
      *
       01  INTEGRITY-TOTAL-DETAIL-LINE
           VALUE SPACE.
           03 FILLER
              PIC X(01).
           03 INTEGRITY-TOTAL
              PIC ZZZ,ZZ9.
           03 FILLER
              PIC X(2).
           03 INTEGRITY-DESCRIPTION
              PIC [[#24b0e2e0]].
      *
      *   FOLLOWING TABLE IS USED FOR EDITING THE DISTRICT & COLLEGE IDS
      *
       01  RUNTIME-PARAMETER-TABLE.
           03 RUNTIME-COLLEGE-ENTRY
              OCCURS [[#24b0e240]]TIMES
                INDEXED
                BY
                  RUNTIME-PARAMETER-INDEX.
              05 COLLEGE-ID
                 PIC X(3).
              05 COLLEGE-NAME
                 PIC X(30).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b0e2e0]]
       X(80) 
12[[#24b0e2e0]]
       X(100) 
13[[#24b0e2e0]]
       X(120) 
14[[#24b0e2e0]]
       X(115) 
15[[#24b0e2e0]]
       X(100) 
16[[#24b0e2e0]]
       X(100) 
17[[#24b0e2e0]]
       X(120) 
21[[#24b0e240]]
       10 
22[[#24b0e240]]
       10 
23[[#24b0e240]]
       10 
24[[#24b0e240]]
       10 
25[[#24b0e240]]
       7 
26[[#24b0e240]]
       10 
27[[#24b0e240]]
       10