Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/SemDesigns/ (Columbo Version 0.7^©) Datei vom 11.6.2008 mit Größe 261 kB

Quelle sample.cob Sprache: Cobol

       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

--> --------------------

quality100%

¤ 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.0.45Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.