Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/exec_os400_e.htm]
現在地:

...

7.56.3 EXEC_OS400 の使用例

例1:プログラムQCMDEXCから実行可能なIBM 例1:プログラムQCMDEXCから実行可能なIBM i オペレーティング・システム・コマンドを実行し、コマンドが無効かエラーを含んでいても異常終了しないRDMLプログラムを作成します。
    DEFINE     FIELD

Code Block
     DEFINE     FIELD(#CMD)

...

 TYPE(*CHAR)

...

 LENGTH(200)
L1:

...

 REQUEST    FIELDS(#CMD)

...


    EXEC_OS400 COMMAND(#CMD)

...

 IF_ERROR(L1)

...


    GOTO       LABEL(L1)

...