CloneSet140


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
17	2	1	0.992	record_or_data_item_entry_list[3]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	17	781	CCCC1.COB
2	17	563	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 Abstraction

Parameter Count: 1

Parameter 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
1	1	`[[#24bab3c0]]`	X(80)
1	2	`[[#24bab3c0]]`	X(101)