RE: Sub Procedures -- RPG400-L

Justin,

I'm not sure I understand your issue.  Are you saying you want it to have
implicit access (in this procedure) to defined storage in your main
procedure?

Is this nomain procedure intended to be used in many programs, or is it
specific to this one program?  If it is intended to be a general purpose
procedure, I think it's a bad idea to try to modify global data, unless it's
formally passed as part of the PI.  IMPORTing variables EXPORTed in the main
procedure is one way of getting to the storage, though it still involves
defining the variable twice. If, however, this proc is specific to this
program, you should be able to simply fold the procedure into your main
program, which by default gives your procedure global access to your main
procedure's defined storage.

I'm definitely sure I'm not understanding your question.....

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: Justin Houchin [mailto:jhouchin9@charter.net]
Sent: Wednesday, April 17, 2002 8:34 AM
To: rpg400-l@midrange.com
Subject: Re: Sub Procedures


So what you are telling me is that I have to define them twice? And if so,
is there another  way to accomplish what I',m trying to do without defining
it twice.


Justin Houchin
Programmer
Reliatek, Inc
----- Original Message -----
From: "Peter Colpaert" <Peter.Colpaert@honda-eu.com>
To: <rpg400-l@midrange.com>
Sent: Wednesday, April 17, 2002 8:20 AM
Subject: Re: Sub Procedures


>
> Justin,
>
> I think it's because the compiler needs to know the field definition at
> compile time, and AFAIK there is no way to tell the compiler that this
> module will be used in this or that RPG program.
>
> HTH,
>
> Peter Colpaert
> Application Developer
>
> Honda Europe NV
> Langerbruggestraat 104
> B-9000 GENT
> Peter.Colpaert@honda-eu.com
> Tel: +32 9 2501 334
> Fax: +32 9 2501 231
> ----------
> Program documentation is like sex: when it is good, it is very, very good;
> and when it is bad, it is better than nothing.
> ----------
>
>
>
>
> Justin Houchin <jhouchin9@charter.net>@midrange.com on 17/04/2002 15:23:26
> Please respond to rpg400-l@midrange.com
> Sent by:  rpg400-l-admin@midrange.com
>
> To:   RPG Midrange <rpg400-l@midrange.com>
>
> cc:
>
> Subject:  Sub Procedures
>
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> Hi Everyone,
>     How come when you create a NOMAIN sub procedure that you have to set
up the definitions for a field you are going to use twice? Why can't the sub
> procedure use the same definitions that are already specified in the RPG
Program?
>
>
>
> Justin Houchin
> Programmer
> Reliatek, Inc
> _______________________________________________
> 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.
>
>
>
>
>
>
> ______________________________________________________________________
> The information contained in this communication is confidential and may be
> legally privileged. It is intended solely for the use of the individual or
> the entity to whom it is addressed and others authorised to receive it. If
> you have received it by mistake, please let the sender know by e-mail
reply
> and delete it from your system.
> If you are not the intended recipient you are hereby notified that any
> disclosure, copying, distribution or taking any action in reliance of the
> contents of this information is strictly prohibited and may be unlawful.
> Honda Europe NV is neither liable for the proper and complete transmission
> of the information contained in this communication nor for any delay in
its
> receipt.
>
> _______________________________________________
> 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.