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.

By
  • Scott Cole
Published: 20 Jun 2001

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

Dig Deeper on iSeries CL programming

Start the conversation

Send me notifications when other members comment.

Register

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close