Driving me nuts!

["Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx>]

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