PL/SQLタイプ使用

--%Type   
names D401.D401_02%TYPE;

--%RowType   
DECLARE
  userInfo D401%ROWTYPE;
BEGIN
  SELECT * INTO userInfo FROM d401 WHERE d401_02 = 'ss ;
  dbms_output.put_line(userInfo.d401_02);
END;

--Record   
DECLARE
TYPE dType IS RECORD(
     a varchar2(20),
     b varchar2(20),
     c varchar2(20));
adress_record dType;
BEGIN
   SELECT d3.d301_01,d3.d301_03,d3.d301_04 INTO adress_record FROM d301 d3 WHERE d301_01 = '1059637';
   dbms_output.put_line(adress_record.a);
   dbms_output.put_line(adress_record.b);
   dbms_output.put_line(adress_record.c);
END;