RE: Driving me nuts!

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.