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 <[email protected]>
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 <[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.
>
>
-- 
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.