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.

Scott Cole

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

This was last published in June 2001

Dig Deeper on iSeries CL programming

Start the conversation

Send me notifications when other members comment.

Register

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchDataCenter

Close