Re: Global variables in a Service Program

[vhamberg@xxxxxxxxxxx]

You might want to look at conditional compilation - define and test.

-------------- Original message -------------- 
From: rob@xxxxxxxxx 

> There will not be an issue when all three service programs are bound to 
> one. Unless, maybe, you are EXPORTing them all. In that case, the use of 
> Export on a variable should be only used with great care and forethought. 
>
> Rob Berendt 
> -- 
> Group Dekko Services, LLC 
> Dept 01.073 
> PO Box 2000 
> Dock 108 
> 6928N 400E 
> Kendallville, IN 46755 
> http://www.dekko.com 
>
>
>
>
>
> DennisRootes@xxxxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 
> 10/26/2006 01:49 PM 
> Please respond to 
> RPG programming on the AS400 / iSeries 
>
>
> To 
> rpg400-l@xxxxxxxxxxxx 
> cc 
>
> Subject 
> Global variables in a Service Program 
>
>
>
>
>
>
> Quick question. I've got some variables and constants that I'd like to 
> make global but I'm concerned about scope. Basically, I have three 
> service programs that all use a couple of the same fields, i.e. errMsg, 
> cmdLen, myCmd, etc.. Do I put them at the top of each svcpgm module or in 
>
> a separate copybook? And would there be issues with duplicates when all 3 
>
> svcpgms were bound into one rpgle pgm? 
>
> Thanks, 
> -- 
> 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. 
>
>
> -- 
> 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.