Execute System Command (QCMDEXC)

From MidrangeWiki
Revision as of 15:45, 7 December 2018 by DaveLClarkI (talk | contribs)
Jump to: navigation, search

Summary

For more information on this API, visit Execute Command (QCMDEXC) API (right-click to open link in a new tab).

Prototype for the QCMDEXC API

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:
      * Monitor;
      *   VarStr = 'DLYJOB DLY(15)';
      *   CallP IBMAPI_ExecSysCmd(VarStr: %len(VarStr));
      * On-Error *All;
      *   Reset ApiErrC;                 // trap API errors
      *   CallP IBMAPI_SendPgmMsg( EXCP_MSGID: 'QCPFMSG   *LIBL'
      *                          : EXCP_DATA: %len(EXCP_DATA)
      *                          : '*ESCAPE': '*': 0: msgkey: ApiErrC );
      *   If (ApiErrC.BytAvail > *zero); // if an error occurred
      *     Return *Off;                 // indicate another error
      *   EndIf;
      * EndMon;
      *
      * DOCUMENTATION:
      * https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/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;

References