Re: Switching display sizes depending on the screen capabilities *DS3 and *DS4

[Booth Martin <booth@xxxxxxxxxxxx>]

This works for me:

**

       //check current screen size, configure to match
       GetScreenSize(*omit:wNbrCols:*omit:*omit);
       if wNbrCols = 132;
         *in90 = *on;
       else;
         *in90 = *off;
       endif;

**

the program is at 
http://www.martinvt.com/SQL_-simple-/SQL_Msg_Window/sql_msg_window.html

****


On 2/14/2020 2:37 PM, dfreinkel wrote:
> I tried this sub procedure and it returns zeroes. When should it be called?
>
> I called it at the start of the program.
>
> Darryl Freinkel
> A4G.
> Tel: 770.321.8562 Ext 111 | Cell: 678.355.8562
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Booth Martin
> Sent: Friday, February 14, 2020 2:17 PM
> To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: Re: Switching display sizes depending on the screen capabilities *DS3 and *DS4
>
> #1...  remove the lines with 29/N29?  you always want that format?  (Not tested but that seems a reasonable first shot.)
>
> #2: Are you using:
>
> **
>
>    d GetScreenSize   pr           extproc('QsnRtvScrDim')
>    d   NbrRows              10i 0 options(*omit)
>    d   NbrCols              10i 0 options(*omit)
>    d   Handle               10i 0 options(*omit)
>    d   ErrorCode         32767    options(*varsize: *omit)
>
>
> **
> Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com