Difference between revisions of "Execute System Command (QCMDEXC)"
From MidrangeWiki
DaveLClarkI (talk | contribs) |
DaveLClarkI (talk | contribs) |
||
Line 5: | Line 5: | ||
For more information on this API, visit [https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qcmdexc.htm Execute Command (QCMDEXC) API] (right-click to open link in a new tab). | For more information on this API, visit [https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/qcmdexc.htm Execute Command (QCMDEXC) API] (right-click to open link in a new tab). | ||
− | == Prototype for the | + | == Prototype for the QCMDEXC API == |
<pre> | <pre> | ||
DQCMDEXC PR EXTPGM('QCMDEXC') | DQCMDEXC PR EXTPGM('QCMDEXC') |
Revision as of 15:45, 7 December 2018
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: * 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;