RE: Driving me nuts!

["Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Yes.

That's why I used the Callp(e) instead of Callp by itself, to catch the
error.

But it works now so thanks anyway.



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

Why shouldn't it?

ADDLIBLE throws a CPF2103 - Library &1 already exists in library list.
*ESCAPE message if the library is already in the library list.

So you program is either getting that or CPF0006 - Errors occurred in
command from the QCMDEXC.

You should be able to look in the archives for examples of error handling.

But you may want to consider the Process Commands (QCAPCMD) API.  It
provides for better error handling.

HTH,
Charles





On Tue, Dec 30, 2008 at 10:24 AM, Shannon ODonnell
<sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx> 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
>
>
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.