CloneSet4


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
821210.999record_or_data_item_entry_list[2]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
18211103
CCCC2.COB
28211080
CCCC3.COB
Clone Instance
1
Line Count
821
Source Line
1103
Source File
CCCC2.COB

       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 'OTHER'.
                   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 ZEROS.
                       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.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 140.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MENDOCINO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9028A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MERCED.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 65797.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 530.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MERCED DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9029A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MIRA-COSTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68247.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 050.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MIRA COSTA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9030A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MONTEREY-PENINSULA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66100.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 460.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MONTEREY PENINSULA DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9031A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MT-SAN-ANTONIO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64824.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 850.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MT. SAN ANTONIO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9032A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MT-SAN-JACINTO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67132.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 940.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MT. SAN JACINTO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9033A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  NAPA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66274.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 240.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'NAPA VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9034A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  NORTH-ORANGE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66605.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 860.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'NORTH ORANGE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9035A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  PALOMAR.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68270.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 060.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PALOMAR DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9037A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PALO-VERDE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73510.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 950.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PALO VERDE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9036A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PASADENA-AREA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64899.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 770.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PASADENA AREA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9038A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PERALTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 61267.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 340.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PERALTA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9039A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  RANCHO-SANTIAGO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66688.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 870.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RANCHO SANTIAGO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9040A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  REDWOODS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62992.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 160.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'REDWOODS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9041A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  RIO-HONDO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64923.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 880.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RIO HONDO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9042A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  RIVERSIDE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67223.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 960.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RIVERSIDE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9043A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOUTH-ORANGE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66654.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 890.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOUTH ORANGE COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9044A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-BERNARDINO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67884.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 980.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN BERNARDINO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9045A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-DIEGO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73528.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 070.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN DIEGO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9046A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-FRANCISCO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73536.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 360.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN FRANCISCO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9047A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-JOAQUIN-DELTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68668.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 550.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN JOAQUIN DELTA DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9048A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SAN-JOSE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69658.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 470.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN JOSE/EVERGREEN DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9049A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-LUIS-OBISPO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68817.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 640.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN LUIS OBISPO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9050A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SAN-MATEO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69054.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 370.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN MATEO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9051A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SANTA-BARBARA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69294.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 650.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA BARBARA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9052A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SANTA-CLARITA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64972.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 660.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA CLARITA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9053A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SANTA-MONICA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73502.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 780.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA MONICA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9054A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SEQUOIAS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72124.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 560.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SEQUOIAS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9055A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SHASTA-TE-TR.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70144.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 170.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SHASTA-TE-TR DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9056A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SIERRA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66936.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 270.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SIERRA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9057A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SISKIYOU.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70474.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 180.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SISKIYOU DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9058A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOLAN0-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70557.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 280.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOLANO COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9059A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SONOMA-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70946.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 260.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SONOMA COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9060A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOUTH-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 61317.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 480.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'CHABOT-LAS POSITAS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9061A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  STATE-CENTER.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62463.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 570.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'STATE CENTER DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9062A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SOUTHWESTERN.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68429.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 090.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOUTHWESTERN DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9063A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  VENTURA-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72660.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 680.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'VENTURA COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9064A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  VICTOR-VALLEY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67926.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 990.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'VICTOR VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9065A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-HILLS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62133.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 580.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST HILLS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9066A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-KERN.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 63867.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 690.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST KERN DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9067A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-VALLEY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69716.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 490.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9068A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  YOSEMITE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 71340.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 590.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'YOSEMITE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9069A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  YUBA-DISTRICT.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72777.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 290.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'YUBA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9070A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
           03  DISTRICT-CODE-ENTRY
                       REDEFINES DISTRICT-CODE-VALUES
                       OCCURS 71 TIMES
                       INDEXED BY DISTRICT-CODE-INDEX.
               05  DISTRICT-CODE       PIC 9(5).
               05  DISTRICT-ID         PIC 9(3).
               05  DISTRICT-NAME       PIC X(30).
               05  CPEC-DISTRICT-CODE  PIC X(6).
               05  SINGLE-COLLEGE-FLAG PIC 9.
                   88  SINGLE-COLLEGE-DISTRICT    VALUE 1.


Clone Instance
2
Line Count
821
Source Line
1080
Source File
CCCC3.COB

      *
      *
       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 ZEROS.
                       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 'OTHER'.
                   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 ZEROS.
                       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-CODE-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.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 140.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MENDOCINO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9028A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MERCED.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 65797.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 530.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MERCED DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9029A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MIRA-COSTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68247.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 050.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MIRA COSTA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9030A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MONTEREY-PENINSULA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66100.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 460.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MONTEREY PENINSULA DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9031A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MT-SAN-ANTONIO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64824.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 850.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MT. SAN ANTONIO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9032A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  MT-SAN-JACINTO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67132.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 940.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'MT. SAN JACINTO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9033A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  NAPA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66274.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 240.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'NAPA VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9034A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  NORTH-ORANGE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66605.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 860.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'NORTH ORANGE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9035A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  PALOMAR.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68270.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 060.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PALOMAR DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9037A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PALO-VERDE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73510.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 950.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PALO VERDE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9036A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PASADENA-AREA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64899.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 770.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PASADENA AREA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9038A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  PERALTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 61267.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 340.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'PERALTA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9039A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  RANCHO-SANTIAGO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66688.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 870.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RANCHO SANTIAGO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9040A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  REDWOODS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62992.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 160.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'REDWOODS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9041A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  RIO-HONDO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64923.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 880.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RIO HONDO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9042A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  RIVERSIDE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67223.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 960.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'RIVERSIDE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9043A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOUTH-ORANGE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66654.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 890.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOUTH ORANGE COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9044A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-BERNARDINO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67884.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 980.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN BERNARDINO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9045A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-DIEGO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73528.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 070.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN DIEGO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9046A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-FRANCISCO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73536.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 360.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN FRANCISCO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9047A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-JOAQUIN-DELTA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68668.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 550.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN JOAQUIN DELTA DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9048A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SAN-JOSE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69658.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 470.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN JOSE/EVERGREEN DIST'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9049A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SAN-LUIS-OBISPO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68817.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 640.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN LUIS OBISPO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9050A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SAN-MATEO.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69054.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 370.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SAN MATEO DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9051A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SANTA-BARBARA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69294.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 650.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA BARBARA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9052A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SANTA-CLARITA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 64972.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 660.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA CLARITA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9053A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SANTA-MONICA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 73502.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 780.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SANTA MONICA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9054A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SEQUOIAS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72124.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 560.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SEQUOIAS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9055A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SHASTA-TE-TR.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70144.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 170.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SHASTA-TE-TR DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9056A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SIERRA.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 66936.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 270.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SIERRA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9057A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SISKIYOU.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70474.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 180.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SISKIYOU DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9058A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOLAN0-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70557.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 280.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOLANO COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9059A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SONOMA-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 70946.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 260.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SONOMA COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9060A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  SOUTH-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 61317.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 480.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'CHABOT-LAS POSITAS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9061A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  STATE-CENTER.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62463.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 570.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'STATE CENTER DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9062A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  SOUTHWESTERN.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 68429.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 090.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'SOUTHWESTERN DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9063A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  VENTURA-COUNTY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72660.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 680.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'VENTURA COUNTY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9064A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  VICTOR-VALLEY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 67926.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 990.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'VICTOR VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9065A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-HILLS.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 62133.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 580.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST HILLS DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9066A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-KERN.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 63867.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 690.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST KERN DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9067A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
               05  WEST-VALLEY.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 69716.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 490.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'WEST VALLEY DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9068A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  YOSEMITE.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 71340.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 590.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'YOSEMITE DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9069A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE ZERO.
               05  YUBA-DISTRICT.
                   07  DISTRICT-CODE   PIC 9(5)   VALUE 72777.
                   07  DISTRICT-ID     PIC 9(3)   VALUE 290.
                   07  DISTRICT-NAME   PIC X(30)
                           VALUE 'YUBA DISTRICT'.
                   07  CPEC-DISTRICT-CODE
                                       PIC X(6)   VALUE 'C9070A'.
                   07  SINGLE-COLLEGE-FLAG
                                       PIC 9      VALUE 1.
           03  DISTRICT-CODE-ENTRY
                       REDEFINES DISTRICT-CODE-VALUES
                       OCCURS 71 TIMES
                       INDEXED BY DISTRICT-CODE-INDEX.
               05  DISTRICT-CODE       PIC 9(5).
               05  DISTRICT-ID         PIC 9(3).
               05  DISTRICT-NAME       PIC X(30).
               05  CPEC-DISTRICT-CODE  PIC X(6).
               05  SINGLE-COLLEGE-FLAG PIC 9.
                   88  SINGLE-COLLEGE-DISTRICT    VALUE 1.


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      *
       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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 ZEROS.
                    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 'OTHER'.
                 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 ZEROS.
                    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   [[#22ae8cc0]].
      *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                             *
      *            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.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 140.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MENDOCINO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9028A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 MERCED.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 65797.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 530.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MERCED DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9029A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 MIRA-COSTA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 68247.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 050.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MIRA COSTA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9030A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 MONTEREY-PENINSULA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66100.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 460.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MONTEREY PENINSULA DIST'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9031A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 MT-SAN-ANTONIO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 64824.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 850.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MT. SAN ANTONIO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9032A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 MT-SAN-JACINTO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 67132.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 940.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'MT. SAN JACINTO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9033A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 NAPA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66274.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 240.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'NAPA VALLEY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9034A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 NORTH-ORANGE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66605.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 860.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'NORTH ORANGE DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9035A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 PALOMAR.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 68270.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 060.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'PALOMAR DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9037A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 PALO-VERDE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 73510.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 950.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'PALO VERDE DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9036A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 PASADENA-AREA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 64899.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 770.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'PASADENA AREA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9038A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 PERALTA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 61267.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 340.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'PERALTA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9039A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 RANCHO-SANTIAGO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66688.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 870.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'RANCHO SANTIAGO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9040A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 REDWOODS.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 62992.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 160.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'REDWOODS DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9041A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 RIO-HONDO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 64923.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 880.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'RIO HONDO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9042A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 RIVERSIDE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 67223.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 960.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'RIVERSIDE DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9043A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SOUTH-ORANGE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66654.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 890.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SOUTH ORANGE COUNTY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9044A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SAN-BERNARDINO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 67884.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 980.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN BERNARDINO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9045A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SAN-DIEGO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 73528.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 070.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN DIEGO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9046A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SAN-FRANCISCO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 73536.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 360.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN FRANCISCO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9047A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SAN-JOAQUIN-DELTA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 68668.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 550.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN JOAQUIN DELTA DIST'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9048A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SAN-JOSE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 69658.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 470.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN JOSE/EVERGREEN DIST'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9049A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SAN-LUIS-OBISPO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 68817.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 640.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN LUIS OBISPO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9050A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SAN-MATEO.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 69054.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 370.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SAN MATEO DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9051A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SANTA-BARBARA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 69294.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 650.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SANTA BARBARA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9052A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SANTA-CLARITA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 64972.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 660.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SANTA CLARITA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9053A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SANTA-MONICA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 73502.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 780.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SANTA MONICA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9054A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SEQUOIAS.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 72124.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 560.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SEQUOIAS DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9055A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SHASTA-TE-TR.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 70144.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 170.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SHASTA-TE-TR DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9056A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SIERRA.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 66936.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 270.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SIERRA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9057A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SISKIYOU.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 70474.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 180.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SISKIYOU DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9058A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SOLAN0-COUNTY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 70557.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 280.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SOLANO COUNTY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9059A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SONOMA-COUNTY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 70946.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 260.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SONOMA COUNTY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9060A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 SOUTH-COUNTY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 61317.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 480.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'CHABOT-LAS POSITAS DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9061A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 STATE-CENTER.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 62463.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 570.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'STATE CENTER DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9062A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 SOUTHWESTERN.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 68429.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 090.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'SOUTHWESTERN DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9063A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 VENTURA-COUNTY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 72660.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 680.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'VENTURA COUNTY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9064A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 VICTOR-VALLEY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 67926.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 990.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'VICTOR VALLEY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9065A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 WEST-HILLS.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 62133.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 580.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'WEST HILLS DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9066A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 WEST-KERN.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 63867.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 690.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'WEST KERN DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9067A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
              05 WEST-VALLEY.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 69716.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 490.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'WEST VALLEY DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9068A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 YOSEMITE.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 71340.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 590.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'YOSEMITE DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9069A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE ZERO.
              05 YUBA-DISTRICT.
                 07 DISTRICT-CODE
                    PIC 9(5)
                    VALUE 72777.
                 07 DISTRICT-ID
                    PIC 9(3)
                    VALUE 290.
                 07 DISTRICT-NAME
                    PIC X(30)
                    VALUE 'YUBA DISTRICT'.
                 07 CPEC-DISTRICT-CODE
                    PIC X(6)
                    VALUE 'C9070A'.
                 07 SINGLE-COLLEGE-FLAG
                    PIC 9
                    VALUE 1.
           03 DISTRICT-CODE-ENTRY
              REDEFINES DISTRICT-CODE-VALUES
              OCCURS 71 TIMES
                INDEXED
                BY
                  DISTRICT-CODE-INDEX.
              05 DISTRICT-CODE
                 PIC 9(5).
              05 DISTRICT-ID
                 PIC 9(3).
              05 DISTRICT-NAME
                 PIC X(30).
              05 CPEC-DISTRICT-CODE
                 PIC X(6).
              05 SINGLE-COLLEGE-FLAG
                 PIC 9.
                 88 SINGLE-COLLEGE-DISTRICT
                    VALUE 1.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22ae8cc0]]
       DISTRICT-CODE-TABLE 
12[[#22ae8cc0]]
       DISTRICT-CODES-TABLE