在DB2和RPG中设置空值

我有一个rpg程序，其中包含一个更新db2表的例程

我已经在程序中声明了一个局部变量

myvar

If <condition>
    %nullind(myvar) = *on

---

如何将X设置为null？

内部定义的字段不能为null，但您可以使用外部描述的数据结构导入表定义并为数据库字段启用null

H ALWNULL(*USRCTL)

D TABLE         E DS                  EXTNAME(TABLE) QUALIFIED

 /FREE
    if <condition>;
        %nullind(table.x) = *on;
    endif;

    exec sql update table
        set x = :table.x
        where <condition>;
 /END-FREE

H ALWNULL（*USRCTL）
D表E DS EXTNAME（表）合格
/免费的
如果；
%nullind（表x）=*on；
endif；
exec sql更新表
set x=：table.x
哪里
/无端

该表是否允许空值？你告诉警察了吗？

H ALWNULL(*USRCTL)

D TABLE         E DS                  EXTNAME(TABLE) QUALIFIED

 /FREE
    if <condition>;
        %nullind(table.x) = *on;
    endif;

    exec sql update table
        set x = :table.x
        where <condition>;
 /END-FREE