CloneSet51


Clone Mass	Clones in CloneSet	Parameter Count	Clone Similarity	Syntax Category [Sequence Length]
26	3	4	0.981	record_or_data_item_entry_list[2]

Clone Abstraction

Parameter Bindings

Clone Instance (Click to see clone)	Line Count	Source Line	Source File
1	26	636	CCCC1.COB
2	26	502	CCCC12.COB
3	26	497	CCCC8.COB

Clone Instance
1

Line Count
26

Source Line
636

Source File

CCCC1.COB

      *
      *
       01  EDIT-ERROR-DETAIL-LINE                 VALUE SPACE.
           03  FILLER                  PIC X.
           03  DETAIL-LITERAL-AREA     PIC X(23).
           03  DETAIL-COLUMNS
                       OCCURS 6 TIMES
                       INDEXED BY DETAIL-COLUMN-INDEX.
               05  VALIDATION-FLAG     PIC X.
               05  FILLER              PIC X.
               05  DATA-ELEMENT        PIC X(12).
               05  FILLER              PIC X(4).
      *
      *
       01  ELEMENT-TOTAL-DETAIL-LINE              VALUE SPACE.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(16).
           03  ELEMENT-LITERAL-AREA    PIC X(26).
           03  FILLER                  PIC X(5).
           03  ELEMENT-COLUMNS
                       OCCURS 4 TIMES
                       INDEXED BY ELEMENT-COLUMN-INDEX.
               05  ELEMENT-TOTAL       PIC ZZ,ZZ9.
               05  ELEMENT-TOTAL-REDEFINES
                       REDEFINES ELEMENT-TOTAL.
                   07  FILLER          PIC X(3).
                   07  ELEMENT-N-A     PIC X(3).
               05  FILLER              PIC X(15).

Clone Instance
2

Line Count
26

Source Line
502

Source File

CCCC12.COB

      *
      *
       01  EDIT-ERROR-DETAIL-LINE                 VALUE SPACE.
           03  FILLER                  PIC X.
           03  DETAIL-LITERAL-AREA     PIC X(26).
           03  DETAIL-COLUMNS
                       OCCURS 7 TIMES
                       INDEXED BY DETAIL-COLUMN-INDEX.
               05  VALIDATION-FLAG     PIC X.
               05  FILLER              PIC X.
               05  DATA-ELEMENT        PIC X(10).
               05  FILLER              PIC X(3).
      *
      *
       01  ELEMENT-TOTAL-DETAIL-LINE              VALUE SPACE.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(16).
           03  ELEMENT-LITERAL-AREA    PIC X(26).
           03  FILLER                  PIC X(5).
           03  ELEMENT-COLUMNS
                       OCCURS 4 TIMES
                       INDEXED BY ELEMENT-COLUMN-INDEX.
               05  ELEMENT-TOTAL       PIC ZZ,ZZ9.
               05  ELEMENT-TOTAL-REDEFINES
                       REDEFINES ELEMENT-TOTAL.
                   07  FILLER          PIC X(3).
                   07  ELEMENT-N-A     PIC X(3).
               05  FILLER              PIC X(15).

Clone Instance
3

Line Count
26

Source Line
497

Source File

CCCC8.COB

      *
      *
       01  EDIT-ERROR-DETAIL-LINE                 VALUE SPACE.
           03  FILLER                  PIC X.
           03  DETAIL-LITERAL-AREA     PIC X(26).
           03  DETAIL-COLUMNS
                       OCCURS 7 TIMES
                       INDEXED BY DETAIL-COLUMN-INDEX.
               05  VALIDATION-FLAG     PIC X.
               05  FILLER              PIC X.
               05  DATA-ELEMENT        PIC X(10).
               05  FILLER              PIC X(3).
      *
      *
       01  ELEMENT-TOTAL-DETAIL-LINE              VALUE SPACE.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(16).
           03  ELEMENT-LITERAL-AREA    PIC X(26).
           03  FILLER                  PIC X(5).
           03  ELEMENT-COLUMNS
                       OCCURS 4 TIMES
                       INDEXED BY ELEMENT-COLUMN-INDEX.
               05  ELEMENT-TOTAL       PIC ZZ,ZZ9.
               05  ELEMENT-TOTAL-REDEFINES
                       REDEFINES ELEMENT-TOTAL.
                   07  FILLER          PIC X(3).
                   07  ELEMENT-N-A     PIC X(3).
               05  FILLER              PIC X(15).

Clone Abstraction

Parameter Count: 4

Parameter Bindings

      *
      *
       01  EDIT-ERROR-DETAIL-LINE
           VALUE SPACE.
           03 FILLER
              PIC X.
           03 DETAIL-LITERAL-AREA
              PIC [[#24b124e0]].
           03 DETAIL-COLUMNS
              OCCURS [[#24b12440]]TIMES
                INDEXED
                BY
                  DETAIL-COLUMN-INDEX.
              05 VALIDATION-FLAG
                 PIC X.
              05 FILLER
                 PIC X.
              05 DATA-ELEMENT
                 PIC [[#24b12400]].
              05 FILLER
                 PIC [[#24b12340]].
      *
      *
       01  ELEMENT-TOTAL-DETAIL-LINE
           VALUE SPACE.
           03 FILLER
              PIC X.
           03 FILLER
              PIC X(16).
           03 ELEMENT-LITERAL-AREA
              PIC X(26).
           03 FILLER
              PIC X(5).
           03 ELEMENT-COLUMNS
              OCCURS 4 TIMES
                INDEXED
                BY
                  ELEMENT-COLUMN-INDEX.
              05 ELEMENT-TOTAL
                 PIC ZZ,ZZ9.
              05 ELEMENT-TOTAL-REDEFINES
                 REDEFINES ELEMENT-TOTAL.
                 07 FILLER
                    PIC X(3).
                 07 ELEMENT-N-A
                    PIC X(3).
              05 FILLER
                 PIC X(15).

CloneAbstraction

Parameter Bindings
Parameter Index	Clone Instance	Parameter Name	Value
1	1	`[[#24b124e0]]`	X(23)
1	2	`[[#24b124e0]]`	X(26)
1	3	`[[#24b124e0]]`	X(26)
2	1	`[[#24b12440]]`	6
2	2	`[[#24b12440]]`	7
2	3	`[[#24b12440]]`	7
3	1	`[[#24b12400]]`	X(12)
3	2	`[[#24b12400]]`	X(10)
3	3	`[[#24b12400]]`	X(10)
4	1	`[[#24b12340]]`	X(4)
4	2	`[[#24b12340]]`	X(3)
4	3	`[[#24b12340]]`	X(3)