7.44.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)