create or replace
PROCEDURE showb62_1st_line(
	id_in IN polynomial.pn_key%TYPE
 )
IS
	rtype      string(15);
	value1     string(15);
	value2     string(15);
	value3     string(15);
	value4     string(15);
	value5     string(15);

	CURSOR cr_repeat_pn2 IS
		SELECT  'A [rad/sec]',
			to_char(0,'S0.99999EEEE'),
			to_char(1,'S0.99999EEEE'),
			to_char(lower_bound,'S0.99999EEEE'),
			to_char(upper_bound,'S0.99999EEEE'),
			to_char(max_error,'S0.99999EEEE')
		FROM PN
                WHERE key = id_in;

BEGIN
	DBMS_OUTPUT.enable(1000000);

	IF NOT cr_repeat_pn2%ISOPEN THEN
		OPEN cr_repeat_pn2;
	END IF;

	FETCH cr_repeat_pn2 into rtype, value1, value2, value3, value4, value5;

	DBMS_OUTPUT.PUT_LINE('B062F08     Valid Frequency Units:                 '||rtype);
	DBMS_OUTPUT.PUT_LINE('B062F09     Lower Valid Frequency Bound:          '||value1);
	DBMS_OUTPUT.PUT_LINE('B062F10     Upper Valid Frequency Bound:          '||value2);
	DBMS_OUTPUT.PUT_LINE('B062F11     Lower Bound of Approximation:         '||value3);
	DBMS_OUTPUT.PUT_LINE('B062F12     Upper Bound of Approximation:         '||value4);
	DBMS_OUTPUT.PUT_LINE('B062F13     Maximum Absolute Error:               '||value5);
	close cr_repeat_pn2;
END;
