Doug,
Once upon a time I knew all the details but have long since forgotten
thewhys and wherefores. I just make all DSPF members the same and it works
for us. Here, all clients use IBM's CA, hopefully other emulators behave
the same way.
JK
PgmA Ctl format (compile RSTDSP=*YES)
A R CTL1 SFLCTL(SFL1)
A SFLPAG(0014)
A SFLSIZ(&SFL1SIZ)
A TEXT('Control')
A OVERLAY
A 91 SFLDSP
A N91 ERASE(SFL1)
A SFLDSPCTL
A 90 SFLCLR
A 92 SFLEND(*MORE)
A RTNCSRLOC(&RCDNAM &FLDNAM)
A SFLMODE(&SFL1MOD)
A SFLCSRRRN(&SFL1CSRRRN)
A RCDNBR 4S 0H SFLRCDNBR(CURSOR)
A SFL1SIZ 5S 0P
A SFL1MOD 1A H
A RCDNAM 10A H
A FLDNAM 10A H
A SFL1CSRRRN 5S 0H
PgmA pop-up
A R
POPUP
A WINDOW(9 24 11 50
*NOMSGLIN)
A RTNCSRLOC(&RCDNAM
&FLDNAM)
A RCDNAM 10A H
A FLDNAM 10A H
PgmA dummy format
A R DUMMY
A ASSUME
A 10 27'This format seems to be
needed'
PgmB Ctl format (F4 inquiry)
A R CTL1 SFLCTL(SFL1)
A *DS3 SFLPAG(0014)
A SFLSIZ(&SFL1SIZ)
A TEXT('Subfile control')
A OVERLAY
A 91 SFLDSP
A SFLDSPCTL
A 90 SFLCLR
A 92 SFLEND
A RTNCSRLOC(&RCDNAM &FLDNAM)
A SFLMODE(&SFL1MOD)
A SFLCSRRRN(&SFL1CSRRRN)
A RCDNBR 4S 0H SFLRCDNBR
A SFL1SIZ 5S 0P
A SFL1MOD 1A H
A RCDNAM 10A H
A FLDNAM 10A H
A SFL1CSRRRN 5S 0H
On Wed Apr 25 11:33 , 'Doug Palme' sent:
I do not have a dummy format on the first SFL display....and I'll have
to
check on the keyword assume, I do not believe that it is set on.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[midrange-l-bounces@xxxxxxxxxxxx','','','')">midrange-l-bounces@xxxxxxxxxxxx]
On Behalf Of johnking@xxxxxxx
Sent: Wednesday, April 25, 2007 12:10 PM
To: Midrange Systems Technical Discussion
Subject: Re: window issue
Doug,
We have an entry pgm using the exact same screen sequence: PgmA is a
full-screen sfl that displays a popup window that can call PgmB, a
full-screen lookup. Returning from the restores PgmA's pop-up
borders correctly.
Does DSPF for PgmA have a 'dummy' format with 'ASSUME' keyword and
compiled with RSTDSP? DSPF for PgmB does not need RSTDSP.
JK
On Wed Apr 25 10:04 , 'Doug Palme' sent:
I have never been a big fan of window popups but unfortunately I have a
situation where I have to use one, and I am having a problem with the
redisplay.
Here is the flow:
The user presses the a function key and a window popup is displayed for
the
user to enter some data, one of those fields has an F4 lookup, so if
the
user presses the F4 function key while the cursor is on that field it
displays a full page subfile however upon returning from the subfile
the
window border is gone..how do I keep the border from disappearing? I
thought
the keep keyword would do so but I am either using it incorrectly or it
does
not apply to windows.
---- Msg sent via Internet America Webmail -
http://www.internetamerica.com/
midrange.com
