* Copyright © Oracle Corporation 1995.  All Rights Reserved.
IDENTIFICATION DIVISION.
PROGRAM-ID. sql$insert_degrees_program.
*************************************************************
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.        VAX-11.
OBJECT-COMPUTER.        VAX-11.
**************************************************************
DATA DIVISION.
WORKING-STORAGE SECTION.
* Local variables.
01  DISPLAY-VARS.
    02  L1              PIC 99 VALUE IS 1.
    02  COLNUM          PIC 99 VALUE IS 10.
* For OPTION selection.
01 OPTION               PIC X.
01 INPUT-VARS.
   02  ANSYES           PIC X(1) VALUE IS "Y".
   02  ANSNO            PIC X(1) VALUE IS "N".
* For user-input information.
   02  ID-NUMBER        PIC X(5)  VALUE IS SPACES.

01  SQLCODE                             PIC S9(9) COMP.
01  SS-RESULT                           PIC S9(5) COMP.

01    p_employee_id   PIC X(5).
01    p_college_code  PIC X(4).
01    p_year_given    PIC S9(4) COMP.
01    p_degree        PIC X(3).
01    p_degree_field  PIC X(15).



PROCEDURE DIVISION.
MAIN-SECTION.

START-PERFORMS.
* See if user wants to continue. Keep asking til N or n.
    PERFORM DISPLAY-GET-OPTION UNTIL OPTION = ANSNO
            OR OPTION = "n".
    IF OPTION EQUAL ANSNO OR OPTION EQUAL "n"
    THEN
       STOP RUN
    ELSE
       MOVE SPACES TO OPTION.

       GO TO START-PERFORMS.

DISPLAY-GET-OPTION.
* Say what program will do.
    DISPLAY "" LINE 1 COLUMN 1 ERASE SCREEN.
    DISPLAY "Insert data into Degrees table" BOLD LINE L1 PLUS COLUMN 22.
    DISPLAY "" LINE L1 PLUS 2 COLUMN 1 ERASE LINE.
    DISPLAY "This program inserts"LINE
            L1 PLUS 3 COLUMN 1.
    DISPLAY "data into the Degrees table" LINE
            L1 PLUS 4 COLUMN 1.
    DISPLAY "of the Personnel sample database." LINE L1 PLUS 5 COLUMN 1.
    DISPLAY "" LINE L1 PLUS 6 COLUMN 1 ERASE LINE.
    DISPLAY "Do you wish to continue?...(Y or N)" LINE L1 PLUS 7 COLUMN 1.
    ACCEPT OPTION PROTECTED REVERSED LINE L1 PLUS 7 COLUMN 36.
    EVALUATE OPTION
             WHEN ANSYES perform do-insert
             WHEN "y" PERFORM do-insert
    END-EVALUATE.

DO-INSERT. 
    DISPLAY "Employee Id:" LINE L1 PLUS 9 COLUMN 1.
        ACCEPT p_employee_id PROTECTED REVERSED LINE L1 PLUS 9 COLUMN 20.
    DISPLAY "College code:" LINE L1 PLUS 10 COLUMN 1.
        ACCEPT p_college_code PROTECTED REVERSED LINE L1 PLUS 10 COLUMN 20.
    DISPLAY "Year given:" LINE L1 PLUS 11 COLUMN 1.
       ACCEPT p_year_given PROTECTED REVERSED WITH CONVERSION 
*         Note the "WITH CONVERSION" (Entering numbers; datatype 
*         of P_YEAR_GIVEN is PIC S9(4) COMP.)
          LINE L1 PLUS 11 COLUMN 20.
    DISPLAY "Degree:" LINE L1 PLUS 12 COLUMN 1.
        ACCEPT p_degree PROTECTED REVERSED LINE L1 PLUS 12 COLUMN 20.
    DISPLAY "Degree field:" LINE L1 PLUS 13 COLUMN 1.
        ACCEPT p_degree_field PROTECTED REVERSED LINE L1 PLUS 13 COLUMN 20.
    CALL "start_trans" USING SQLCODE.
    call "insert_degrees" using sqlcode, p_employee_id, p_college_code,
        p_year_given, p_degree, p_degree_field.
    CALL "commit" USING SQLCODE.