【PL/SQL】レコード型の定義を柔軟に扱いたい

Question

実現したいこと

レコード型で定義した項目のうち、
kaisyano,buno,kanoを一括りに処理をしたい。
毎回、kaisyano=・・・、buno=・・・、kano・・・・と打つのではなく。

TYPE T_EMPLOYEE IS RECORD(  
　  id NUMBER(3,0),
　  kaisyano NUMBER(3,0),
　  buno NUMBER(3,0),
　  kano NUMBER(3,0),
　  address VARCHAR2(20)
);
V_EMPLOYEE T_EMPLOYEE;

試したこと

1. まとめて扱いたい箇所を、レコード型で定義したあと、全体をレコード定義

※カーソル定義の変数としても扱っているため、型が合わないとエラーになりました。

TYPE T_EMPLOYEE IS RECORD(  
　  id NUMBER(3,0),
　  v_kaisya t_kaisya,
　  address VARCHAR2(20)
);

TYPE T_KAISYA IS RECORD(  
　  kaisyano NUMBER(3,0),
　  buno NUMBER(3,0),
　  kano NUMBER(3,0),
);

2)まとめて扱いたい項目は①文字列や、②配列では定義出来ている。
以下の部品をうまく使って実現出来ないか試案中。

　①文字列
V_KAISYA := 'kaisyano','buno','kano';
②配列
kaisya[0]:='kaisyano';
kaisya[1]:='buno';
kaisya[2]:='kano';

補足情報（FW/ツールのバージョンなど）

Oracle database 12c

Comments

[Orlofsky]

質問は修正できます。
この掲示板ではコードは Markdownの[コード]を使ってください。
https://teratail.com/help/question-tips#questionTips37

[Orlofsky]

ローマ字表はヘボン式を使っては？
https://www.pref.kanagawa.jp/osirase/02/2315/hepburn.html

Answer 1

正直何をしたいのかよくわかりませんが、例えばクエリの結果セットのレコードにメンバを1つ追加した新しいレコードを宣言し、そのレコード型の変数にそのクエリのレコードを入れるコードは以下のようになります(sqlplus想定)

set serveroutput on;
create table persons(
  id number primary key,
  family_name varchar2(100),
  first_name varchar2(100)
);
insert into persons values(1, '山田', '太郎');
insert into persons values(2, '田中', '花子');
commit;
select * from persons;
create or replace procedure hoge
is
    cursor cur is
        select * from persons;
    type person_with_comments is record (
        person cur%ROWTYPE,
        comments varchar2(1000)
    );
    rec person_with_comments;
begin
    open cur();
    loop
        fetch cur into rec.person;
        exit when cur%NOTFOUND;
        rec.comments := 'ほげ';
        dbms_output.put_line(rec.person.family_name || ' ' || rec.person.first_name || '<-' || rec.comments);
    end loop;
    close cur;
end;
/
call hoge();

Answer 2

質問をそのまま読み解くと以外のようにしたいと解釈しました。
但し、これが柔軟かと問われると私自身ハテナです。

なお、カーソル定義のエラー云々は読み飛ばしています。

declare
  type rtype1 is record (
     hoge number default 1
    ,fuga number default 2
  );
  type rtype2 is record (
     foo number default 10
    ,bar rtype1
  );
  --
  rec rtype2;
begin
  dbms_output.put_line(rec.foo);
  dbms_output.put_line(rec.bar.hoge);
  dbms_output.put_line(rec.bar.fuga);
end;

Comments

[XiiTuzi]

質問に至った背景を記載頂ければ、全く異なるアプローチでの回答も可能になるかもしれません。

[kaiji24]

拙い説明で申し訳ありません。１で述べたとおり、
hoge,fuga,fooを上記のように、分割して定義するとテーブルの型と一致しないというエラーとなるため困っています。もともと、hoge,fuga,fooという３項目で構成されるテーブルのSELECT結果が代入されるのですが、
ひとつのレコードでhoge,fuga,fooを定義していればエラーとなりませんが、fooとfuga,fooをわけて定義すると型不一致エラーとなります。

[XiiTuzi]

@kaiji24
つまり、回答のような定義をした際にカーソルループでエラーが発生する事について困っているのでしょうか？

追記
回答のソースに対して、適当なカーソルループで値を代入する処理を追加しましたが、エラーは発生しませんでした。

Answer 3

定義した値を柔軟に、操作したい。

以下参考
5.1 コレクション・データ型
9.4 コレクションの設計上の考慮点