Trapping errors with CALLP?

[David Gibbs <dgibbs@xxxxxxx>]

Folks:

 

I've run into a problem using CALLP ... I can't trap errors.

 

When using a normal call I can put a conditioning indicator on the call so that, if the called program fails, it simply returns to the caller and turns on an indicator.

 

I can't find a way to do that will CALLP.

 

For instance ... the following code will work fine ... it just returns to the command line after a call with a message in the joblog ...

 

D LEN             S             15P 5                                 
C                   eval      CMD = 'ADDLIBLE ASDF'                   
C                   call      'QCMDEXC'                            99 
C                   parm                    CMD             128       
C                   parm      128           LEN                       
C                   eval      *inlr = *on                             
C                   return                                            

 

However, this code throws a fit ...

 

DQCMDEXC          PR                  EXTPGM('QCMDEXC')        
D prCmdStr                    4096A   CONST                    
D prCmdLen                      15P 5 CONST                    

D LEN             S             15P 5                        
D CMD             S            128A                          
C                   eval      CMD = 'ADDLIBLE ASDF'          
C                   callp     QCMDEXC(CMD:128)               
C                   eval      *inlr = *on                    
C                   return                                   

 

 

Any suggestions?

 

 

Thanks and have a happy & safe holiday!

 

david

--

David Gibbs
Sr. Software Engineer
Mortice Kern Systems US, Inc.
2500 S. Highland Ave., Suite 200
Lombard, IL  60148

phone: (630) 495-2108 x5004
http://www.mks.com
mailto:dgibbs@mks.com

Opinions expressed are strictly my own and do
not necessarily reflect those of my employer.