PROCEDURE grade_code

PROCEDURE grade_code IS
    v number;
BEGIN
        if form_success then
         copy('5','system.message_level');
         COMMIT_FORM; next_record;
         message('Data commited!');
         else
             message('Problem in Data ! Check your Data !');
    end if;
END;


-------------------------------------

PROCEDURE grd_code IS
Snm char(40);
BEGIN
begin
  select bu_name into snm
    from board_info
    where bu_cd=:emp_grade.grd_cd;
exception
    when no_data_found
    then
    :grd_nm:=null;
END;
if snm is not null
    then :emp_grade.grd_nm :=snm;
    message('DATA ALREADY INSERTED');
    raise form_trigger_failure;
else
    select lpad(nvl(max(bu_cd),0)+1,3,0) into :GRD_CD from board_info;
    next_field;
end if;
end;