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)