Use Monitor to Trap QCMDEXC Errors

Hey, Ted:

How do I find out why QCMDEXC failed when called in an RPG program?

-- John

Trap the error so your program doesn't cancel. I like the new monitor and on-error op codes for this:

D QCmdExc         pr                  extpgm('QCMDEXC') 
D    Cmd                       256a   const             
D    CmdLen                     15p 5 const             
                                                        
D Cmd             s            256                      
                                                        
D psds           sds                                    
D   MsgID                40     46                      
D   Msg                  91    170                      
                                                        
C                   eval      cmd = 'dsplib br549'      
C                   monitor                             
C                   callp     qcmdexc (cmd: %size(cmd)) 
C                   on-error                            
C* call to qcmdexc failed -- do whatever 
C                   endmon                              

If you prefer, you can add an argument of *program in factor 2 of the on-error command, but it's not necessary:

C                   on-error  *program                  

If an error occurs, check positions 40 through 46 of the program status data structure for the message ID. Look in positions 91 through 170 for the error message text.

The monitor and on-error op codes are similar in concept to the CL Monitor Message (MONMSG) command or the Java try/catch operations. I like monitor and on-error better than the following older methods.

If you're not on V5, you can use the 'old' way to trap the failed call: the e operation extender, followed by a test for the %error function:

C                   callp (e) qcmdexc (cmd: %size(cmd)) 
C                   if        %error                    
C* do whatever
C                   endif                               

Of course, there's the 'old old' method: an indicator in the 'lo' resulting indicator position, but I won't recommend it.

-- Ted

Sponsored By ADVANCED SYSTEMS CONCEPTS

SEQUEL meets all your iSeries and AS/400 data access needs in a single, integrated solution: Windows, Web or host user interfaces Convert AS/400 data into PC file formats E-mail or FTP query results, reports and spool files Run-time prompted queries and reports for end users IF-THEN-ELSE logic in queries and reports Report, form and label formatting second to none Easily convert date fields, character-to-numeric, numeric-to-character and other data manipulation SORT or JOIN using a calculated field Quick summarization of data with Tabling function Run multiple SEQUEL requests as one with the SEQUEL Scripting function OLAP Business Intelligence at a fraction of the cost of comparable solutions Take 6 minutes to view a SEQUEL ViewPoint ScreenCam movie to see how simple Windows-based AS/400 and iSeries data access can be! In just a few short minutes, you can find out ways to make your job easier and improve data access throughout your organization. Download the ViewPoint movie here . For more information or a FREE trial of SEQUEL, call 847/605-1311 or visit Advanced Systems Concepts.

All content published in Guild Companies publications is for informational purposes only, and accuracy of said content is not guaranteed by Guild Companies and its staff. Guild Companies and its staff do not warrant that its content is error-free. Also, Guild Companies and its staff are not responsible for the availability or content accuracy of other Web sites and services that may be linked to this Web site and service.
Use of any content published in Guild Companies publications is at your own risk.