RE: Driving me nuts!

I never put too much thought into it, but isn't (E) and Monitor pretty
much the same type of error handling in their basic form? I have a
procedure that is in free form where I Monitor a call to QCmdExc and it
definitely catches errors including adding libraries to the library list
that already exist.

So it makes me wonder if the library not adding isn't the issue, but
something else is amiss. Is it definitely failing on that line?

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Shannon ODonnell
Sent: Tuesday, December 30, 2008 9:25 AM
To: 'RPG programming on the IBM i / System i'
Subject: Driving me nuts!

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