Live ORACLE

DECLARE
v_sqlerrm VARCHAR2(64);
SUBTYPE pinteger IS PLS_INTEGER RANGE -9 .. 9;
y_axis pinteger;
PROCEDURE p (x IN pinteger) IS
BEGIN DBMS_OUTPUT.PUT_LINE (x); END p;
BEGIN
y_axis := 9; -- valid, in range
p(10); -- invalid for procedure p
EXCEPTION
WHEN OTHERS THEN
v_sqlerrm := SUBSTR(SQLERRM, 1, 64);
DBMS_OUTPUT.PUT_LINE('Error: ' || v_sqlerrm);
END;
/

Using Ranges With Subtypes