Oracle PL/SQL能否基于游标动态设置%ROWTYPE对象列值

Oracle 19c（包括截至2024年最新的23c版本）的原生静态%ROWTYPE类型不支持通过字符串形式的字段名直接动态访问、赋值成员属性，你期望的critter_rec[default_rec.column_name] := default_rec.column_value这类数组式字段访问语法在PL/SQL中没有原生支持，不需要再排查新版本特性。
本质原因是PL/SQL的静态记录类型（含%ROWTYPE、自定义RECORD）的结构是编译期固定解析的，运行时不会维护「字段名-成员内存地址」的映射关系，无法直接通过运行时生成的字段名字符串定位到对应成员。

针对你60个配置字段走默认值表、剩余30个字段需要写独立业务逻辑的场景，不需要硬套全动态方案，下面给维护成本最低的实现方式：

核心思路是把默认值表中读取到的字段、值拼成一段PL/SQL赋值脚本，绑定你的%ROWTYPE对象一次性完成所有配置字段的赋值，剩下需要单独写逻辑的字段依然用原生静态写法即可，完全不需要维护大段CASE分支。
改写完的存储过程示例：

create or replace procedure build_defaults(critter_type varchar2)
as
  critter_rec my_critters%rowtype;
  v_dyn_plsql clob;
  v_col_exists number;
  cursor curs_defaults is
    select column_name, column_value 
    from test_defaults 
    where default_type = critter_type;
begin
  -- 初始化记录，给非配置驱动的固定字段先赋值
  critter_rec := null;
  critter_rec.my_type := critter_type;

  -- 拼接动态赋值块
  v_dyn_plsql := 'begin ';
  for default_rec in curs_defaults loop
    -- 校验配置的字段名确实是目标表的合法列，避免非法值导致运行时报错
    select count(*) 
      into v_col_exists 
      from user_tab_columns 
     where table_name = 'MY_CRITTERS' 
       and column_name = upper(default_rec.column_name);
    
    if v_col_exists = 1 then
      -- 拼接赋值语句，用DBMS_ASSERT做标识符合法性校验、字符串值转义，避免注入风险
      v_dyn_plsql := v_dyn_plsql 
                  || ':rec.' || dbms_assert.simple_sql_name(default_rec.column_name) 
                  || ' := ' || dbms_assert.enquote_literal(default_rec.column_value) || ';';
    end if;
  end loop;
  v_dyn_plsql := v_dyn_plsql || 'end;';

  -- 执行动态块，一次性完成所有配置字段的赋值
  execute immediate v_dyn_plsql using in out critter_rec;

  -- 👇 后续所有需要独立业务逻辑赋值的字段，保持原有静态写法即可，不需要做任何改动
  -- 示例：
  -- critter_rec.create_time := sysdate;
  -- critter_rec.operator := SYS_CONTEXT('USERENV','SESSION_USER');
  -- ...... 剩余30个字段的业务逻辑保持原来的写法

  insert into my_critters values critter_rec;
end;
/

这个方案的优势：

• 后续默认值配置表新增、修改字段和默认值，完全不需要调整存储过程代码，零维护成本
• 非配置驱动的字段依然用原生静态赋值写法，没有额外的语法学习成本，执行性能和原生静态赋值几乎没有差异
• 自带字段名校验、注入防护，不会因为配置表的脏数据导致核心逻辑报错

如果你的逻辑中赋值完字段后直接执行INSERT，不需要在过程中对记录做中间判断、运算，可以直接拼接INSERT语句，省略操作%ROWTYPE对象的步骤，性能会略高一点：

-- 核心逻辑片段
v_insert_sql clob := 'insert into my_critters(';
v_value_part clob := 'values(';
-- 先拼接配置表的默认值字段
for default_rec in curs_defaults loop
  -- 列名校验逻辑同上
  v_insert_sql := v_insert_sql || dbms_assert.simple_sql_name(default_rec.column_name) || ',';
  v_value_part := v_value_part || dbms_assert.enquote_literal(default_rec.column_value) || ',';
end loop;
-- 拼接业务逻辑赋值的字段
v_insert_sql := v_insert_sql || 'my_type, create_time, operator)';
v_value_part := v_value_part || ':1, :2, :3)';
-- 绑定业务逻辑计算出的变量值执行插入
execute immediate v_insert_sql || v_value_part using critter_type, sysdate, SYS_CONTEXT('USERENV','SESSION_USER');

不要为了实现动态字段访问，把整个逻辑改成用DBMS_SQL逐列操作、或者把所有字段替换为关联数组存储，这类方案会导致你原本需要手写业务逻辑的30个字段的赋值代码变得极其繁琐，整体维护成本反而远高于写CASE分支。

内容的提问来源于stack exchange，提问作者Paul Stearns