CloneSet73


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
19350.967linkage_section
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1193533
CCCC10.COB
2193662
CCCC15.COB
3193331
CCCC7.COB
Clone Instance
1
Line Count
19
Source Line
3533
Source File
CCCC10.COB

      *
      *
       LINKAGE SECTION.
      *
       01  RUNTIME-PARAMETER-AREA.
           03  FILLER                  PIC 9(3) COMPUTATIONAL.
           03  PRINT-FLAG              PIC X(3).
               88  VALID-PRINT-FLAG             VALUE  '000' THROUGH
                                                                  '999'
                                                       'ALL'.
               88  PRINT-ALL                    VALUE  'ALL'.
           03  FILLER                  PIC X.
           03  TERM-CHECK.
               05  CALENDAR-YEAR       PIC X(2).
               05  TERM-CODE           PIC X(1).
           03  FILLER                  PIC X(1).
           03  DISTRICT-ID             PIC X(3).
           03  PARAMETER-COLLEGES
                       OCCURS 10 TIMES
                       INDEXED BY PARAMETER-COLLEGE-INDEX.
               05  FILLER              PIC X(1).
               05  COLLEGE-ID          PIC X(3).


Clone Instance
2
Line Count
19
Source Line
3662
Source File
CCCC15.COB

      *
      *
       LINKAGE SECTION.
      *
       01  RUNTIME-PARAMETER-AREA.
           03  FILLER                  PIC 9(3) COMPUTATIONAL.
           03  PRT-CONTROL             PIC X(3).
               88  VALID-PRINT-FLAG              VALUE '000' THROUGH
                                                                  '999'
                                                        'ALL'.
               88  PRINT-ALL                     VALUE  'ALL'.
           03  FILLER                  PIC X(1).
           03  TERM-CHECK.
               05  CALENDAR-YEAR       PIC X(2).
               05  TERM-CODE           PIC X(1).
           03  FILLER                  PIC X(1).
           03  DISTRICT-ID             PIC X(3).
           03  PARAMETER-COLLEGES
                       OCCURS 10 TIMES
                       INDEXED BY PARAMETER-COLLEGE-INDEX.
               05 FILLER               PIC X(1).
               05  COLLEGE-ID          PIC X(3).


Clone Instance
3
Line Count
19
Source Line
3331
Source File
CCCC7.COB

      /
       LINKAGE SECTION.
      *
       01  RUNTIME-PARAMETER-AREA.
           03  FILLER                  PIC 9(3) USAGE IS COMPUTATIONAL.
           03  PRINT-FLAG              PIC X(3).
               88  VALID-PRINT-FLAG             VALUE '000' THROUGH
                                                                 '999'
                                                      'ALL'.
               88  PRINT-ALL                    VALUE 'ALL'.
           03  FILLER                  PIC X(1).
           03  PARAMETER-TERM-ID.
               05  CALENDAR-YEAR       PIC X(2).
               05  TERM-CODE           PIC X(1).
           03  FILLER                  PIC X(1).
           03  DISTRICT-ID             PIC X(3).
           03  PARAMETER-COLLEGE-ENTRY
                       OCCURS 10 TIMES
                       INDEXED BY PARAMETER-COLLEGE-INDEX.
               05  FILLER              PIC X(1).
               05  COLLEGE-ID          PIC X(3).


Clone AbstractionParameter Count: 5Parameter Bindings

      /
      *
      *
       LINKAGE SECTION.
      *
       01  RUNTIME-PARAMETER-AREA.
           03 FILLER
              PIC 9(3)
               [[#24b44ea0]]COMPUTATIONAL.
           03 [[#24b44de0]]
             PIC X(3).
             88 VALID-PRINT-FLAG
                VALUE '000' THROUGH '999'
                      'ALL'.
             88 PRINT-ALL
                VALUE 'ALL'.
           03 FILLER
              PIC [[#24b41bc0]].
           03 [[#24b44c20]].
             05 CALENDAR-YEAR
                PIC X(2).
             05 TERM-CODE
                PIC X(1).
           03 FILLER
              PIC X(1).
           03 DISTRICT-ID
              PIC X(3).
           03 [[#24b44a60]]
             OCCURS 10 TIMES
               INDEXED
               BY
                 PARAMETER-COLLEGE-INDEX.
             05 FILLER
                PIC X(1).
             05 COLLEGE-ID
                PIC X(3).
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#24b44ea0]]
           USAGE IS 
12[[#24b44ea0]]
13[[#24b44ea0]]
21[[#24b44de0]]
       PRINT-FLAG 
22[[#24b44de0]]
       PRINT-FLAG 
23[[#24b44de0]]
       PRT-CONTROL 
31[[#24b41bc0]]
       X(1) 
32[[#24b41bc0]]
       X 
33[[#24b41bc0]]
       X(1) 
41[[#24b44c20]]
       PARAMETER-TERM-ID 
42[[#24b44c20]]
       TERM-CHECK 
43[[#24b44c20]]
       TERM-CHECK 
51[[#24b44a60]]
       PARAMETER-COLLEGE-ENTRY 
52[[#24b44a60]]
       PARAMETER-COLLEGES 
53[[#24b44a60]]
       PARAMETER-COLLEGES