Notes

--creating procedure that displays the companies who’s training budget exceeds a specified value, passed in
CREATE OR REPLACE PROCEDURE proc_exp_companies(in_budget companies.training_budget%TYPE) IS
CURSOR cur_training IS
SELECT company_id, company_name, training_budget FROM companies WHERE training_budget>= in_budget;

rec_cur_training cur_training%ROWTYPE;
BEGIN
OPEN cur_training;
FETCH cur_training INTO rec_cur_training;

IF cur_training%NOTFOUND THEN
DBMS_OUTPUT.PUT_LINE('NO SUCH COMPANY FOUND');
ELSE
WHILE cur_training%FOUND LOOP
DBMS_OUTPUT.PUT_LINE(rec_cur_training.company_id||' '||rec_cur_training.company_name||' '||rec_cur_training.training_budget);
FETCH cur_training INTO rec_cur_training;

END LOOP;
END IF;
END proc_exp_companies;
/
SHOW ERRORS
--PROCEDURE CREATED

--TESTING
SELECT company_id, company_name, training_budget FROM companies;

--EXECUTING
EXEC proc_exp_companies(33000);
--DISPLAYED
EXEC proc_exp_companies(9999900);
--NO SUCH COMPANY DISPLAYED