SET serveroutput ON
ACCEPT pid PROMPT 'Digite o codigo do curso: '
DECLARE
vpreco  tcursos.preco%type;
BEGIN
SELECT  preco
INTO    vpreco
FROM    tcursos
WHERE   id = &pid;
DBMS_OUTPUT.PUT_LINE('Preço = ' || to_char(vpreco, 'L99G999G999D99'));
EXCEPTION
  WHEN NO_DATA_FOUND THEN
       RAISE_APPLICATION_ERROR(-20001, 'Código do curso inválido');
END;