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) 

   * SQL ステートメント用のフォールドとリストを定義

    Define Field(#COLCMD) Type(*Char) Length(020)
    Def_List Name(#WRKCMD) Fields(#COLCMD) Type(*WORKING)

    * コミット制御の設定

    #JSMCMD := 'Set Isolation(*READCOMMITTED) AutoCommit(*NO) OnError(*ROLLBACK) OnWarning(*CONTINUE)'
    Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG)

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

    #COLCMD := 'Select ID,NAME,AGE,SALARY'
    Add_Entry To_List(#WRKCMD)
    #COLCMD := 'From TBLNAME'
    Add_Entry To_List(#WRKCMD)
    #JSMCMD := 'Set Parameter(*SQL) '
    Use Builtin(JSMX_COMMAND) With_Args(#JSMHND #JSMCMD) To_Get(#JSMSTS #JSMMSG #MAPLST)

...