RE: Window in 2nd pgm?

I've never had to deal with this but is there some reason for not declaring and using an INFDS for the DSPF?  Seems a lot easier than dealing with the API.

DEV_TYPE      CHAR(1) POS(272);    // Device type - *DS3, *DS4, etc.
NUM_ROWS    INT(5)     POS(282);    // Number of rows
NUM_COLS     INT(5)     POS(284);    // Number of cols

Roger Harman
COMMON Certified Application Developer - ILE RPG on IBM i on Power



-----Original Message-----
From: RPG400-L <[email protected]> On Behalf Of Charles Wilt
Sent: Thursday, August 28, 2025 12:56 PM
To: RPG programming on IBM i <[email protected]>
Subject: Re: Window in 2nd pgm?

Sorry...been to long and I was mis-reading the API name...

QsnRtvMod - lets you determine if the current screen (last output) is 80 or
132 column
QsnQryModSup  - lets you determine if a device is configured to support 132
columns

Details here
https://archive.midrange.com/rpg400-l/200011/msg00361.html

HTH,
Charles


On Thu, Aug 28, 2025 at 7:22 AM Charles Wilt <[email protected]> wrote:

> Yes the code Mark linked to shows the check being called from the popup
> window.
>
> TLDR;
> The key to making our popup window display in the correct mode requires
> the following steps:
>
>
>    1. The (popup) display file should be user open (UsrOpn on the F spec)
>    so that we can set the size mode before the file is opened
>    2. Detect the current screen mode size by using the
>    Screen_SizeIs27x132 functio
>    3. Set the display mode size of our popup window program to the
>    current mode
>    4. Open the display file
>    5. Display the popup screen
>
> Ignore what's being done in the test driver.
>
> The QsnRtvMod API mentioned by another poster won't work, it simply tells
> you if a display supports 27x132.
> I've used that to display a message asking the user to call the help desk
> to get their session reconfigured as I had a new application that only
> worked on 27x132.
>
> HTH,
> Charles
>
>
>
>
> On Thu, Aug 28, 2025 at 6:57 AM Justin Taylor <[email protected]>
> wrote:
>
>> After reading the doc, I'm not sure if that API called from the window pgm
>> will detect the screen of the calling program.  I'll have to test it and
>> see.  We may have to add an optional parm to the window pgm to override
>> the
>> default display size.
>>
>> Thanks
>>
>>
>>
>> On Wed, Aug 27, 2025 at 5:12 PM Mark Waterbury via RPG400-L <
>> [email protected]> wrote:
>>
>> >  Justin,
>> > The QSNRTVMOD will give you that information.
>> > Sample code can be found here:
>> >
>> >
>> https://web.archive.org/web/20120116114604/http://provatosys.com/retrieve.html
>> > HTH,
>> > Mark S. Waterbury
>> --
>> This is the RPG programming on IBM i (RPG400-L) mailing list
>> To post a message email: [email protected]
>> To subscribe, unsubscribe, or change list options,
>> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
>> or email: [email protected]
>> Before posting, please take a moment to review the archives
>> at https://archive.midrange.com/rpg400-l.
>>
>> Please contact [email protected] for any subscription related
>> questions.
>>
>>
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.

-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.