|
IDENTIFICATION DIVISION.
PROGRAM-ID. CBEDIT.
*AUTHOR. EDWARD SIMLER.
*INSTALLATION. CALIFORNIA COMMUNITY COLLEGES.
*DATE-WRITTEN. JULY 11, 1989.
DATE-COMPILED.
**************************************************************
* REMARKS:
*
* THIS PROGRAM WILL PROCESS THE COURSE INVENTORY DATA FILE
* AS SUBMITTED BY THE DISTRICTS. DURING THE PROCESS ALL DATA
* WILL BE EVALUATED TO INSURE THAT THE DATA IS VALID AS
* DEFINED BY THE DATA ELEMENT DICTIONARY AND SEVERAL DATA
* INTEGRITY CHECKS WILL BE MADE. ONE OUTPUT FILE WILL BE
* CREATED. THIS FILE WILL BE FASTLOADED INTO A SUSPENSE FILE
* ON THE TERADATA WHERE THE APPROPRIATE REFERENTIAL
* INTEGRITY CHECKS WILL BE MADE AS THE DATA IS UPDATED INTO
* THE COURSE INVENTORY DATA TABLE.
*
* LAYOUT OF PROGRAM BY MODULE NUMBERS:
*
* MODULE NUMBER FUNCTION
* ------------- ----------------------------
* 0000 MAINLINE
* 1000-1999 INITIALIZE ROUTINES
* 2000-6999 GENERAL PROCESSING ROUTINES
* 7000-7999 UTILITY ROUTINES FOR GENERAL
* PROCESSING ROUTINES
* 8000-8999 ALL INPUT/OUTPUT PROCESSING
* AND OPERATIONS
* 9000-9999 END OF PROGRAM ROUTINES
*
* INPUTS:
* 1. COURSE INVENTORY DATA RECORDS AS SUBMITTED BY THE
* DISTRICTS.
*
* OUTPUTS:
* 1. COURSE INVENTORY EDITED RECORD FILE.
* 2. DETAIL EDIT ERROR REPORT.
* 3. SUMMARY EDIT ERROR REPORT.
* 4. REPORT TOTALS FILE.
*
* MODIFICATIONS:
*
* 1. 2-13-90 COMMENTED OUT INTEGRITY CHECK THAT REQUIRES A
* CREDIT COURSE TO HAVE A NON ZERO UNITS MAXIMUM. E.S.
* 2. 7-30-90 ADDED OUTPUT DATA SET REPORT-TOTALS-FILE. E.S.
* 3. 11-1-91 CHANGED PROGRAM FOR PHASE I MODIFICATIONS. KB.
* - RENAMED REMEDIAL-STATUS TO BASIC-SKILLS-STATUS (CB08).
* ALLOWED CODE B IN BASIC-SKILLS-STATUS.
* - ALLOWED CODES E,F,Y IN REPEATABILITY.
* - ADDED TWO INTEGRITY CHECKS:
* 1) IF CB08 = P, THEN CB04 MUST = C.
* 2) IF CB08 = B, THEN CB04 MUST = C OR N.
* 4. 3-23-92 CHANGED PROGRAM SO A '0' WILL BE INSERTED INTO
* THE LAST POSITION OF THE TOP CODE IF THE FIRST TWO
* NUMBERS ARE NOT 49. T.N.
* 5. 7-13-93 (PHASE II) NEW ELEMENTS - PJW
* - SPECIAL-CLASS-STATUS
* - CAN-CODE, CAN-SEQ-CODE
* - SAME-AS-DEPARTMENT-NUMBER1, NUMBER2, NUMBER3
* - CROSSWALK-CRS-DEPT-NAME, CROSSWALK-CRS-NUMBER
* 6. 7-13-93 (PHASE II) CHANGES - PJW
* - SAM-PRIORITY-CODE, DROP F,O,X
* - COURSE ID CANNOT BE THE SAME AS
* SAME-AS-DEPARTMENT-NUMBER1, NUMBER2, OR NUMBER3
* 7. 8-15-94 (PHASE II) CHANGES - PJW
* - SAM-PRIORITY-CODE, NO GROUP 3
* - SPECIAL-CLASS-STATUS, NO GROUP 3
* 8. 1-04-95 KEC
* - COMMENTED OUT ALL GROUP 3'S
* 9. 5-04-95 KEC
* - ADDED ELEMENT CB21 (COURSE-PRIOR-TO-COLLEGE-LEVEL)
* - ADDED EDIT OF CB03 (TOP CODE) AGAINST NEW TOP5
* TABLE.
*
****************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
*
*
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT COURSE-INV-DATA-FILE
ASSIGN TO UT-S-CBRECIN.
*
SELECT TOPCODE-CHECK-FILE
ASSIGN TO UT-S-TOPRECIN.
*
SELECT EDITED-COURSE-INV-DATA-FILE
ASSIGN TO UT-S-CBRECOUT.
*
SELECT REPORT-TOTALS-FILE
ASSIGN TO UT-S-TOTSFILE.
*
SELECT DATAEDIT-ERROR-REPORT
ASSIGN TO UT-S-PRINTER1.
*
SELECT SUMMARY-ERROR-REPORT
ASSIGN TO UT-S-PRINTER2.
/
DATA DIVISION.
FILE SECTION.
*
FD COURSE-INV-DATA-FILE
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
DATA RECORDS ARE COURSE-INVENTORY-RECORD.
*
01 COURSE-INVENTORY-RECORD.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* COURSE INVENTORY INPUT RECORD *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
03 RECORD-CODE PIC X(2).
88 COURSE-DATA-RECORD VALUE 'CB'.
03 COLLEGE-ID PIC X(3).
03 TERM-IDENTIFIER.
05 CALENDAR-YEAR PIC 9(2).
05 TERM-CODE PIC 9.
03 COURSE-PERM-DIST-ID PIC X(12).
03 COURSE-DEPARTMENT-NUMBER PIC X(12).
03 COURSE-TITLE PIC X(68).
03 COURSE-PROGRAM-CODE.
05 TOP-CODE-FLAG PIC XX.
05 TOP-CODE-BODY PIC XXX.
05 TOP-CODE-LITERAL PIC X.
03 COURSE-CREDIT-STATUS PIC X(1).
88 COURSE-CREDIT-STATUS-VALID VALUE 'D' 'C' 'N'.
88 CREDIT-STATUS-C VALUE 'C'.
88 CREDIT-STATUS-D VALUE 'D'.
88 CREDIT-STATUS-N VALUE 'N'.
88 CREDIT-STATUS-D-OR-C VALUE 'D' 'C'.
88 CREDIT-STATUS-C-OR-N VALUE 'C' 'N'.
03 COURSE-TRANSF-STATUS PIC X(1).
88 COURSE-TRANSF-STATUS-VALID VALUE 'A' 'B' 'C'.
88 TRANSFER-STATUS-A-OR-B VALUE 'A' 'B'.
88 TRANSFER-STATUS-C VALUE 'C'.
03 COURSE-UNITS-MAXIMUM PIC X(4).
03 COURSE-UNITS-MINIMUM PIC X(4).
03 COURSE-BASIC-SKILLS-STATUS PIC X(1).
88 VALID-BASIC-SKILLS-STATUS VALUE 'B' 'P' 'N'.
88 BASIC-SKILLS-STATUS-P VALUE 'P'.
88 BASIC-SKILLS-STATUS-B VALUE 'B'.
03 COURSE-SAM-PRIORITY-CODE PIC X(1).
88 COURSE-SAM-PRIORITY-CODE-VALID VALUE 'A' 'B' 'C'
'D' 'E'.
03 COURSE-COOP-ED-STATUS PIC X(1).
88 COURSE-COOP-ED-STATUS-VALID VALUE 'N' 'C' 'G' 'O'.
03 COURSE-CLASSIFICATION-CODE PIC X(1).
88 COURSE-CLASSIFICATION-CD-VALID VALUE 'A' 'B' 'C'
'D' 'E' 'F'
'G' 'H' 'I'.
03 COURSE-REPEATABILITY PIC X(1).
88 COURSE-REPEATABILITY-VALID VALUE 'A' 'B' 'C' 'D'
'E' 'F' 'Y'.
03 COURSE-SPECIAL-CLASS-STATUS PIC X(1).
88 COURSE-SPECIAL-CLASS-VALID VALUE 'S' 'N'.
03 COURSE-CAN-CODE.
05 COURSE-CAN-CODE-FIRST PIC X(1).
05 COURSE-CAN-CODE-REST PIC X(5).
03 COURSE-CAN-CODE-R
REDEFINES COURSE-CAN-CODE PIC X(6).
88 COURSE-CAN-CODE-X VALUE 'XXXXXX'.
88 COURSE-CAN-CODE-Y VALUE 'YYYYYY'.
03 COURSE-CAN-SEQ-CODE.
05 COURSE-CAN-SEQ-CODE-FIRST PIC X(1).
05 COURSE-CAN-SEQ-CODE-REST PIC X(7).
03 COURSE-CAN-SEQ-CODE-R
REDEFINES COURSE-CAN-SEQ-CODE PIC X(8).
88 COURSE-CAN-SEQ-CODE-X VALUE 'XXXXXXXX'.
88 COURSE-CAN-SEQ-CODE-Y VALUE 'YYYYYYYY'.
03 COURSE-SAME-AS-DEPTNO1 PIC X(12).
03 COURSE-SAME-AS-DEPTNO2 PIC X(12).
03 COURSE-SAME-AS-DEPTNO3 PIC X(12).
03 COURSE-CROSSWALK-CRS-NAME.
05 COURSE-CROSSWALK-NAME-FIRST PIC X(1).
05 COURSE-CROSSWALK-NAME-REST PIC X(6).
03 COURSE-CROSSWALK-CRS-NAME-R
REDEFINES COURSE-CROSSWALK-CRS-NAME PIC X(7).
88 COURSE-CRS-NAME-Y VALUE 'YYYYYYY'.
03 COURSE-CROSSWALK-CRS-NUMBER.
05 COURSE-CROSSWALK-NUM-FIRST PIC X(1).
05 COURSE-CROSSWALK-NUM-REST PIC X(8).
03 COURSE-CROSSWALK-CRS-NUM-R
REDEFINES COURSE-CROSSWALK-CRS-NUMBER PIC X(9).
88 COURSE-CRS-NUM-Y VALUE 'YYYYYYYYY'.
03 COURSE-PRIOR-TO-COLLEGE-LEVEL PIC X.
88 COURSE-PRIOR-VALID-CODES VALUE 'A' 'B' 'C' 'Y'.
88 COURSE-PRIOR-NOT-APP VALUE 'Y'.
03 FILLER PIC X(31).
*
*
FD EDITED-COURSE-INV-DATA-FILE
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS EDITED-COURSE-INVENTORY-RECORD.
*
01 EDITED-COURSE-INVENTORY-RECORD.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* EDITED COURSE INVENTORY OUTPUT RECORD *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
03 COLLEGE-ID PIC X(3).
03 TERM-IDENTIFIER.
05 CALENDAR-YEAR PIC 9(2).
05 TERM-CODE PIC 9.
03 COURSE-PERM-DIST-ID PIC X(12).
03 COURSE-DEPARTMENT-NUMBER PIC X(12).
03 COURSE-TITLE PIC X(68).
03 COURSE-PROGRAM-CODE PIC X(6).
03 COURSE-CREDIT-STATUS PIC X(1).
03 COURSE-TRANSF-STATUS PIC X(1).
03 COURSE-UNITS-MAXIMUM PIC X(4).
03 COURSE-UNITS-MINIMUM PIC X(4).
03 COURSE-BASIC-SKILLS-STATUS PIC X(1).
03 COURSE-SAM-PRIORITY-CODE PIC X(1).
03 COURSE-COOP-ED-STATUS PIC X(1).
03 COURSE-CLASSIFICATION-CODE PIC X(1).
03 COURSE-REPEATABILITY PIC X(1).
03 COURSE-SPECIAL-CLASS-STATUS PIC X(1).
03 COURSE-CAN-CODE PIC X(6).
03 COURSE-CAN-SEQ-CODE PIC X(8).
03 COURSE-SAME-AS-DEPTNO1 PIC X(12).
03 COURSE-SAME-AS-DEPTNO2 PIC X(12).
03 COURSE-SAME-AS-DEPTNO3 PIC X(12).
03 COURSE-CROSSWALK-CRS-NAME PIC X(07).
03 COURSE-CROSSWALK-CRS-NUMBER PIC X(9).
03 COURSE-PRIOR-TO-COLLEGE-LEVE PIC X.
*
*
FD REPORT-TOTALS-FILE
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
DATA RECORDS ARE REPORT-TOTALS-RECORD1
REPORT-TOTALS-RECORD2
REPORT-TOTALS-RECORD3.
01 REPORT-TOTALS-RECORD1.
03 TOTALS-ID1.
05 TOTALS-COLLEGE1 PIC X(3).
05 TOTALS-TYPE1 PIC X(2).
05 TOTALS-FLAG1 PIC X(7).
03 DED-NUMBER PIC X(4).
03 EXCEPT-COUNT PIC 9(6).
03 UNKNOWN-COUNT PIC 9(6).
03 REASON-COUNT PIC 9(6).
03 GRP3-COUNT PIC 9(6).
01 REPORT-TOTALS-RECORD2.
03 TOTALS-ID2 PIC X(12).
03 INTEGRITY-ERROR-CODE PIC X(2).
03 INTEGRITY-ERROR-COUNT PIC 9(6).
03 FILLER PIC X(20).
01 REPORT-TOTALS-RECORD3.
03 TOTALS-ID3.
05 TOTALS-COLLEGE3 PIC X(3).
05 TOTALS-TYPE3 PIC X(2).
05 TOTALS-FLAG3 PIC X(7).
03 READ-TOTALS PIC 9(6).
03 REJECTED-TOTALS PIC 9(6).
03 DATE-FLAG PIC 9(6).
03 TIME-FLAG PIC 9(4).
03 FILLER PIC X(6).
*
*
FD DATAEDIT-ERROR-REPORT
LABEL RECORDS ARE OMITTED
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F
DATA RECORD IS PRINT-RECORD.
*
01 PRINT-RECORD PIC X(133).
*
FD SUMMARY-ERROR-REPORT
LABEL RECORDS ARE OMITTED
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F
DATA RECORD IS PRINT-RECORD-2.
*
01 PRINT-RECORD-2 PIC X(133).
*
FD TOPCODE-CHECK-FILE
LABEL RECORDS ARE OMITTED
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F
DATA RECORD IS TOPCODE-RECORD.
*
01 TOPCODE-RECORD.
03 TOPCODE PIC X(6).
03 TOP-VOC-ED-FLAG PIC X.
03 TOP-TITLE PIC X(40).
*
/
WORKING-STORAGE SECTION.
*
01 PROGRAM-FLAG-AREA VALUE ZEROS.
03 END-OF-FILE-FLAG PIC 9.
88 END-OF-FILE VALUE 1.
03 TOP-EOF-FLAG PIC 9.
88 END-OF-TOP-FILE VALUE 1.
03 PAGE-FULL-FLAG PIC 9.
88 PAGE-FULL VALUE 1.
03 TABLE-SEARCH-FLAG PIC 9.
88 TABLE-SEARCH-COMPLETED VALUE 1.
03 ADD-ELEMENT-COLUMNS-FLAG PIC 9.
88 ADD-ELEMENT-COLUMNS-DONE VALUE 1.
03 NEW-COLLEGE-FLAG PIC 9.
88 NEW-COLLEGE VALUE 1.
03 PRINT-LINE-FLAG PIC 9.
88 PRINT-LINE-FILLED VALUE 1.
03 HEADER-CONTROL-FLAG PIC 9.
88 KILL-PROCESS VALUE 1.
88 COLLEGE-ELEMENT-TOTALS VALUE 2.
88 COLLEGE-INTEGRITY-TOTALS VALUE 3.
88 DISTRICT-ELEMENT-TOTALS VALUE 4.
88 DISTRICT-INTEGRITY-TOTALS VALUE 5.
88 COLLEGE-SUMMARY-TOTALS VALUE 6.
88 DISTRICT-SUMMARY-TOTALS VALUE 7.
03 ELEMENT-TABLE-ROW-ID PIC 99.
88 ELEMENT-ROWS-1-25 VALUE 1 THRU 25.
88 ELEMENT-ROWS-1-5 VALUE 1 THRU 5.
88 ELEMENT-ROWS-20-22 VALUE 20 THRU 22.
88 ELEMENT-ROWS-13 VALUE 13.
88 ELEMENT-ROWS-17 VALUE 17.
03 ELEMENT-TABLE-COLUMN-ID PIC 9.
88 ELEMENT-COLUMN-2 VALUE 2.
88 ELEMENT-COLUMN-3 VALUE 3.
88 ELEMENT-COLUMN-4 VALUE 4.
03 COLLEGE-SEARCH-FLAG PIC 9.
88 COLLEGE-NOT-FOUND VALUE 1.
*
*
01 DATA-VALIDATION-FLAGS VALUE ZEROS.
03 REJECT-RECORD-FLAG PIC 9.
88 REJECT-RECORD VALUE 1.
03 DISTRICT-ID-FLAG PIC 9.
88 DISTRICT-ID-INVALID VALUE 1.
03 COLLEGE-ID-FLAG PIC 9.
88 COLLEGE-ID-INVALID VALUE 1.
03 TERM-ID-FLAG PIC 9.
88 TERM-ID-INVALID VALUE 1.
03 COURSE-ID-FLAG PIC 9.
88 COURSE-ID-VALID VALUE 1.
03 COURSE-TITLE-FLAG PIC 9.
88 COURSE-TITLE-VALID VALUE 1.
03 COURSE-UNITS-MAXIMUM-FLAG PIC 9.
88 COURSE-UNITS-MAXIMUM-VALID VALUE 1.
03 COURSE-UNITS-MINIMUM-FLAG PIC 9.
88 COURSE-UNITS-MINIMUM-VALID VALUE 1.
03 COURSE-PROGRAM-CODE-FLAG PIC 9.
88 COURSE-PROGRAM-CODE-VALID VALUE 1.
03 TOP-CODE-VALID-FLAG PIC 9.
88 TOP-CODE-VALID VALUE 1.
03 COURSE-CAN-CODE-FLAG PIC 9.
88 COURSE-CAN-CODE-VALID VALUE 1.
03 COURSE-CAN-SEQ-CODE-FLAG PIC 9.
88 COURSE-CAN-SEQ-CODE-VALID VALUE 1.
03 COURSE-SAME-AS-1-FLAG PIC 9.
88 COURSE-SAME-AS-1-VALID VALUE 1.
03 COURSE-SAME-AS-2-FLAG PIC 9.
88 COURSE-SAME-AS-2-VALID VALUE 1.
03 COURSE-SAME-AS-3-FLAG PIC 9.
88 COURSE-SAME-AS-3-VALID VALUE 1.
03 COURSE-CRS-NAME-FLAG PIC 9.
88 COURSE-CRS-NAME-VALID VALUE 1.
03 COURSE-CRS-NUMBR-FLAG PIC 9.
88 COURSE-CRS-NUMBR-VALID VALUE 1.
03 COURSE-PRIOR-LEVEL-FLAG PIC 9.
88 COURSE-PRIOR-VALID VALUE 1.
*
*
01 PROGRAM-LITERAL-AND-WORK.
03 DETAIL-PROGRAM-NAME PIC X(13) VALUE 'CBEDIT'.
03 SUMMARY-PROGRAM-NAME.
05 REPORT-CLG-DIST-ID PIC X(3).
05 REPORT-TYPE PIC X(2) VALUE 'CB'.
05 REPORT-ID-LIT PIC X(7).
03 SUM1-PROGRAM-LIT PIC X(7) VALUE 'SYNSUM1'.
03 SUM2-PROGRAM-LIT PIC X(7) VALUE 'SYNSUM2'.
03 SUM3-PROGRAM-LIT PIC X(7) VALUE 'SYNSUM3'.
03 VALIDITY-LITERAL PIC X(1) VALUE 'V'.
03 INTEGRITY-LITERAL PIC X(1) VALUE 'I'.
03 ONE-LITERAL PIC 9(1) VALUE 1.
03 PRT-PAGE-MAXIMUM PIC 9(3) VALUE ZERO.
03 REJECTED-MESSAGE PIC X(8) VALUE 'REJECTED'.
03 HOLD-COLLEGE-ID PIC X(3).
03 HOLD-TIME.
05 HH-MM PIC 9(4).
05 FILLER PIC 9(4).
03 TERM-ID-INVALID-LITERAL PIC X(30)
VALUE ' TERM CODE MISSING OR INVALID'.
03 COLLEGE-INVALID-LITERAL PIC X(31)
VALUE ' COLLEGE ID MISSING OR INVALID'.
03 DISTRICT-ID-INVALID-LITERAL PIC X(32)
VALUE ' DISTRICT ID MISSING OR INVALID'.
03 PRT-CNTL-INVALID-LITERAL PIC X(36)
VALUE ' PRINTER CONTROL MISSING OR INVALID'.
03 ORIGINAL-INDEX-VALUE USAGE IS INDEX.
03 NOT-APPLICABLE-LITERAL PIC X(3) VALUE 'N/A'.
*
*
01 PROGRAM-ACCUMULATORS VALUE ZEROS.
03 TOTAL-COLLEGE-ENTRIES.
05 TOTAL-COLLEGE-RECORDS-READ PIC 9(6).
05 TOTAL-COLLEGE-RECORDS-WRITTEN PIC 9(6).
05 TOTAL-COLLEGE-RECORDS-REJECT PIC 9(6).
03 TOTAL-COLLEGE-ENTRY
REDEFINES TOTAL-COLLEGE-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-COLLEGE-INDEX.
05 COLLEGE-TOTAL PIC 9(6).
03 COLLEGE-ELEMENT-TOTALS.
05 COLLEGE-ELEMENT-TOTALS-ROWS
OCCURS 25 TIMES
INDEXED BY COLLEGE-ELEMENT-ROW-INDEX.
07 COLLEGE-ELEMENT-TOTALS-COLUMNS
OCCURS 4 TIMES
INDEXED BY COLLEGE-ELEMENT-COLUMN-INDEX.
09 COLLEGE-ELEMENT-TOTAL PIC 9(5).
03 TOTAL-DISTRICT-ENTRIES.
05 TOTAL-DISTRICT-RECORDS-READ PIC 9(6).
05 TOTAL-DISTRICT-RECORDS-WRITTEN PIC 9(6).
05 TOTAL-DISTRICT-RECORDS-REJECT PIC 9(6).
03 TOTAL-DISTRICT-ENTRY
REDEFINES TOTAL-DISTRICT-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DISTRICT-INDEX.
05 DISTRICT-TOTAL PIC 9(6).
03 DISTRICT-ELEMENT-TOTALS.
05 DISTRICT-ELEMENT-TOTALS-ROWS
OCCURS 25 TIMES
INDEXED BY DISTRICT-ELEMENT-ROW-INDEX.
07 DISTRICT-ELEMNT-TOTALS-COLUMNS
OCCURS 4 TIMES
INDEXED BY DISTRICT-ELEMENT-COLUMN-INDEX.
09 DISTRICT-ELEMENT-TOTAL PIC 9(5).
03 COLLEGE-INTEGRITY-TOTALS.
05 CLG-INTEGRITY-ERR-1-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-2-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-3-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-4-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-5-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-6-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-7-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-8-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-9-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-10-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-11-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-12-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-13-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-14-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-15-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-16-TOTAL PIC 9(6).
05 CLG-INTEGRITY-ERR-17-TOTAL PIC 9(6).
03 DISTRICT-INTEGRITY-TOTALS.
05 DIST-INTEGRITY-ERR-1-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-2-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-3-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-4-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-5-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-6-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-7-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-8-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-9-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-10-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-11-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-12-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-13-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-14-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-15-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-16-TOTAL PIC 9(6).
05 DIST-INTEGRITY-ERR-17-TOTAL PIC 9(6).
*
*
01 REPORT-TITLE-LINE-1.
03 FILLER PIC X(47) VALUE SPACE.
03 FILLER PIC X(40)
VALUE 'COURSE INVENTORY DATA SYNTACTICAL EDIT'.
*
*
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 EDIT-ERROR-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 DETAIL-LITERAL-AREA PIC X(23).
03 DETAIL-COLUMNS
OCCURS 6 TIMES
INDEXED BY DETAIL-COLUMN-INDEX.
05 VALIDATION-FLAG PIC X.
05 FILLER PIC X.
05 DATA-ELEMENT PIC X(12).
05 FILLER PIC X(4).
*
*
01 ELEMENT-TOTAL-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X.
03 FILLER PIC X(16).
03 ELEMENT-LITERAL-AREA PIC X(26).
03 FILLER PIC X(5).
03 ELEMENT-COLUMNS
OCCURS 4 TIMES
INDEXED BY ELEMENT-COLUMN-INDEX.
05 ELEMENT-TOTAL PIC ZZ,ZZ9.
05 ELEMENT-TOTAL-REDEFINES
REDEFINES ELEMENT-TOTAL.
07 FILLER PIC X(3).
07 ELEMENT-N-A PIC X(3).
05 FILLER PIC X(15).
*
*
01 TOTAL-DESCRIPTIONS.
03 TOTAL-DESCRIPTION-ENTRIES.
05 FILLER PIC X(30)
VALUE 'RECORDS READ:'.
05 FILLER PIC X(30)
VALUE 'RECORDS WRITTEN:'.
05 FILLER PIC X(30)
VALUE 'RECORDS REJECTED:'.
03 TOTAL-DESCRIPTION-ENTRY
REDEFINES TOTAL-DESCRIPTION-ENTRIES
OCCURS 3 TIMES
INDEXED BY TOTAL-DESCRIPTION-INDEX.
05 TOTAL-DESCRIPTION PIC X(30).
*
*
01 TOTAL-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X(48).
03 TOTAL-DESCRIPTION PIC X(29).
03 TOTAL-FIELD PIC ZZZ,ZZ9.
*
*
01 TOP-CODE-TABLE VALUE '999999'.
03 TOP-CODE-TBL
OCCURS 350 TIMES
ASCENDING KEY IS TOP-CODE-Y
INDEXED BY TOPIDX.
05 TOP-CODE-Y PIC X(6).
*
*
01 INTEGRITY-DESCRIPTIONS.
03 INTEGRITY-ERR-1-DESC.
05 INT-ERR-1-PART-1 PIC X(35)
VALUE 'COURSE TRANSFERABLE (CB05) BUT NOT '.
05 INT-ERR-1-PART-2 PIC X(31)
VALUE 'CREDIT-DEGREE APPLICABLE (CB04)'.
03 INTEGRITY-ERR-2-DESC.
05 INT-ERR-2-PART-1 PIC X(38)
VALUE 'COURSE IS NON-CREDIT (CB04) BUT UNITS '.
05 INT-ERR-2-PART-2 PIC X(40)
VALUE 'MAXIMUM (CB06) WERE REPORTED AS NON-ZERO'.
03 INTEGRITY-ERR-3-DESC.
05 INT-ERR-3-PART-1 PIC X(38)
VALUE 'COURSE IS NON-CREDIT (CB04) BUT UNITS '.
05 INT-ERR-3-PART-2 PIC X(40)
VALUE 'MINIMUM (CB07) WERE REPORTED AS NON-ZERO'.
03 INTEGRITY-ERR-4-DESC.
05 INT-ERR-4-PART-1 PIC X(38)
VALUE 'COURSE BASIC SKILLS STATUS (CB08) = P '.
05 INT-ERR-4-PART-2 PIC X(36)
VALUE 'BUT CREDIT STATUS (CB04) DID NOT = C'.
03 INTEGRITY-ERR-5-DESC.
05 INT-ERR-5-PART-1 PIC X(38)
VALUE 'COURSE BASIC SKILLS STATUS (CB08) = B '.
05 INT-ERR-5-PART-2 PIC X(41)
VALUE 'BUT CREDIT STATUS (CB04) DID NOT = C OR N'.
03 INTEGRITY-ERR-6-DESC.
05 INT-ERR-6-PART-1 PIC X(37)
VALUE 'WHEN CAN CODE (CB14) IS CODED WITH X '.
05 INT-ERR-6-PART-2 PIC X(35)
VALUE 'CAN SEQ CODE (CB15) CANNOT = X OR Y'.
03 INTEGRITY-ERR-7-DESC.
05 INT-ERR-7-PART-1 PIC X(37)
VALUE 'WHEN CAN CODE (CB14) IS CODED WITH Y '.
05 INT-ERR-7-PART-2 PIC X(33)
VALUE 'CAN SEQ CODE (CB15) MUST ALSO = Y'.
03 INTEGRITY-ERR-8-DESC.
05 INT-ERR-8-PART-1 PIC X(42)
VALUE 'WHEN CAN CODE (CB14) IS CODED WITH A CODE '.
05 INT-ERR-8-PART-2 PIC X(34)
VALUE 'THE CAN SEQ CODE (CB15) CANNOT = Y'.
03 INTEGRITY-ERR-9-DESC.
05 INT-ERR-9-PART-1 PIC X(40)
VALUE 'SAME AS DEPARTMENT NO 1 (CB16) CANNOT = '.
05 INT-ERR-9-PART-2 PIC X(39)
VALUE 'THE COURSE ID (CB01) IN THE SAME RECORD'.
03 INTEGRITY-ERR-10-DESC.
05 INT-ERR-10-PART-1 PIC X(40)
VALUE 'SAME AS DEPARTMENT NO 2 (CB17) CANNOT = '.
05 INT-ERR-10-PART-2 PIC X(39)
VALUE 'THE COURSE ID (CB01) IN THE SAME RECORD'.
03 INTEGRITY-ERR-11-DESC.
05 INT-ERR-11-PART-1 PIC X(40)
VALUE 'SAME AS DEPARTMENT NO 3 (CB18) CANNOT = '.
05 INT-ERR-11-PART-2 PIC X(39)
VALUE 'THE COURSE ID (CB01) IN THE SAME RECORD'.
03 INTEGRITY-ERR-12-DESC.
05 INT-ERR-12-PART-1 PIC X(40)
VALUE 'WHEN TRANSFER STATUS (CB05) IS = A OR B '.
05 INT-ERR-12-PART-2 PIC X(31)
VALUE 'THEN CRS NAME (CB19) CANNOT = Y'.
03 INTEGRITY-ERR-13-DESC.
05 INT-ERR-13-PART-1 PIC X(35)
VALUE 'WHEN TRANSFER STATUS (CB05) IS = C '.
05 INT-ERR-13-PART-2 PIC X(32)
VALUE 'THEN CRS NAME (CB19) MUST BE = Y'.
03 INTEGRITY-ERR-14-DESC.
05 INT-ERR-14-PART-1 PIC X(40)
VALUE 'WHEN TRANSFER STATUS (CB05) IS = A OR B '.
05 INT-ERR-14-PART-2 PIC X(31)
VALUE 'THEN CRS NMBR (CB20) CANNOT = Y'.
03 INTEGRITY-ERR-15-DESC.
05 INT-ERR-15-PART-1 PIC X(35)
VALUE 'WHEN TRANSFER STATUS (CB05) IS = C '.
05 INT-ERR-15-PART-2 PIC X(32)
VALUE 'THEN CRS NMBR (CB20) MUST BE = Y'.
03 INTEGRITY-ERR-16-DESC.
05 INT-ERR-16-PART-1 PIC X(41)
VALUE 'WHEN CRS PRIOR TO COLL LVL (CB21) = A, B,'.
05 INT-ERR-16-PART-2 PIC X(42)
VALUE ' C, THEN CRS TRNSF STAT (CB05) MUST BE = C'.
* 03 INTEGRITY-ERR-17-DESC.
* 05 INT-ERR-17-PART-1 PIC X(26)
* VALUE 'CRSE PGM CODE (CB03) NOT ='.
* 05 INT-ERR-17-PART-2 PIC X(33)
* VALUE ' TO ANY CODE IN TOP5 LOOKUP TABLE'.
*
*
01 INTEGRITY-TOTAL-DETAIL-LINE VALUE SPACE.
03 FILLER PIC X(01).
03 INTEGRITY-TOTAL PIC ZZZ,ZZ9.
03 FILLER PIC X(2).
03 INTEGRITY-DESCRIPTION PIC X(80).
*
*
01 BLANK-LINE.
03 FILLER PIC X(133) VALUE SPACE.
*
*
01 RUNTIME-PARAMETER-TABLE.
03 RUNTIME-PARAMETER-COLLEGES
OCCURS 10 TIMES
INDEXED BY RUNTIME-PARAMETER-INDEX.
05 COLLEGE-ID PIC X(3).
05 COLLEGE-NAME PIC X(30).
*
*
01 EDIT-ERROR-LITERAL-TABLE.
03 EDIT-ERROR-LITERAL-ENTRIES.
05 FILLER PIC X(17)
VALUE 'PERMANENT DST ID'.
05 FILLER PIC X(6) VALUE 'CB00'.
05 FILLER PIC X(17)
VALUE 'DEPARTMENT NUM.'.
05 FILLER PIC X(6) VALUE 'CB01'.
05 FILLER PIC X(17) VALUE 'RECORD CODE'.
05 FILLER PIC X(6) VALUE 'GI90'.
05 FILLER PIC X(17) VALUE 'COLLEGE ID'.
05 FILLER PIC X(6) VALUE 'GI01'.
05 FILLER PIC X(17) VALUE 'TERM ID'.
05 FILLER PIC X(6) VALUE 'GI03'.
05 FILLER PIC X(17) VALUE 'TITLE'.
05 FILLER PIC X(6) VALUE 'CB02'.
05 FILLER PIC X(17)
VALUE 'PROGRAM CODE'.
05 FILLER PIC X(6) VALUE 'CB03'.
05 FILLER PIC X(17)
VALUE 'CREDIT STATUS'.
05 FILLER PIC X(6) VALUE 'CB04'.
05 FILLER PIC X(17)
VALUE 'TRANSFER STATUS'.
05 FILLER PIC X(6) VALUE 'CB05'.
05 FILLER PIC X(17)
VALUE 'UNITS CR MAXIMUM'.
05 FILLER PIC X(6) VALUE 'CB06'.
05 FILLER PIC X(17)
VALUE 'UNITS CR MINIMUM'.
05 FILLER PIC X(6) VALUE 'CB07'.
05 FILLER PIC X(17)
VALUE 'BASC SKILLS STAT'.
05 FILLER PIC X(6) VALUE 'CB08'.
05 FILLER PIC X(17)
VALUE 'SAM PRIORITY CD'.
05 FILLER PIC X(6) VALUE 'CB09'.
05 FILLER PIC X(17)
VALUE 'COOP ED STATUS'.
05 FILLER PIC X(6) VALUE 'CB10'.
05 FILLER PIC X(17)
VALUE 'CLASSIFICAT CODE'.
05 FILLER PIC X(6) VALUE 'CB11'.
05 FILLER PIC X(17)
VALUE 'REPEATABILITY'.
05 FILLER PIC X(6) VALUE 'CB12'.
05 FILLER PIC X(17)
VALUE 'SPECIAL CLASS ST'.
05 FILLER PIC X(6) VALUE 'CB13'.
05 FILLER PIC X(17)
VALUE 'CAN CODE'.
05 FILLER PIC X(6) VALUE 'CB14'.
05 FILLER PIC X(17)
VALUE 'CAN SEQ CODE'.
05 FILLER PIC X(6) VALUE 'CB15'.
05 FILLER PIC X(17)
VALUE 'SAME AS DEPT NUM1'.
05 FILLER PIC X(6) VALUE 'CB16'.
05 FILLER PIC X(17)
VALUE 'SAME AS DEPT NUM2'.
05 FILLER PIC X(6) VALUE 'CB17'.
05 FILLER PIC X(17)
VALUE 'SAME AS DEPT NUM3'.
05 FILLER PIC X(6) VALUE 'CB18'.
05 FILLER PIC X(17)
VALUE 'CRS NAME'.
05 FILLER PIC X(6) VALUE 'CB19'.
05 FILLER PIC X(17)
VALUE 'CRS NUM'.
05 FILLER PIC X(6) VALUE 'CB20'.
05 FILLER PIC X(17)
VALUE 'CRS PRIOR LVL'.
05 FILLER PIC X(6) VALUE 'CB21'.
05 FILLER PIC X(17) VALUE ' ACTION:'.
05 FILLER PIC X(6).
05 FILLER PIC X(17).
05 FILLER PIC X(6).
03 EDIT-ERROR-LITERAL-ENTRY
REDEFINES EDIT-ERROR-LITERAL-ENTRIES
OCCURS 27 TIMES
INDEXED BY EDIT-ERROR-LITERAL-INDEX.
05 EDIT-ERROR-LITERAL-AREA.
07 EDIT-ERROR-LITERAL-1 PIC X(17).
07 EDIT-ERROR-LITERAL-2 PIC X(06).
*
*
01 EDIT-ERROR-TABLE.
03 EDIT-ERROR-TABLE-ROWS
OCCURS 27 TIMES
INDEXED BY EDIT-ERROR-ROW-INDEX.
05 EDIT-ERROR-TABLE-COLUMNS
OCCURS 6 TIMES
INDEXED BY EDIT-ERROR-COLUMN-INDEX.
07 DATA-ELEMENT PIC X(12).
07 VALIDATION-FLAG PIC X(01).
*
*
01 TERM-IDENTIFIER-TABLE.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* TERM IDENTIFIER TABLE *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
03 TERM-IDENTIFIER-ENTRIES.
05 ANNUAL-TERM.
07 TERM-CODE PIC X(1) VALUE '0'.
07 TERM-TITLE PIC X(19) VALUE 'ANNUAL'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 10.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 15.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 WINTER-INTERCESSION.
07 TERM-CODE PIC X(1) VALUE '1'.
07 TERM-TITLE PIC X(19)
VALUE 'WINTER INTERCESSION'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 02.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 WINTER-QUARTER.
07 TERM-CODE PIC X(1) VALUE '2'.
07 TERM-TITLE PIC X(19)
VALUE 'WINTER QUARTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 02.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE 1.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 SPRING-SEMESTER.
07 TERM-CODE PIC X(1) VALUE '3'.
07 TERM-TITLE PIC X(19)
VALUE 'SPRING SEMESTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 03.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 SPRING-QUARTER.
07 TERM-CODE PIC X(1) VALUE '4'.
07 TERM-TITLE PIC X(19)
VALUE 'SPRING QUARTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 03.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE 1.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 SUMMER-TERM.
07 TERM-CODE PIC X(1) VALUE '5'.
07 TERM-TITLE PIC X(19) VALUE 'SUMMER TERM'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 07.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 SUMMER-QUARTER.
07 TERM-CODE PIC X(1) VALUE '6'.
07 TERM-TITLE PIC X(19)
VALUE 'SUMMER QUARTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 07.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 01.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE 1.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 FALL-SEMESTER.
07 TERM-CODE PIC X(1) VALUE '7'.
07 TERM-TITLE PIC X(19)
VALUE 'FALL SEMESTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 10.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 15.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 FALL-QUARTER.
07 TERM-CODE PIC X(1) VALUE '8'.
07 TERM-TITLE PIC X(19) VALUE 'FALL QUARTER'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 10.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 15.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE 1.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
05 NONE-ABOVE.
07 TERM-CODE PIC X(1) VALUE '9'.
07 TERM-TITLE PIC X(19) VALUE 'UNKNOWN'.
07 BIRTH-COMPUTATION-DATE.
09 AGE-COMPUTATION-MONTH
PIC 9(2) VALUE 10.
09 AGE-COMPUTATION-DAY
PIC 9(2) VALUE 15.
07 QUARTER-TYPE-TERM-FLAG
PIC 9 VALUE ZERO.
07 EFFECTIVE-DATES.
09 BEGIN-DATE PIC 9(6) VALUE ZEROES.
09 END-DATE PIC 9(6) VALUE 999999.
03 TERM-IDENTIFIER-ENTRY
REDEFINES TERM-IDENTIFIER-ENTRIES
OCCURS 10 TIMES
INDEXED BY TERM-IDENTIFIER-INDEX.
05 TERM-CODE PIC X(1).
05 TERM-TITLE PIC X(19).
05 BIRTH-COMPUTATION-DATE.
07 AGE-COMPUTATION-MONTH
PIC 9(2).
07 AGE-COMPUTATION-DAY
PIC 9(2).
05 QUARTER-TYPE-TERM-FLAG
PIC 9.
88 TERM-IS-A-QUARTER VALUE 1.
05 EFFECTIVE-DATES.
07 BEGIN-DATE PIC 9(6).
07 END-DATE PIC 9(6).
*
*
01 DISTRICT-CODES-TABLE.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* *
* D I S T R I C T C O D E T A B L E *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
03 DISTRICT-CODE-VALUES.
05 ALLAN-HANCOCK.
07 DISTRICT-CODE PIC 9(5) VALUE 69096.
07 DISTRICT-ID PIC 9(3) VALUE 610.
07 DISTRICT-NAME PIC X(30)
VALUE 'ALLAN HANCOCK DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9001A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 ANTELOPE-VALLEY.
07 DISTRICT-CODE PIC 9(5) VALUE 64253.
07 DISTRICT-ID PIC 9(3) VALUE 620.
07 DISTRICT-NAME PIC X(30)
VALUE 'ANTELOPE VALLEY DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9002A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 BARSTOW.
07 DISTRICT-CODE PIC 9(5) VALUE 67629.
07 DISTRICT-ID PIC 9(3) VALUE 910.
07 DISTRICT-NAME PIC X(30)
VALUE 'BARSTOW DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9003A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 BUTTE.
07 DISTRICT-CODE PIC 9(5) VALUE 61416.
07 DISTRICT-ID PIC 9(3) VALUE 110.
07 DISTRICT-NAME PIC X(30)
VALUE 'BUTTE DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9004A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 CABRILLO.
07 DISTRICT-CODE PIC 9(5) VALUE 69740.
07 DISTRICT-ID PIC 9(3) VALUE 410.
07 DISTRICT-NAME PIC X(30)
VALUE 'CABRILLO DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9005A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 CERRITOS.
07 DISTRICT-CODE PIC 9(5) VALUE 64360.
07 DISTRICT-ID PIC 9(3) VALUE 810.
07 DISTRICT-NAME PIC X(30)
VALUE 'CERRITOS DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9006A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 CHAFFEY.
07 DISTRICT-CODE PIC 9(5) VALUE 67660.
07 DISTRICT-ID PIC 9(3) VALUE 920.
07 DISTRICT-NAME PIC X(30)
VALUE 'CHAFFEY DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9007A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 CITRUS.
07 DISTRICT-CODE PIC 9(5) VALUE 64386.
07 DISTRICT-ID PIC 9(3) VALUE 820.
07 DISTRICT-NAME PIC X(30)
VALUE 'CITRUS DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9008A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 DESERT.
07 DISTRICT-CODE PIC 9(5) VALUE 67025.
07 DISTRICT-ID PIC 9(3) VALUE 930.
07 DISTRICT-NAME PIC X(30)
VALUE 'DESERT DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9009A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 COAST-DISTRICT.
07 DISTRICT-CODE PIC 9(5) VALUE 66639.
07 DISTRICT-ID PIC 9(3) VALUE 830.
07 DISTRICT-NAME PIC X(30)
VALUE 'COAST DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9010A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 COMPTON.
07 DISTRICT-CODE PIC 9(5) VALUE 64428.
07 DISTRICT-ID PIC 9(3) VALUE 710.
07 DISTRICT-NAME PIC X(30)
VALUE 'COMPTON DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9011A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 CONTRA-COSTA.
07 DISTRICT-CODE PIC 9(5) VALUE 61689.
07 DISTRICT-ID PIC 9(3) VALUE 310.
07 DISTRICT-NAME PIC X(30)
VALUE 'CONTRA COSTA DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9012A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 EL-CAMINO.
07 DISTRICT-CODE PIC 9(5) VALUE 64493.
07 DISTRICT-ID PIC 9(3) VALUE 720.
07 DISTRICT-NAME PIC X(30)
VALUE 'EL CAMINO DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9013A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 FEATHER-RIVER.
07 DISTRICT-CODE PIC 9(5) VALUE 75143.
07 DISTRICT-ID PIC 9(3) VALUE 120.
07 DISTRICT-NAME PIC X(30)
VALUE 'FEATHER RIVER DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9071A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 FOOTHILL-DISTRICT.
07 DISTRICT-CODE PIC 9(5) VALUE 69443.
07 DISTRICT-ID PIC 9(3) VALUE 420.
07 DISTRICT-NAME PIC X(30)
VALUE 'FOOTHILL DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9014A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 FREMONT-NEWARK.
07 DISTRICT-CODE PIC 9(5) VALUE 61184.
07 DISTRICT-ID PIC 9(3) VALUE 430.
07 DISTRICT-NAME PIC X(30)
VALUE 'FREMONT-NEWARK DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9015A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 GAVILAN.
07 DISTRICT-CODE PIC 9(5) VALUE 69476.
07 DISTRICT-ID PIC 9(3) VALUE 440.
07 DISTRICT-NAME PIC X(30)
VALUE 'GAVILAN DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9016A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 GLENDALE.
07 DISTRICT-CODE PIC 9(5) VALUE 73486.
07 DISTRICT-ID PIC 9(3) VALUE 730.
07 DISTRICT-NAME PIC X(30)
VALUE 'GLENDALE DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9017A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 GROSSMONT.
07 DISTRICT-CODE PIC 9(5) VALUE 68148.
07 DISTRICT-ID PIC 9(3) VALUE 020.
07 DISTRICT-NAME PIC X(30)
VALUE 'GROSSMONT DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9018A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 HARTNELL.
07 DISTRICT-CODE PIC 9(5) VALUE 66043.
07 DISTRICT-ID PIC 9(3) VALUE 450.
07 DISTRICT-NAME PIC X(30)
VALUE 'HARTNELL DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9019A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 IMPERIAL.
07 DISTRICT-CODE PIC 9(5) VALUE 63156.
07 DISTRICT-ID PIC 9(3) VALUE 030.
07 DISTRICT-NAME PIC X(30)
VALUE 'IMPERIAL DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9020A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 KERN-DISTRICT.
07 DISTRICT-CODE PIC 9(5) VALUE 63537.
07 DISTRICT-ID PIC 9(3) VALUE 520.
07 DISTRICT-NAME PIC X(30)
VALUE 'KERN DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9021A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 LAKE-TAHOE.
07 DISTRICT-CODE PIC 9(5) VALUE 73775.
07 DISTRICT-ID PIC 9(3) VALUE 220.
07 DISTRICT-NAME PIC X(30)
VALUE 'LAKE TAHOE DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9022A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 LASSEN.
07 DISTRICT-CODE PIC 9(5) VALUE 64147.
07 DISTRICT-ID PIC 9(3) VALUE 130.
07 DISTRICT-NAME PIC X(30)
VALUE 'LASSEN DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9023A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 LONG-BEACH.
07 DISTRICT-CODE PIC 9(5) VALUE 73494.
07 DISTRICT-ID PIC 9(3) VALUE 840.
07 DISTRICT-NAME PIC X(30)
VALUE 'LONG BEACH DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9024A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE 1.
05 LOS-ANGELES.
07 DISTRICT-CODE PIC 9(5) VALUE 64741.
07 DISTRICT-ID PIC 9(3) VALUE 740.
07 DISTRICT-NAME PIC X(30)
VALUE 'LOS ANGELES DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9025A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 LOS-RIOS.
07 DISTRICT-CODE PIC 9(5) VALUE 67371.
07 DISTRICT-ID PIC 9(3) VALUE 230.
07 DISTRICT-NAME PIC X(30)
VALUE 'LOS RIOS DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9026A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 MARIN-DISTRICT.
07 DISTRICT-CODE PIC 9(5) VALUE 65383.
07 DISTRICT-ID PIC 9(3) VALUE 330.
07 DISTRICT-NAME PIC X(30)
VALUE 'MARIN DISTRICT'.
07 CPEC-DISTRICT-CODE
PIC X(6) VALUE 'C9027A'.
07 SINGLE-COLLEGE-FLAG
PIC 9 VALUE ZERO.
05 MENDOCINO.
07 DISTRICT-CODE PIC 9(5) VALUE 73718.
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.47 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
