Difference between revisions of "Execute System Command (QCMDEXC)"
From MidrangeWiki
m (New page: Category:RPG_Prototypes <pre> DQCMDEXC PR EXTPGM('QCMDEXC') D prCmdStr 32767A CONST D prCmdLen ...) |
DaveLClarkI (talk | contribs) (→Prototype for the QCMDEXC API) |
||
| (12 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | [[Category:API]] | ||
[[Category:RPG_Prototypes]] | [[Category:RPG_Prototypes]] | ||
| + | == Summary == | ||
| + | |||
| + | 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 QCMDEXC API == | ||
<pre> | <pre> | ||
DQCMDEXC PR EXTPGM('QCMDEXC') | DQCMDEXC PR EXTPGM('QCMDEXC') | ||
| Line 5: | Line 11: | ||
D prCmdLen 15P 5 CONST | D prCmdLen 15P 5 CONST | ||
</pre> | </pre> | ||
| + | |||
| + | An RPG/LE fully free-form alternative (by [[User:DaveLClarkI|Dave Clark]]): | ||
| + | <pre> | ||
| + | //============================================================================= | ||
| + | // 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; | ||
| + | </pre> | ||
| + | |||
| + | == References == | ||
| + | * [[API Error Code Structure (ApiErrC)]] | ||
| + | * [[Send Program Message (QMHSNDPM)|IBMAPI_SendPgmMsg]] API | ||
Latest revision as of 16:50, 17 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 fully free-form alternative (by Dave Clark):
//=============================================================================
// 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;
