RE: RPG Question

[Bob Crothers <bcrothers@xxxxxxxxxxxxx>]

Doug,

Now you are talking about the System Serial Number.  The system 
serial number is kept in System Value QSRLNBR and can be 
retrieved quite easly by RPG via the API.  See my first post on 
this subject.

The System Serial Number is NOT the same as the System Name. 
 The system name as shipped by IBM defaults to an S and the 
serial number, but this can be changed.  In fact, many would 
argue that it should be changed and many will also argue that it 
should not!  I myself am in the "should" camp.  But the bottom 
line, is they are not the same and you should assume that they 
are not the same.

Bob

-----Original Message-----
From:   Doug Aarestad [SMTP:aarestad@feist.com]
Sent:   Saturday, March 07, 1998 10:41 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re: RPG Question

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

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