Re: Driving me nuts!

Shannon,

Have just compiled and run your code with no issues. CPF2103 is generated
on calling QCMDEXC but suppressed by the (e) and the program continues
on...

Kind Regards,

Joe Maguire




From:
"Shannon ODonnell" <sodonnell@xxxxxxxxxxxxxxxxxxxxxxxxx>
To:
"'RPG programming on the IBM i / System i'" <rpg400-l@xxxxxxxxxxxx>
Date:
30/12/2008 15:32
Subject:
Driving me nuts!
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



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