Page History

Versions Compared

...

    * SQL コマンドを保持するリストとフィールドの定義
    DEFINE FIELD(#COLCMD) TYPE(*CHAR) LENGTH(100)
    DEF_LIST NAME(#WRKCMD) FIELDS(#COLCMD) TYPE(*WORKING)

    * コミット制御の設定

    CHANGE FIELD(#JSMCMD) TO('SET ISOLATION(*READCOMMITTED) AUTOCOMMIT(*NO) ONERROR(*ROLLBACK) ONWARNING(*CONTINUE)')

    USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)

    * SQL ステートメントをリストに設定して、SET コマンドを実行

...

   Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG)

    * SQL ステートメントを構築し、SET コマンドを実行

...