|
midrange.com
I did know that. Thank you. Very cool.
David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513
"Bob Slaney"
<rjslaney@us.ibm. To: rpg400-l@midrange.com
com> cc:
Sent by: Subject: RE: data structre as
parm
rpg400-l-admin@mi
drange.com
03/27/02 02:18 PM
Please respond to
rpg400-l
Implicitly. You do not need to explicitly define it. It's a feature.
Bob
Bob Slaney/Atlanta/IBM@IBMUS (Lotus Notes)
Internet id: rjslaney@us.ibm.com
VM id: DALVM1.RJSLANEY@VM
Tieline 445-7374 Direct (770)835-7374
FAX tie 445-7232 Direct (770)835-7232
IBM Learning Services
iSeries Courseware Developer
IBM Corp.
3200 Windy Hill Road
Atlanta, GA 30339
Internal Zip WG08C
dmosley@dancik.co
m To:
rpg400-l@midrange.com
Sent by: cc:
rpg400-l-admin@mi Subject: RE: data structre
as parm
drange.com
03/27/2002 02:11
PM
Please respond to
rpg400-l
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.
_______________________________________________
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.
_______________________________________________
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.
