SCHEMA NAME IS EDML-ID11.
AREA NAME IS TDB-AREA1 CONTAINS 30 PAGES;
         NUMBER IS 1; INVENTORY PERCENT IS 50;
         JOURNAL IS REQUIRED; FILL PERCENT IS 80;
         OVERFLOW RANGE IS PAGE 29 THRU PAGE 30.
GROUP NAME IS STUHDR; WITHIN TDB-AREA1, RANGE IS PAGE 1 THRU PAGE 1;
         LOCATION MODE IS DIRECT; NUMBER IS 100.
GROUP NAME IS STUDENT; WITHIN TDB-AREA1, RANGE IS PAGE 1 THRU PAGE 10;
         LOCATION MODE IS CALC    USING STUDNUM
         DUPLICATES ARE NOT ALLOWED; NUMBER IS 110.
     STUDNUM; TYPE IS CHARACTER,5.
     STUDNAM; TYPE IS CHARACTER,20.
   INVERT ON STUDNAM; NUMBER IS 500;
         WITHIN TDB-AREA1, RANGE IS PAGE 27 THRU PAGE 28;
         DUPLICATES ARE ALLOWED.
GROUP NAME IS GRADES; WITHIN TDB-AREA1, RANGE IS PAGE 1 THRU PAGE 10;
         LOCATION MODE IS VIA SCRSET SET; NUMBER IS 200.
     GRAD; TYPE IS CHARACTER,1.
GROUP NAME IS COURSE; WITHIN TDB-AREA1, RANGE IS PAGE 11 THRU PAGE 26;
         LOCATION MODE IS INDEXED USING SECTNUM
         NUMBER IS 310.
     SECTNUM; PICTURE 9(4); CHECK IS PICTURE.
     COURNAM; TYPE IS CHARACTER,15.
     UNI; TYPE IS CHARACTER,1.
     DAYS; TYPE IS CHARACTER,6.
     TIME; TYPE IS CHARACTER,8.
     LOCATION;TYPE IS CHARACTER,7.
     INSTRUCTOR; TYPE IS CHARACTER,13.
     CODES; TYPE IS CHARACTER,23.
     DEPT; TYPE IS CHARACTER,1.
     MAXNUM; PICTURE 9; CHECK IS PICTURE.
     CURRNUM; PICTURE 9; CHECK IS PICTURE.
SET NAME IS SHSSET; OWNER IS STUHDR; ORDER IS SORTED.
   MEMBER IS STUDENT; INCLUSION IS AUTOMATIC;
         SET OCCURRENCE SELECTION IS THRU CURRENT OF SET
         ASCENDING KEY IS STUDNAM
         ASCENDING KEY IS STUDNUM
         DUPLICATES ARE NOT ALLOWED.
   MEMBER IS GRADES; INCLUSION IS AUTOMATIC;
         SET OCCURRENCE SELECTION IS THRU CURRENT OF SET.
SET NAME IS CHCSET; OWNER IS AREA TDB-AREA1; ORDER IS SORTED.
   MEMBER IS COURSE; INCLUSION IS AUTOMATIC;
         SET OCCURRENCE SELECTION IS THRU CURRENT OF SET
         ASCENDING KEY IS INSTRUCTOR
         ASCENDING KEY IS SECTNUM
         DUPLICATES ARE NOT ALLOWED.
SET NAME IS CCRSET; OWNER IS COURSE; ORDER IS LAST.
   MEMBER IS GRADES; INCLUSION IS AUTOMATIC; SET OCCURRENCE
         SELECTION IS THRU LOCATION MODE OF OWNER.
END.
SUBSCHEMA NAME IS TDB-SUB OF SCHEMA TDB-SCH;
         COBOL COPY IS TDB-COPY;
         COMPONENTS ARE ALL.
END.
