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     

This was last published in June 2001

Start the conversation

Send me notifications when other members comment.

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

SearchEnterpriseLinux

SearchDataCenter

Close