Re: Global Variables in a Service Program

["HauserBirgitta" <Hauser@xxxxxxxxxxxxxxx>]

Hi,

I think it depends what you want to do.
I personally avoid importing and exporting variables, nevertheless I use 
service programs that hold information in either global datastructures or 
arrays.
But I prefere more the "Java" like solution, i.e. I have a bunch of Getter 
and Setter procedures, that fill the global datastructures and receive data 
from these global datastructures.

Instead of defining variables in my sources, I use procedure calls.
I find it more accurate, but this is my personal opinion.

For error messages I send escape messages and trap the message textes from 
the program status datastructure (position 91 - 170).

Mit freunlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les 
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)




----- Original Message ----- 
From: "Nathan Andelin" <nandelin@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, October 27, 2006 23:39
Subject: Re: Global Variables in a Service Program


> > What I do not see, is how I would access this common data in my programs
> > without having to define the variables in the program using the Import 
> > keyword.
> > If I do that, then I do not have any advantage in a service program with 
> > the data
> > in it.
>
>
>
>
> Right.  You'll need an import, but sometimes data needs to be shared 
> across three (3) or more programs or service programs, but it may not be 
> necessary to share procedures across the same programs or service 
> programs.  In that case, why not isolate just the data into a shared 
> service program?
>
> Nathan.
>
>
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.