Page History

...

    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)

...