CloneSet5


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
1411160.973record_or_data_item_entry_list[15]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1141493
CCCC1.COB
2148588
CCCC11.COB
3141359
CCCC12.COB
4148371
CCCC13.COB
5148417
CCCC14.COB
6148633
CCCC2.COB
7148419
CCCC4.COB
8148329
CCCC5.COB
9148439
CCCC6.COB
10141354
CCCC8.COB
11148453
CCCC9.COB
Clone Instance
1
Line Count
141
Source Line
493
Source File
CCCC1.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(5)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)  VALUE
                   'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)  VALUE
                   'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)   VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXECPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
2
Line Count
148
Source Line
588
Source File
CCCC11.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
3
Line Count
141
Source Line
359
Source File
CCCC12.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(5)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)  VALUE
                   'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)  VALUE
                   'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)   VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
4
Line Count
148
Source Line
371
Source File
CCCC13.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
5
Line Count
148
Source Line
417
Source File
CCCC14.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(4)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
6
Line Count
148
Source Line
633
Source File
CCCC2.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(55)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(55)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
7
Line Count
148
Source Line
419
Source File
CCCC4.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
8
Line Count
148
Source Line
329
Source File
CCCC5.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
9
Line Count
148
Source Line
439
Source File
CCCC6.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)   VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
10
Line Count
141
Source Line
354
Source File
CCCC8.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(5)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)  VALUE
                   'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1).
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)  VALUE
                   'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone Instance
11
Line Count
148
Source Line
453
Source File
CCCC9.COB

      *
      *
       01  REPORT-TITLE-LINE-2.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  TERM-TITLE              PIC X(19).
           03  FILLER                  PIC X      VALUE SPACE.
           03  FILLER                  PIC X(2)   VALUE '19'.
           03  YEAR-OUT                PIC X(2).
           03  FILLER                  PIC X(3)   VALUE SPACE.
           03  FILLER                  PIC X(1)   VALUE '('.
           03  CALENDAR-YEAR           PIC 99.
           03  FILLER                  PIC X(1)   VALUE '-'.
           03  TERM-CODE               PIC 9.
           03  FILLER                  PIC X(1)   VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03  FILLER                  PIC X(50)  VALUE SPACE.
           03  COLLEGE-NAME            PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(23)
                       VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03  FILLER                  PIC X(56)  VALUE SPACE.
           03  FILLER                  PIC X(24)
                       VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03  FILLER                  PIC X(2)   VALUE SPACE.
           03  FILLER                  PIC X(47)  VALUE
                    'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03  FILLER                  PIC X(44)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03  FILLER                  PIC X(43)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03  FILLER                  PIC X(61)  VALUE SPACE.
           03  FILLER                  PIC X(52)  VALUE
                    'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03  FILLER                  PIC X.
           03  FILLER                  PIC X(12)  VALUE 'DATA ELEMENT'.
           03  FILLER                  PIC X(6)   VALUE SPACE.
           03  FILLER                  PIC X(4)   VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03  FILLER                  PIC X VALUE SPACE.
           03  FILLER                  PIC X(48)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(5)
                   VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(45)  VALUE SPACE.
           03  FILLER                  PIC X(10)
                   VALUE '   FIELD  '.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(9)
                   VALUE ' UNKNOWN '.
           03  FILLER                  PIC X(9)   VALUE SPACE.
           03  FILLER                  PIC X(14)
                   VALUE 'REASONABLENESS'.
           03  FILLER                  PIC X(11)  VALUE SPACE.
           03  FILLER                  PIC X(7)
                   VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(16)  VALUE SPACE.
           03  FILLER                  PIC X(21)
                   VALUE 'DATA ELEMENT     DED#'.
           03  FILLER                  PIC X(8)  VALUE SPACE.
           03  FILLER                  PIC X(10)   VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(6)   VALUE 'VALUES'.
           03  FILLER                  PIC X(13)  VALUE SPACE.
           03  FILLER                  PIC X(10)  VALUE 'EXCEPTIONS'.
           03  FILLER                  PIC X(12)  VALUE SPACE.
           03  FILLER                  PIC X(8)   VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03  FILLER                  PIC X(2).
           03  FILLER                  PIC X(3)   VALUE 'PRT'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'TRM'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'DST'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL1'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL2'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL3'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL4'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL5'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL6'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL7'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL8'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'CL9'.
           03  FILLER                  PIC X(1)   VALUE SPACE.
           03  FILLER                  PIC X(3)   VALUE 'C10'.


Clone AbstractionParameter Count: 6Parameter Bindings

      *
      *
       01  REPORT-TITLE-LINE-2.
           03 FILLER
              PIC [[#22acf080]]
              VALUE SPACE.
           03 TERM-TITLE
              PIC X(19).
           03 FILLER
              PIC X
              VALUE SPACE.
           03 FILLER
              PIC X(2)
              VALUE '19'.
           03 YEAR-OUT
              PIC X(2).
           03 FILLER
              PIC X(3)
              VALUE SPACE.
           03 FILLER
              PIC X(1)
              VALUE '('.
           03 CALENDAR-YEAR
              PIC 99.
           03 FILLER
              PIC X(1)
              VALUE '-'.
           03 TERM-CODE
              PIC 9.
           03 FILLER
              PIC X(1)
              VALUE ')'.
      *
      *
       01  REPORT-TITLE-LINE-3.
           03 FILLER
              PIC [[#22acf080]]
              VALUE SPACE.
           03 COLLEGE-NAME
              PIC X(30).
      *
      *
       01  REPORT-TITLE-LINE-4.
           03 FILLER
              PIC X(56)
              VALUE SPACE.
           03 FILLER
              PIC X(23)
              VALUE 'COLLEGE SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-5.
           03 FILLER
              PIC X(56)
              VALUE SPACE.
           03 FILLER
              PIC X(24)
              VALUE 'DISTRICT SUMMARY TOTALS:'.
      *
      *
       01  REPORT-TITLE-LINE-6.
           03 FILLER
               [[#22acf100]].
           03 FILLER
              PIC X(47)
              VALUE 'PROGRAM ABORTED DUE TO INVALID INPUT PARAMETERS'.
      *
      *
       01  REPORT-TITLE-LINE-7.
           03 FILLER
              PIC X(45)
              VALUE SPACE.
           03 FILLER
              PIC X(52)
              VALUE 'SUMMARY COLLEGE EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-8.
           03 FILLER
              PIC X(44)
              VALUE SPACE.
           03 FILLER
              PIC X(52)
              VALUE 'SUMMARY DISTRICT EDIT ERROR TOTALS BY ELEMENT'.
      *
      *
       01  REPORT-TITLE-LINE-9.
           03 FILLER
              PIC X(44)
              VALUE SPACE.
           03 FILLER
              PIC X(52)
              VALUE 'SUMMARY COLLEGE TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-10.
           03 FILLER
              PIC X(43)
              VALUE SPACE.
           03 FILLER
              PIC X(52)
              VALUE 'SUMMARY DISTRICT TOTAL INTEGRITY ERRORS BY TYPE'.
      *
      *
       01  REPORT-TITLE-LINE-11.
           03 FILLER
              PIC X(61)
              VALUE SPACE.
           03 FILLER
              PIC X(52)
              VALUE 'DETAIL REPORT'.
      *
      *
       01  REPORT-COLUMN-LINE-1.
           03 FILLER
              PIC X.
           03 FILLER
              PIC X(12)
              VALUE 'DATA ELEMENT'.
           03 FILLER
              PIC [[#22acf200]]
              VALUE SPACE.
           03 FILLER
              PIC X(4)
              VALUE 'DED#'.
      *
      *
       01  ELEMENT-COLUMN-LINE-1.
           03 FILLER
               [[#22acf480]].
           03 FILLER
              PIC X(48)
              VALUE SPACE.
           03 FILLER
              PIC X(5)
              VALUE 'TOTAL'.
           03 FILLER
              PIC X(16)
              VALUE SPACE.
           03 FILLER
              PIC X(5)
              VALUE 'TOTAL'.
           03 FILLER
              PIC X(16)
              VALUE SPACE.
           03 FILLER
              PIC X(5)
              VALUE 'TOTAL'.
           03 FILLER
              PIC X(16)
              VALUE SPACE.
           03 FILLER
              PIC X(5)
              VALUE 'TOTAL'.
      *
      *
       01  ELEMENT-COLUMN-LINE-2.
           03 FILLER
               [[#22acf3e0]].
           03 FILLER
              PIC X(45)
              VALUE SPACE.
           03 FILLER
              PIC X(10)
              VALUE '   FIELD  '.
           03 FILLER
              PIC X(12)
              VALUE SPACE.
           03 FILLER
              PIC X(9)
              VALUE ' UNKNOWN '.
           03 FILLER
              PIC X(9)
              VALUE SPACE.
           03 FILLER
              PIC X(14)
              VALUE 'REASONABLENESS'.
           03 FILLER
              PIC X(11)
              VALUE SPACE.
           03 FILLER
              PIC X(7)
              VALUE 'GROUP 3'.
      *
      *
       01  ELEMENT-COLUMN-LINE-3.
           03 FILLER
               [[#22acf3e0]].
           03 FILLER
              PIC X(16)
              VALUE SPACE.
           03 FILLER
              PIC X(21)
              VALUE 'DATA ELEMENT     DED#'.
           03 FILLER
              PIC X(8)
              VALUE SPACE.
           03 FILLER
              PIC X(10)
              VALUE 'EXCEPTIONS'.
           03 FILLER
              PIC X(13)
              VALUE SPACE.
           03 FILLER
              PIC X(6)
              VALUE 'VALUES'.
           03 FILLER
              PIC X(13)
              VALUE SPACE.
           03 FILLER
              PIC X(10)
              VALUE [[#22aceec0]].
           03 FILLER
              PIC X(12)
              VALUE SPACE.
           03 FILLER
              PIC X(8)
              VALUE '(SPACES)'.
      *
      *
       01  KILL-PROCESS-COLUMN-LINE-1.
           03 FILLER
              PIC X(2).
           03 FILLER
              PIC X(3)
              VALUE 'PRT'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'TRM'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'DST'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL1'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL2'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL3'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL4'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL5'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL6'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL7'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL8'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'CL9'.
           03 FILLER
              PIC X(1)
              VALUE SPACE.
           03 FILLER
              PIC X(3)
              VALUE 'C10'.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22acf080]]
       X(50) 
12[[#22acf080]]
       X(50) 
13[[#22acf080]]
       X(50) 
14[[#22acf080]]
       X(55) 
15[[#22acf080]]
       X(50) 
16[[#22acf080]]
       X(50) 
17[[#22acf080]]
       X(50) 
18[[#22acf080]]
       X(50) 
19[[#22acf080]]
       X(50) 
110[[#22acf080]]
       X(50) 
111[[#22acf080]]
       X(50) 
21[[#22acf100]]
           PIC X(2) 
22[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
23[[#22acf100]]
           PIC X(2) 
24[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
25[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
26[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
27[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
28[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
29[[#22acf100]]
           PIC X(2) 
210[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
211[[#22acf100]]
           PIC X(2)
           VALUE SPACE 
31[[#22acf200]]
       X(5) 
32[[#22acf200]]
       X(6) 
33[[#22acf200]]
       X(5) 
34[[#22acf200]]
       X(6) 
35[[#22acf200]]
       X(4) 
36[[#22acf200]]
       X(6) 
37[[#22acf200]]
       X(6) 
38[[#22acf200]]
       X(6) 
39[[#22acf200]]
       X(5) 
310[[#22acf200]]
       X(6) 
311[[#22acf200]]
       X(6) 
41[[#22acf480]]
           PIC X(1) 
42[[#22acf480]]
           PIC X
           VALUE SPACE 
43[[#22acf480]]
           PIC X(1) 
44[[#22acf480]]
           PIC X
           VALUE SPACE 
45[[#22acf480]]
           PIC X
           VALUE SPACE 
46[[#22acf480]]
           PIC X
           VALUE SPACE 
47[[#22acf480]]
           PIC X
           VALUE SPACE 
48[[#22acf480]]
           PIC X
           VALUE SPACE 
49[[#22acf480]]
           PIC X(1) 
410[[#22acf480]]
           PIC X
           VALUE SPACE 
411[[#22acf480]]
           PIC X
           VALUE SPACE 
51[[#22acf3e0]]
           PIC X(1) 
52[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
53[[#22acf3e0]]
           PIC X(1) 
54[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
55[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
56[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
57[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
58[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
59[[#22acf3e0]]
           PIC X(1) 
510[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
511[[#22acf3e0]]
           PIC X(1)
           VALUE SPACE 
61[[#22aceec0]]
       'EXECPTIONS' 
62[[#22aceec0]]
       'EXCEPTIONS' 
63[[#22aceec0]]
       'EXCEPTIONS' 
64[[#22aceec0]]
       'EXCEPTIONS' 
65[[#22aceec0]]
       'EXCEPTIONS' 
66[[#22aceec0]]
       'EXCEPTIONS' 
67[[#22aceec0]]
       'EXCEPTIONS' 
68[[#22aceec0]]
       'EXCEPTIONS' 
69[[#22aceec0]]
       'EXCEPTIONS' 
610[[#22aceec0]]
       'EXCEPTIONS' 
611[[#22aceec0]]
       'EXCEPTIONS'