Re: RPG Question

["M J Whitcomb" <mjwhit@xxxxxxxxxxxxxxx>]

Another way, but again a way that might not survive after you're "dead & gone" 
is to change 
the system value QPRTTXT and put in the system name or serial number.  It will 
then print 
on the bottom of each report.
But, it could be changed by someone else or even removed when you have moved on 
elsewhere.


On Sat, 7 Mar 1998 21:40:37 -0600, Doug Aarestad wrote:

>-->What I originally said........
>>> >A quick RPG question: (If y'all don't mind!)
>>> >
>>> >Is there a way to retrieve the system name in an RPG program? (IE;
>>> >S10-------) (I didn't see it anywhere in the SDS)
>>>
>
>-->What Booth said............
>>Dumb answer time: Could you make your own "system data structure" where you
>could
>>include the system's name, and any other global stuff you wanted to be
>available
>>to your system?
>>
>>
>>
>
>
>
>Booth,
>
>That would work ok.  I might just do something like that.  We have 3
>machines, and I just want to add the system serial number (that's how we
>refer to our machines) to reports.  We display the program info, but I would
>like to see which system the report came from as well.  What you suggest
>would work as long as after I'm dead and gone, someone changes the data
>areas if we change machines.  (We are CISC, and by god, hoepfully at some
>point, go to RISC, which is a serial # change.  I have seen many other
>suggestions, but want to keep the code down as much as possible.
>
>Thanks to everyone for their input.......
>
>Doug Aarestad
>aarestad@feist.com
>http://www.feist.com/~aarestad
>
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@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
>+---
>

M J Whitcomb
System Administrator
Valley Regional Healthcare
Claremont, NH

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---