|
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
------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - http://www.avg.com Version: 8.0.176 / Virus Database: 270.10.1/1869 - Release Date: 12/30/2008 12:06 PM
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
