       IDENTIFICATION DIVISION.
       PROGRAM-ID. CREATE-DATABASE-1.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. SIGMA-7.
       OBJECT-COMPUTER. SIGMA-7.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT COUFIL ASSIGN TO DISC.
           SELECT STUFIL ASSIGN TO DISC.
           SELECT GRAFIL ASSIGN TO DISC.
       DATA DIVISION.
       FILE SECTION.
       FD  COUFIL  LABEL RECORD OMITTED.
       01  COUREC.
           02  SECTNO              PIC 9(4).
           02  COUNM               PIC X(15).
           02  UN                  PIC 9.
           02  DA                  PIC X(6).
           02  TI                  PIC X(8).
           02  LOC                 PIC X(7).
           02  INST                PIC X(13).
           02  CODES               PIC X(23).
           02  DEP                 PIC X.
           02  FILLER              PIC XX.
       FD  STUFIL  LABEL RECORD OMITTED.
       01  STUREC.
           02  STUNO               PIC 9(5).
           02  STUNA               PIC X(20).
           02  SECNO               PIC X(4) OCCURS 5 TIMES
                                   INDEXED BY CNT.
           02  FILLER              PIC X(35).
       FD  GRAFIL  LABEL RECORD OMITTED.
       01  GRAREC.
           02  STUNUM              PIC 9(5).
           02  SECNUM              PIC 9(4).
           02  GRA                 PIC X.
           02  FILLER              PIC X(70).
       WORKING-STORAGE SECTION.
       77  SEVTEEN COMP VALUE 17.
       01  DATAAREA COPY COBCPY.
       PROCEDURE DIVISION.
       OPEN-PAR.
           OPEN INPUT COUFIL,STUFIL,GRAFIL.
           ENTER CREATE,REF-CODE,AREA1.
           ENTER SETERR,DISPERR.
           ENTER SETERR,WRONGVAL,SEVTEEN.
       STORE-DIRECT.
           MOVE 16777472 TO REF-CODE.
           ENTER STORE,STUHDR.
       READ-COUR.
           READ COUFIL AT END GO TO READ-STU.
           MOVE COUREC TO COURSE.
           MOVE 6 TO MAXNUM.
           MOVE 0 TO CURRNUM.
           ENTER STORE,COURSE.
           GO TO READ-COUR.
       READ-STU.
           MOVE 16777474 TO REF-CODE.
           ENTER FINDD.
           MOVE ZERO TO GRAD.
       READ-NEXT.
           READ STUFIL AT END GO TO READ-GRAD.
           MOVE STUNO TO STUDNUM.
           MOVE STUNA TO STUDNAM.
           ENTER STORE,STUDENT.
           SET CNT TO 1.
       STOR-NEXT.
           MOVE SECNO(CNT) TO SECTNUM.
           IF SECNO(CNT) EQUAL TO SPACES GO TO READ-NEXT.
           ENTER STORE,GRADES.
           ENTER GET,COURSE,CURRNUM.
           ADD 1 TO CURRNUM.
           ENTER MODIFY,COURSE,CURRNUM.
           SET CNT UP BY 1.
           GO TO STOR-NEXT.
       READ-GRAD.
           READ GRAFIL AT END GO TO CLOSE-FILES.
           MOVE STUNUM TO STUDNUM.
           ENTER FINDG,STUDENT.
       FINDG-SEC.
           ENTER FINDN,SCRSET.
           IF GRP-NO EQUAL TO 110 GO TO DISPERR.
           ENTER HEAD,CCRSET.
           IF SECNUM NOT EQUAL TO SECTNUM GO TO FINDG-SEC.
           MOVE GRA TO GRAD.
           ENTER MODIFY,GRADES.
           GO TO READ-GRAD.
       CLOSE-FILES.
           CLOSE COUFIL,STUFIL,GRAFIL.
           ENTER CLOSEDB.
       DISP.
           DISPLAY 'LOAD COMPLETE' UPON PRINTER.

       DISPERR.
           DISPLAY REF-CODE UPON PRINTER.
           DISPLAY ERR-CODE UPON PRINTER.
           DISPLAY ERR-NO UPON PRINTER.
           DISPLAY ERR-REF UPON PRINTER.
           STOP RUN.
           PERFORM CLOSE-FILES.
           STOP RUN.
       WRONGVAL.
           DISPLAY ERR-CODE,SPACE,COURSE UPON PRINTER.
           ENTER DMSRETRN.

