| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 53 | 7 | 5 | 0.987 | record_or_data_item_entry_list[5] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 53 | 738 | CCCC11.COB |
| 2 | 53 | 521 | CCCC13.COB |
| 3 | 55 | 785 | CCCC2.COB |
| 4 | 53 | 569 | CCCC4.COB |
| 5 | 53 | 479 | CCCC5.COB |
| 6 | 53 | 589 | CCCC6.COB |
| 7 | 53 | 603 | CCCC9.COB |
| ||||
*
*
01 EDIT-ERROR-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 DETAIL-LITERAL-AREA PIC X(26).
03 DETAIL-COLUMNS
OCCURS 5 TIMES
INDEXED BY DETAIL-COLUMN-INDEX.
05 VALIDATION-FLAG PIC X.
05 FILLER PIC X.
05 DATA-ELEMENT PIC X(14).
05 FILLER PIC X(5).
*
*
01 ELEMENT-TOTAL-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 FILLER PIC X(16).
03 ELEMENT-LITERAL-AREA PIC X(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
*
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(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
* FOLLOWING TABLE IS USED FOR THE DETAIL RPT *
*
*
01 EDIT-ERROR-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 DETAIL-LITERAL-AREA PIC X(26).
03 DETAIL-COLUMNS
OCCURS 5 TIMES
INDEXED BY DETAIL-COLUMN-INDEX.
05 VALIDATION-FLAG PIC X.
05 FILLER PIC X.
05 DATA-ELEMENT PIC X(14).
05 FILLER PIC X(5).
*
* FOLLOWING TABLE IS USED FOR SUMMARY RPT 1 *
*
01 ELEMENT-TOTAL-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 FILLER PIC X(16).
03 ELEMENT-LITERAL-AREA PIC X(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
* FOLLOWING LITERALS ARE USED IN SUMMARY RPT 3 *
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
*
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(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
*
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(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
*
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(9).
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(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(23).
03 FILLER PIC X(6).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| ||||
*
*
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(23).
03 FILLER PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACES.
*
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ PIC X(23) VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(23).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACES.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(26).
03 FILLER PIC X(3).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
|
| |||
*
* FOLLOWING TABLE IS USED FOR THE DETAIL RPT *
*
*
01 EDIT-ERROR-DETAIL-LINE
VALUE SPACE.
03 FILLER
PIC X.
03 DETAIL-LITERAL-AREA
PIC X(26).
03 DETAIL-COLUMNS
OCCURS [[#22a9db40]]TIMES
INDEXED
BY
DETAIL-COLUMN-INDEX.
05 VALIDATION-FLAG
PIC X.
05 FILLER
PIC X.
05 DATA-ELEMENT
PIC [[#22a9da20]].
05 FILLER
PIC [[#22a9bb00]].
*
* FOLLOWING TABLE IS USED FOR SUMMARY RPT 1 *
*
01 ELEMENT-TOTAL-DETAIL-LINE
VALUE SPACE.
03 FILLER
PIC X.
03 FILLER
PIC X(16).
03 ELEMENT-LITERAL-AREA
PIC X(23).
03 FILLER
PIC X(8).
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).
*
*
01 BLANK-LINE.
03 FILLER
PIC X(133)
VALUE SPACES.
*
* FOLLOWING LITERALS ARE USED IN SUMMARY RPT 3 *
*
01 TOTAL-DESCRIPTIONS-TABLE.
03 TOTAL-DESCRIPTIONS-ENTRIES.
05 TOTAL-RECORDS-READ
PIC X(23)
VALUE 'RECORDS READ:'.
05 TOTAL-RECORDS-WRITTEN
PIC X(23)
VALUE 'RECORDS WRITTEN:'.
05 TOTAL-RECORDS-REJECTED
PIC X(23)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTIONS-ENTRIES
OCCURS 3 TIMES
INDEXED
BY
TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION
PIC X(23).
*
*
01 TOTAL-DETAIL-LINE
VALUE SPACES.
03 FILLER
PIC X(48).
03 TOTAL-DESCRIPTION
PIC [[#22a9da60]].
03 FILLER
PIC [[#22a9d9c0]].
03 TOTAL-FIELD
PIC ZZZ,ZZ9.
|
| CloneAbstraction |
| Parameter Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22a9db40]] | 7 |
| 1 | 2 | [[#22a9db40]] | 5 |
| 1 | 3 | [[#22a9db40]] | 7 |
| 1 | 4 | [[#22a9db40]] | 7 |
| 1 | 5 | [[#22a9db40]] | 7 |
| 1 | 6 | [[#22a9db40]] | 7 |
| 1 | 7 | [[#22a9db40]] | 5 |
| 2 | 1 | [[#22a9da20]] | X(10) |
| 2 | 2 | [[#22a9da20]] | X(14) |
| 2 | 3 | [[#22a9da20]] | X(9) |
| 2 | 4 | [[#22a9da20]] | X(10) |
| 2 | 5 | [[#22a9da20]] | X(10) |
| 2 | 6 | [[#22a9da20]] | X(10) |
| 2 | 7 | [[#22a9da20]] | X(14) |
| 3 | 1 | [[#22a9bb00]] | X(3) |
| 3 | 2 | [[#22a9bb00]] | X(5) |
| 3 | 3 | [[#22a9bb00]] | X(4) |
| 3 | 4 | [[#22a9bb00]] | X(3) |
| 3 | 5 | [[#22a9bb00]] | X(3) |
| 3 | 6 | [[#22a9bb00]] | X(3) |
| 3 | 7 | [[#22a9bb00]] | X(5) |
| 4 | 1 | [[#22a9da60]] | X(26) |
| 4 | 2 | [[#22a9da60]] | X(26) |
| 4 | 3 | [[#22a9da60]] | X(23) |
| 4 | 4 | [[#22a9da60]] | X(26) |
| 4 | 5 | [[#22a9da60]] | X(26) |
| 4 | 6 | [[#22a9da60]] | X(26) |
| 4 | 7 | [[#22a9da60]] | X(26) |
| 5 | 1 | [[#22a9d9c0]] | X(3) |
| 5 | 2 | [[#22a9d9c0]] | X(3) |
| 5 | 3 | [[#22a9d9c0]] | X(6) |
| 5 | 4 | [[#22a9d9c0]] | X(3) |
| 5 | 5 | [[#22a9d9c0]] | X(3) |
| 5 | 6 | [[#22a9d9c0]] | X(3) |
| 5 | 7 | [[#22a9d9c0]] | X(3) |