CloneSet16


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
53750.987record_or_data_item_entry_list[5]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
153738
CCCC11.COB
253521
CCCC13.COB
355785
CCCC2.COB
453569
CCCC4.COB
553479
CCCC5.COB
653589
CCCC6.COB
753603
CCCC9.COB
Clone Instance
1
Line Count
53
Source Line
738
Source File
CCCC11.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.


Clone Instance
2
Line Count
53
Source Line
521
Source File
CCCC13.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(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.


Clone Instance
3
Line Count
55
Source Line
785
Source File
CCCC2.COB

      *
      *        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.


Clone Instance
4
Line Count
53
Source Line
569
Source File
CCCC4.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(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.


Clone Instance
5
Line Count
53
Source Line
479
Source File
CCCC5.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(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.


Clone Instance
6
Line Count
53
Source Line
589
Source File
CCCC6.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(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.


Clone Instance
7
Line Count
53
Source Line
603
Source File
CCCC9.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(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.


Clone AbstractionParameter Count: 5Parameter Bindings

      *
      *        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 Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a9db40]]
       7 
12[[#22a9db40]]
       5 
13[[#22a9db40]]
       7 
14[[#22a9db40]]
       7 
15[[#22a9db40]]
       7 
16[[#22a9db40]]
       7 
17[[#22a9db40]]
       5 
21[[#22a9da20]]
       X(10) 
22[[#22a9da20]]
       X(14) 
23[[#22a9da20]]
       X(9) 
24[[#22a9da20]]
       X(10) 
25[[#22a9da20]]
       X(10) 
26[[#22a9da20]]
       X(10) 
27[[#22a9da20]]
       X(14) 
31[[#22a9bb00]]
       X(3) 
32[[#22a9bb00]]
       X(5) 
33[[#22a9bb00]]
       X(4) 
34[[#22a9bb00]]
       X(3) 
35[[#22a9bb00]]
       X(3) 
36[[#22a9bb00]]
       X(3) 
37[[#22a9bb00]]
       X(5) 
41[[#22a9da60]]
       X(26) 
42[[#22a9da60]]
       X(26) 
43[[#22a9da60]]
       X(23) 
44[[#22a9da60]]
       X(26) 
45[[#22a9da60]]
       X(26) 
46[[#22a9da60]]
       X(26) 
47[[#22a9da60]]
       X(26) 
51[[#22a9d9c0]]
       X(3) 
52[[#22a9d9c0]]
       X(3) 
53[[#22a9d9c0]]
       X(6) 
54[[#22a9d9c0]]
       X(3) 
55[[#22a9d9c0]]
       X(3) 
56[[#22a9d9c0]]
       X(3) 
57[[#22a9d9c0]]
       X(3)