SCHEMA NAME IS EVAL-ID2
   ;PASSWORD IS 'EXPASS'.
AREA NAME IS EVAL-ID4 CONTAINS 20 PAGES
  ; NUMBER IS 1.
AREA NAME IS EVAL-ID5 CONTAINS 40 PAGES
  ; NUMBER IS 2.
GROUP NAME IS DEPT
  ;WITHIN EVAL-ID4 ,RANGE IS PAGE 1 THRU PAGE 1
  ;LOCATION MODE IS DIRECT
  ;NUMBER IS 10.
 DNAME PICTURE IS X(12);TYPE IS CHARACTER,12.
GROUP NAME IS PROF
  ;WITHIN EVAL-ID5 ,RANGE IS PAGE 1 THRU PAGE 20
  ;LOCATION MODE IS CALC USING PNAME DUPLICATES ARE NOT ALLOWED
  ;NUMBER IS 20.
 PNAME PICTURE IS X(20);TYPE IS CHARACTER,20.
 PHONE PICTURE IS X(8);TYPE IS CHARACTER,8.
GROUP NAME IS CRS
  ;WITHIN EVAL-ID4 ,RANGE IS PAGE 15 THRU PAGE 20
  ;LOCATION MODE IS INDEXED USING CNUM,SECTION
  ;NUMBER IS 30.
 CNUM PICTURE IS X(8);TYPE IS CHARACTER,8.
 SECTION PICTURE IS X(4);TYPE IS CHARACTER,4.
 NSTUD ;TYPE IS BINARY.
INVERT ON CNUM
  ;NUMBER IS 40
  ;WITHIN EVAL-ID5 ,RANGE IS PAGE 21 THRU 40
  ;DUPLICATES ARE ALLOWED.
SET NAME IS FACULTY
  ;OWNER IS DEPT
  ;ORDER IS SORTED
  ;LINKED TO PRIOR.
MEMBER      IS PROF
  ;INCLUSION IS OPTIONAL AUTOMATIC
  ;SET OCCURRENCE SELECTION IS THRU CURRENT OF SET
  ;ASCENDING KEY IS PNAME DUPLICATES ARE NOT ALLOWED.
SET NAME IS OFFERS
  ;OWNER IS DEPT
  ;ORDER IS NEXT.
MEMBER      IS CRS
  ;INCLUSION IS OPTIONAL AUTOMATIC
  ;SET OCCURRENCE SELECTION IS  THRU CURRENT OF SET.
SET NAME IS TEACH
  ;OWNER IS PROF
  ;ORDER IS FIRST.
MEMBER      IS CRS
  ;INCLUSION IS OPTIONAL AUTOMATIC
  ;LINKED TO OWNER
  ;SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.
END.
SUBSCHEMA NAME IS EVAL-ID3 OF SCHEMA EVAL-ID2
   ;COBOL COPY IS EXCOPY-2
   ; META SYSTEM IS EXSYS-2
   ;COMPONENTS ARE ALL.
END.
