What is the error?
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Shannon ODonnell
Sent: Tuesday, December 30, 2008 10: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
--
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.
midrange.com
