Re: Driving me nuts!

["Joe Wells" <jwells@xxxxxxxxx>]

I dunno.  I compiled "as-is" and it ran fine.  The job log did tell me that
the lib already existed, but the program did not halt.

We are on v5r4.

Joe

> > > On 12/30/2008 at 9:24 AM, in message
<001a01c96a92$c676be50$53643af0$@com>,
Shannon
ODonnell<sodonnell-qItxR4BkZEcgfQaTeDjaWXHrszOJ0dCBAL8bYrjMMd8@xxxxxxxxxxxxx

rg> wrote:
> Can anyone tell me why this  code would generate an error (see below) 
> when I
> run it if the library is already in the library list?  The error comes 
> in on
> the line where I callp the QCMDEXC API.
>
>  
>
>  
>
> D cmd             PR                  ExtPgm('QCMDEXC')                  
>  
>
> D   command                   2000A   const                              
>  
>
> D   length                      15P 5 const                              
>  
>
>                                                                          
>  
>
> d CmdString       s           2000A                                      
>  
>
> d Usr             s              3A                                      
>  
>
>                                                                          
>  
>
>  *                                                                       
>  
>
> C                   Eval      Usr = '123'                                
>  
>
>  *                                                                       
>  
>
> C                   Eval      *Inlr = *On                                
>  
>
>  *******************************************************************     
>  
>
>  * *INZSR - Initialization Subroutine                                    

>  *******************************************************************     
>  
>
> C     *Inzsr        Begsr                                                
>  
>
> C                        Eval      cmdString = 'ADDLIBLE LIB(QGPL)'
>
>
> C                       Callp(e)  cmd(CmdString:2000)
>
>
> C                       Endsr
>
>  
>
>  
>
>  
>
>  
>
>  
>
> I use this particular code all the time in many programs on many iSeries 
> and
> now for some reason it's throwing the error:
>
>  
>
> Library QGPL already exists in library list.                             
>
>
>  Pointer not set for location referenced.                                
>  
>
>  Pointer not set for location referenced.                                
>  
>
>  Exception recursion detected.                                           
>  
>
>  Application error.  *N unmonitored by *N at statement *N, instruction   
>  
>
>    X'4000'.                                                              
>  
>
>  
>
>  
>
>  
>
>  
>
>  
>
> It's possible that I have just miscoded this one and I'm not seeing what 
> I
> did wrong, so I'm hoping more sets of eyes looking at it will see what 
> I'm
> missing.
>
>  
>
>  
>
>  
>
> Thanks for looking!
>
>  
>
>  
>
>  
>
> Shannon O'Donnell
>
>