RE: data structre as parm

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
What is QAHST00?

cheers,
        Martin

> -----Original Message-----
> From: dmosley@dancik.com [SMTP:dmosley@dancik.com]
> Sent: 27 March 2002 15:44
> To:   rpg400-l@midrange.com
> Subject:      Re: data structre as parm
>
>
> I don't see that you have QAHSTDS defined, anywhere.
>
> 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:     data structre
> as parm
>                     rpg400-l-admin@midr
>                     ange.com
>
>
>                     03/27/02 10:20 AM
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
> Hi all.
> I've read the threads on this but plead 'Stupid'   I'm trying to pass a
> data
> structure as a parm to a procedure.  I cannot get the procedure to compile
> because of unreference(7030) to QAHSTDS.
>
> Here is my code.  I'm sure its simple, but I don't really understand
> pointers so not sure where to look.
>
> D Gemail          PR
> D QAHSTDSP                            LIKE(QAHSTDS)
> Copied in from copybook
>
> P GEMAIL          B                   EXPORT
>
> D GEMAIL          PI
> D QAHSTDSp                            LIKE(QAHSTDS)
> D QAHSTDS       e ds                  ExtName(QAHST00) Based(pQAHSTDS)
>
> D pQAHST00        s               *   Inz
>
> c                   Eval      pQAHST00 = %Addr(QAHSTDSP)
>
> other code.
>
> Thanks
>
> mike
> _______________________________________________
> 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.