pl/sql学习2——pl/sql记录

CREATE OR REPLACE

PROCEDURE PR_RECORD_VARIABLE
AS
BEGIN
DECLARE/*pl/sql记录*/
type V_RECORD IS  RECORD(
no DEPT.DEPTNO%type,
name DEPT.DNAME%type,
LOCC DEPT.LOC%type
);
V_DEPT_RECORD V_RECORD;
V_DEPT_RECORD1 DEPT%ROWTYPE;--可以用表来定义
CURSOR DEPT_CUR
IS --声明游标
SELECT deptno,dname,loc FROM dept;
BEGIN
SELECT DEPTNO,DNAME,LOC INTO V_DEPT_RECORD FROM DEPT WHERE rownum=1;
DBMS_OUTPUT.PUT_LINE('编码：'||V_DEPT_RECORD.no||';名称：'||V_DEPT_RECORD.name||'；地址：'||V_DEPT_RECORD.locc);
SELECT DEPTNO,DNAME,LOC INTO V_DEPT_RECORD1 FROM DEPT WHERE rownum=1;
DBMS_OUTPUT.PUT_LINE('编码：'||V_DEPT_RECORD1.DEPTNO||';名称：'||V_DEPT_RECORD1.DNAME||'；地址：'||V_DEPT_RECORD1.LOC);
OPEN dept_cur;
LOOP
FETCH DEPT_CUR INTO V_DEPT_RECORD; --将游标的内容插入到游标记录变量中
DBMS_OUTPUT.PUT_LINE('编码：'||V_DEPT_RECORD.no||';名称：'||V_DEPT_RECORD.name||'；地址：'||V_DEPT_RECORD.locc);
EXIT
WHEN dept_cur%NOTFOUND;
END LOOP;
CLOSE dept_cur;
END;
END PR_RECORD_VARIABLE;