Re: Driving me nuts!

[Booth Martin <booth@xxxxxxxxxxxx>]

Try adding this line just prior to the ADDLIBLE command

C                        Eval      cmdString = 'RMVLIBLE LIB(QGPL)'

My memory (often foggy) is that the RMVLIBLE command doesn't barf if the library isn't there.

:


Shannon ODonnell 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
>
>  
>
>   
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.176 / Virus Database: 270.10.1/1869 - Release Date: 12/30/2008 12:06 PM
>
>