Re: How does ASSUME keyword work with DSPSIZ?

Well, it is a good thing you checked Charles. I was totally wrong.

I just rechecked the popup calendar program itself. The relevant code is:

// Original source came from: *
// http://www.400times.com/FrameData/Pop-up_Calendar.htm *
// Modifications: *
// 05/02/11 C.Wilt - Replaced a couple of bunches of IF *
// statements with loops. Modified to *
// exit only on valid select or F3/F12 *
// Protect all day fields *
// 06/13/11 C.Wilt - Modified to work with both DS3 and DS4 *
// screen sizes. *
//***************************************************************

That seems pretty clear that the window program itself takes care of knowing the screen size. Which is quite different from what I said.

What I did do was to write a quick little program that would flip from 24x80 to 27x132 and back with F8. Then I added 2 DSPF, one at 24x80 and one at 27x132. Each screen had a date field. F4 calls the popup calendar. So what I was seeing was a window program working on both sizes. I had totally and completely forgotten what the code that you added to it a couple of years ago was for, Charles.

On 3/6/2015 3:48 PM, Charles Wilt wrote:

Booth you sure about that? As your pop-up calender does it...


* DSPSIZ(*DS3 *DS4) ENTFLDATR(*NOCURSOR (*COLOR WHT)) CHGINPDFT R FMT001 90
DSPMOD(*DS4) CA03 CA12 //check current screen size, configure to match
SetScreenSize(*omit:NbrColumns:*omit:*omit); if nbrColumns = 132; *in90 =
*on; else; *in90 = *off; endif;Charles*

On Fri, Mar 6, 2015 at 4:23 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

There is no need to retrieve the screen size in order to write a window
record. This works just fine in a window program: DSPSIZ(*DS3 *DS4)

I do this with some regularity. The most recent was just now to make sure
my memory wasn't playing tricks on me.



On 3/6/2015 2:17 PM, Mark Murphy/STAR BASE Consulting Inc. wrote:

Thanks all for youre responses, this post was exactly what I needed,
api's and all.

Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx

--

--
Booth Martin<br>
www.martinvt.com<br>
(802)461-5349<br>
Skype: booth.martin<br><br>

Modesty is of no use to a beggar.
-- Homer

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.