Re: PC or Workstation

[Glenn Gundermann <ggundermann@xxxxxxxxxxxxxx>]

Alison,

I thought there was something specific to say PC or not PC but I couldn't find
it.  Maybe there's something better than what I have below.

In RPG, you can use the File Information Data Structure for the display file.
There is an Open Feedback Area and an I/O Feedback Area.  Within the Open
Feedback Area is the Device Definition List.  The I/O Feedback Area has two
sections; the Common Area and the File-Dependent Feedback Area.  Scan the 
manuals
for all of these to see what there is.  A good idea is to right a program and 
run
it on a PC and a dumb workstation and compare values to see what if anything is
different.

You can retrieve the Device Type and perhaps you could make assumptions based on
this.  For example, our only two workstations are a 3197 and a 3476 and all of
the PCs we have show up as either a 3179-2 or a 3197-C2.  So I could hard-code
(oh no) that a value of hex 26 or hex 34 for the Device Type represent the
workstations and all others are PCs.

Information is scattered in several books.  The RPG/400 Reference manual shows
you how to calculate the from and to positions of the datastructure but you need
to first find out the offset and length.  There's also the Data Management
manual.  Various tables will show you the values you need to look for.  Some
information is found in more than one area of the data structures.

Good luck!

Glenn Gundermann
Ronald A. Chisholm Limited
Toronto

Alison Herman wrote:

> Hi to all.
>
> Does anyone know of a way to tell (from either a CL or RPG prgrom)  if
> session you are running is on a PC or dummy workstation?
>
> Thanks in advance.  Wish I was in Anaheim.
> Alison

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