Re: Window in 2nd pgm?

That only tells you the data for the open display file...

Doesn't tell you what size was being used before the DSPF was open (ie for
the OP's case of making the popup window match)

Also doesn't tell you what sizes the display actually supports ahead of
time.

Charles


On Thu, Aug 28, 2025 at 5:29 PM Roger Harman <roger.harman@xxxxxxxxxxx>
wrote:

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 <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Charles
Wilt
Sent: Thursday, August 28, 2025 12:56 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
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 <charles.wilt@xxxxxxxxx>
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 <jtaylor.0ab@xxxxxxxxx>
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 <
rpg400-l@xxxxxxxxxxxxxxxxxx> 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: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.