Execute System Command (QCMDEXC)

DQCMDEXC          PR                  EXTPGM('QCMDEXC')             
D prCmdStr                   32767A   CONST                         
D prCmdLen                      15P 5 CONST                         

An RPG/LE free-form alternative:

      *========================================================================*
      * IBM API to Execute a System Command
      *
      * EXAMPLE:
      * VarStr = 'DLYJOB DLY(15)';
      * callp IBMAPI_ExecSysCmd(VarStr: %len(VarStr));
      *
      * DOCUMENTATION:
      * http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/topic/apis/qcmdexc.htm
      *========================================================================*
       dcl-pr IBMAPI_ExecSysCmd ExtPgm('QCMDEXC');
         pCmdStr             Char(32702)  Const Options(*Varsize);
         pCmdLen             Packed(15:5) Const;
         pCmdIGC             Char(3)      Const Options(*Nopass);
       end-pr;