Re: Procedures/Sub-Procedures

In a message dated 11/16/99 5:53:42 PM Pacific Standard Time, 
bmorris@ca.ibm.com writes:

<< s the data area used solely for this purpose?  If so, you might consider
 dropping the data
 area entirely and instead add a setCurrentCompany procedure to the module
 with the
 "getCurrentCompany" procedure, with a global variable to hold the name.
  >>
Barbara,
The data area only contains a 3 character acronym that we use to set the 
library list for that company. The company name is actually stored in a 
control file that you can get to once you have set the library list correctly.

So really, just defining the data area with UDS gets the acronym brought into 
a program, without the need for a procedure. However, I can see that EVAL 
ACRO = GETACRO is a lot easier to follow, logically. Also, as you point out, 
I'll only need to effect changes in one place if we need to change it in the 
future.

Whats more, this is fun stuff to code.
Ron
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---