Page History

...

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

    * コミット制御の設定

     CHANGE 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 コマンドを実行
    CHANGE FIELD(#COLCMD) TO('SELECT ID,NAME,AGE,SALARY')
    ADD_ENTRY TO_LIST(#WRKCMD)
    CHANGE FIELD(#COLCMD) TO('FROM TBLNAME')
    ADD_ENTRY TO_LIST(#WRKCMD)
    CHANGE FIELD(#JSMCMD) TO('SET PARAMETER(*SQL) SERVICE_LIST(COLCMD)')
    USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG #WRKCMD)

...

RDMLX

    * JSM コマンド関連フィールドの定義

     Define Define Field(#JSMSTS) Type(*Char) Length(020)
    Define Field(#JSMMSG) Type(*Char) Length(256)
    Define Field(#JSMCMD) Type(*Char) Length(256)
    Define Field(#JSMHND) Type(*Char) Length(4)

...