7.56.3 EXEC_OS400 Example

Example 1: Write an RDML program that will execute any IBM i operating system command that can be executed via program QCMDEXC, and that will not abort if the command is invalid or contains errors:


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