|
I'm not seeing where pQAHSTDS is defined at. D QAHSTDS e ds ExtName(QAHST00) Based(pQAHSTDS) * __________________________________________________ P GEMAIL B EXPORT D GEMAIL PI D QAHSTDSp LIKE(QAHSTDS) D pQAHST00 s * Inz David L. Mosley, Jr. Systems Analyst 2000 CentreGreen Way Suite 250 Cary, NC 27513 "Smith, Mike" <Mike_Smith@RGCReso To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> urces.com> cc: Sent by: Subject: RE: data structre as parm rpg400-l-admin@midr ange.com 03/27/02 01:49 PM Please respond to rpg400-l Well I'm going to open this back up, because I'm still lost. I have the procedure compiled. Blows up on the run telling me ' Pointer not set for location referenced' So my calling program looks like this Callp gemail(QAHSTDS) looks good here. Procedure here. D QAHSTDS e ds ExtName(QAHST00) Based(pQAHSTDS) * __________________________________________________ P GEMAIL B EXPORT D GEMAIL PI D QAHSTDSp LIKE(QAHSTDS) D pQAHST00 s * Inz D EMAIL S 1 c Eval pQAHST00 = %Addr(QAHSTDSP) C/EXEC SQL C+ SELECT QPEMAIL INTO :EMAIL FROM QACTL00 WHERE QPCODE = C+ :QHCODE C/END-EXEC Blows when executing the SQL. QPEMAIL is a field from the data structure QAHSTDS. QAHST00 is an externally described file. _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
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.