CREATE OR REPLACE
PROCEDURE TEST_RECORD
AS
TYPE user_record_type IS RECORD(
id users.id%TYPE,
login_id users.login_id%TYPE,
name users.name%TYPE);
u_r_t user_record_type;
BEGIN
FOR recd IN (SELECT * FROM users) LOOP
SELECT id,login_id,name INTO u_r_t FROM users WHERE id=recd.id;
dbms_output.put_line('ID: '||u_r_t.id ||', LOGIN_ID: '||u_r_t.login_id||', NAME: '||u_r_t.name);
END LOOP;
NULL;
END;