Re: Procedures/Sub-Procedures

[boothm@xxxxxxxxxxxxxxxxx]

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 
solution.

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

 
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




HwaRangRon@aol.com
Sent by: owner-midrange-l@midrange.com
11/16/1999 12:21 PM
Please respond to MIDRANGE-L

 
        To:     MIDRANGE-L@midrange.com
        cc: 
        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?

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
+---