CloneSet140


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
17210.992record_or_data_item_entry_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
117781
CCCC1.COB
217563
CCCC8.COB
Clone Instance
1
Line Count
17
Source Line
781
Source File
CCCC1.COB

      *    03  INTEGRITY-ERR-17-DESC.
      *        05  INT-ERR-17-PART-1   PIC X(26)
      *            VALUE 'CRSE PGM CODE (CB03) NOT ='.
      *        05  INT-ERR-17-PART-2   PIC X(33)
      *            VALUE ' TO ANY CODE IN TOP5 LOOKUP TABLE'.
      *
      *
       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  BLANK-LINE.
           03  FILLER                  PIC X(133) VALUE SPACE.
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-PARAMETER-COLLEGES
                       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
17
Source Line
563
Source File
CCCC8.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(101).
      *
      *
       01  BLANK-LINE.
           03  FILLER                  PIC X(133) VALUE SPACE.
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03  RUNTIME-PARAMETER-COLLEGES
                       OCCURS 10 TIMES
                       INDEXED BY RUNTIME-PARAMETER-INDEX.
               05  COLLEGE-ID              PIC X(3).
               05  COLLEGE-NAME            PIC X(30).


Clone AbstractionParameter Count: 1Parameter Bindings

      *    03  INTEGRITY-ERR-17-DESC.
      *        05  INT-ERR-17-PART-1   PIC X(26)
      *            VALUE 'CRSE PGM CODE (CB03) NOT ='.
      *        05  INT-ERR-17-PART-2   PIC X(33)
      *            VALUE ' TO ANY CODE IN TOP5 LOOKUP TABLE'.
      *
      *
       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 [[#24bab3c0]].
      *
      *
       01  BLANK-LINE.
           03 FILLER
              PIC X(133)
              VALUE SPACE.
      *
      *
       01  RUNTIME-PARAMETER-TABLE.
           03 RUNTIME-PARAMETER-COLLEGES
              OCCURS 10 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[[#24bab3c0]]
       X(80) 
12[[#24bab3c0]]
       X(101)