Versions Compared

Key

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

...

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

Code Block
       DEFINE     FIELD(#CMD) TYPE(*CHAR) LENGTH(200)
L1: REQUEST    FIELDS(#CMD)
    EXEC_OS400 COMMAND(#CMD) IF_ERROR(L1)
    GOTO       LABEL(L1)