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' |