ACCEPT pv_text PROMPT 'Enter the character to be tested: ';

DECLARE
  xx NUMBER(8);
BEGIN
  xx := ascii('&pv_text');
  dbms_OUTPUT.put_line(xx);
END;
/