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) |
||
| Line 4: | Line 4: | ||
D prCmdStr 32767A CONST | D prCmdStr 32767A CONST | ||
D prCmdLen 15P 5 CONST | D prCmdLen 15P 5 CONST | ||
| + | </pre> | ||
| + | |||
| + | An RPG/LE free-form alternative: | ||
| + | <pre> | ||
| + | *========================================================================* | ||
| + | * 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; | ||
</pre> | </pre> | ||
Revision as of 17:22, 29 March 2016
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;
