In a similar situation I solved the problem and gained a useful tool for a 
lot of similar issues.

I designed a data file with two 10-character key fields and a 
512-character field and a time stamp.  In general I use the program's name 
for key1 and the user's name from the SDS for key2.   In the *INZSR  of 
any display program I can therefore chain and get the 512 character field 
and drop it onto a data structure and fill all the display screen's fields 
with the user's last set of values.  That was my original goal.  It works 
beautifully and the users love not having to type in values over and over 
or settle for a "best guess" set of values.  It is especially useful for 
setting filter settings.

But more to the point, once the file was in place I discovered it is 
awfully handy for storing other values too.  The keys can be anything that 
is useful to provide the needed flexibility and follow-through.  The 
problem with the Data Area solution was that it is a one-at-a-time sort of 

I'm thinking that making that solution into a procedure has great 

Booth Martin
Sent by:
11/16/1999 12:21 PM
Please respond to MIDRANGE-L

        Subject:        Procedures/Sub-Procedures

We are starting the next release of our software, which is all in ILE RPG. 
Now, I want to start taking common functions out of programs, change them 
into sub-procedures accessed via a service program(s). Put the service 
programs in a common binding directory and away we go..

One common function that all of our programs do is to get the current 
company that they are working with by accessing a data area. It's only a 
couple of lines of code, but I thought it made sense to put it into a 
sub-procedure. However, I can not define a data area in a sub-procedure 
(this also makes sense). 

So, I would have to create a full blown procedure (I assume not accessed 
via a service program). So, my question is, Is this still worth doing - 
given that it's only a couple of line of code retrieving a data area?

Anybody have any comments?


| This is the Midrange System Mailing List!
| To submit a new message, send your mail to
| To subscribe to this list send email to
| To unsubscribe from this list send email to
| Questions should be directed to the list owner/operator:

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].