Problem solve
Get help with specific problems with your technologies, process and projects.
Improved QCMDEXC in RPG IV
This tip walks you through issuing a command in RPGIV.
In RPG IV, to issue a command, you can use code like this. There's no need to figure out the length of the command before issuing it.
(Good luck with the code formatting...)
* Prototype of QCMDEXC D RunSysCmd PR EXTPGM('QCMDEXC') D cmd 200A OPTIONS(*VARSIZE) CONST D cmdlen 15P 5 CONST * Issue the Command C EVAL CmdData = 'WRKACTJOB' C CALLP(E) RunSysCmd(CmdData: %size(CmdData)) C IF %Error = *On C EVAL DspData = 'WRKACTJOB failed' C DspData DSPLY C ENDIF