Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!ucsd!ames!amelia!eagle!news From: xxremak@csduts1.lerc.nasa.gov (David A. Remaklus) Newsgroups: comp.lang.asm370 Subject: Re: (none) Message-ID: <1990Mar15.132608.7298@eagle.lerc.nasa.gov> Date: 15 Mar 90 13:26:08 GMT References: <9003122231.AA00613@lilac.berkeley.edu> <927302n991EW01@amdahl.uts.amdahl.com> Reply-To: xxremak@csduts1.lerc.nasa.gov (David A. Remaklus) Distribution: inet Organization: NASA/Lewis Research Center, Cleveland Lines: 38 In article <927302n991EW01@amdahl.uts.amdahl.com> terry@amdahl.uts.amdahl.com (Lewis T. Flynn) writes: >In article <9003122231.AA00613@lilac.berkeley.edu> IBM 370 Assembly Programming Discussion List writes: >>On Wed, 7 Mar 90 12:37:19 GLT Bill Vlachoudis said: >>>Hi, does anyone knows any smart|small algorithm, how to get >>>the 3270 buffer address codes from Row and Column? >> >> Sure, you have to know the width of the screen in characters. >>Typically it's 80, but on a "model 5" it'll be 132. >> >[other stuff omitted] > >An alternative is to ask CP what's the shape of the screen. It's been a while >and I have no manuals handy so I'll probably get the details wrong, but as >of VM/SP4, CP does a "write structured field-query" to all tubes genned as >3278s (or later devices) when the tube is enabled. The results of this >information is available from a diagnose and includes the geometry of the >screen. As this query can sometimes fail, you may want to do the query yourself >(like XEDIT does). If this fails, there is another diagnose which will tell >you the genned device model (like 2, 3, or 4). This is necessary as there are >now more shapes than there used to be: 48x80 for 3193s, 62x160 for 3290s, etc. > >[still other stuff omitted] > >Terry One thing to be careful of. If the terminal is a VTAM controlled tube the device type returned by the CP DIAGnose (don't remember which one) is always a 3277 but the model number will be correct as to the logmode specified(defaulted) when the terminal is logged in. Dave -- David A. Remaklus NASA Lewis Research Center MS 142-5