OL/SQL编程练习

create or replace procedure pr_first is
 
--一个变量
v_a varchar2(30) := '总有一天我的生命将走到尽头';
 
--一个常量
c_b constant varchar2(20) := '而你将加冕为王!';
 
v_xingm t_hq_ryxx.xingm%type;
 
type ty_ry is record
(
v_nianl t_hq_ryxx.nianl%type,
v_gongz number(10,2)
);
 
v_ry ty_ry;
 
v_ryrow t_hq_ryxx%rowtype;
 
begin
 
select xingm into v_xingm from t_hq_ryxx where rownum = 1;
 
dbms_output.put_line('主角是' || v_xingm);
 
select nianl,gongz into v_ry from t_hq_ryxx where rownum = 1;
 
dbms_output.put_line(v_xingm || '的年龄是' || v_ry.v_nianl || ',工资为' || v_ry.v_gongz);
 
select * into v_ryrow from t_hq_ryxx where rownum < 2;
 
dbms_output.put_line('人物:' || v_ryrow.xingm || ',性别:' || v_ryrow.xingb || ',年龄' || v_ryrow.nianl);
 
dbms_output.put_line('国王对阿尔萨斯说:' || v_a || ',' || c_b);
 
end pr_first;

SQL> exec pr_first;
主角是阿尔萨斯
阿尔萨斯的年龄是24,工资为0
人物:希尔瓦纳斯风行者,性别:2,年龄24
国王对阿尔萨斯说:总有一天我的生命将走到尽头,而你将加冕为王!
PL/SQL procedure successfully completed