-- Copyright © Oracle Corporation 1995.  All Rights Reserved.
--
-- Header
module insert_degrees_module
language cobol
authorization rdb$dbhandle
parameter colons

-- DECLARE statements
declare alias for filename 'personnel'

-- Procedure section
procedure insert_degrees
    sqlcode
    :p_employee_id   id_dom
    :p_college_code  college_code_dom
    :p_year_given    year_dom
    :p_degree        degree_dom
    :p_degree_field  degree_field_dom;

  insert into degrees 
        (employee_id, college_code, year_given, degree, degree_field)
      values
        (:p_employee_id, :p_college_code, :p_year_given, :p_degree, :p_degree_field);

procedure start_trans    
    sqlcode;

    set transaction read write;

procedure commit         
    sqlcode;

    commit;