| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 141 | 11 | 6 | 0.973 | record_or_data_item_entry_list[15] |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 141 | 493 | CCCC1.COB |
| 2 | 148 | 588 | CCCC11.COB |
| 3 | 141 | 359 | CCCC12.COB |
| 4 | 148 | 371 | CCCC13.COB |
| 5 | 148 | 417 | CCCC14.COB |
| 6 | 148 | 633 | CCCC2.COB |
| 7 | 148 | 419 | CCCC4.COB |
| 8 | 148 | 329 | CCCC5.COB |
| 9 | 148 | 439 | CCCC6.COB |
| 10 | 141 | 354 | CCCC8.COB |
| 11 | 148 | 453 | 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).
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| ||||
*
*
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'.
|
| |||
*
*
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 Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22acf080]] | X(50) |
| 1 | 2 | [[#22acf080]] | X(50) |
| 1 | 3 | [[#22acf080]] | X(50) |
| 1 | 4 | [[#22acf080]] | X(55) |
| 1 | 5 | [[#22acf080]] | X(50) |
| 1 | 6 | [[#22acf080]] | X(50) |
| 1 | 7 | [[#22acf080]] | X(50) |
| 1 | 8 | [[#22acf080]] | X(50) |
| 1 | 9 | [[#22acf080]] | X(50) |
| 1 | 10 | [[#22acf080]] | X(50) |
| 1 | 11 | [[#22acf080]] | X(50) |
| 2 | 1 | [[#22acf100]] | PIC X(2) |
| 2 | 2 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 3 | [[#22acf100]] | PIC X(2) |
| 2 | 4 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 5 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 6 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 7 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 8 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 9 | [[#22acf100]] | PIC X(2) |
| 2 | 10 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 2 | 11 | [[#22acf100]] | PIC X(2)
VALUE SPACE |
| 3 | 1 | [[#22acf200]] | X(5) |
| 3 | 2 | [[#22acf200]] | X(6) |
| 3 | 3 | [[#22acf200]] | X(5) |
| 3 | 4 | [[#22acf200]] | X(6) |
| 3 | 5 | [[#22acf200]] | X(4) |
| 3 | 6 | [[#22acf200]] | X(6) |
| 3 | 7 | [[#22acf200]] | X(6) |
| 3 | 8 | [[#22acf200]] | X(6) |
| 3 | 9 | [[#22acf200]] | X(5) |
| 3 | 10 | [[#22acf200]] | X(6) |
| 3 | 11 | [[#22acf200]] | X(6) |
| 4 | 1 | [[#22acf480]] | PIC X(1) |
| 4 | 2 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 3 | [[#22acf480]] | PIC X(1) |
| 4 | 4 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 5 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 6 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 7 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 8 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 9 | [[#22acf480]] | PIC X(1) |
| 4 | 10 | [[#22acf480]] | PIC X
VALUE SPACE |
| 4 | 11 | [[#22acf480]] | PIC X
VALUE SPACE |
| 5 | 1 | [[#22acf3e0]] | PIC X(1) |
| 5 | 2 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 3 | [[#22acf3e0]] | PIC X(1) |
| 5 | 4 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 5 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 6 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 7 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 8 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 9 | [[#22acf3e0]] | PIC X(1) |
| 5 | 10 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 5 | 11 | [[#22acf3e0]] | PIC X(1)
VALUE SPACE |
| 6 | 1 | [[#22aceec0]] | 'EXECPTIONS' |
| 6 | 2 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 3 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 4 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 5 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 6 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 7 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 8 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 9 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 10 | [[#22aceec0]] | 'EXCEPTIONS' |
| 6 | 11 | [[#22aceec0]] | 'EXCEPTIONS' |