Thanks....
by the time I got this.... we had discussed another way of doing the screens...
basically putting the screen activation into a loop like this...
l_ActWin = "QUAL01A"
DO WHILE .T.
DO CASE
CASE l_ActWin = "QUAL01A"
DO Qual01A.spr
CASE l_ActWin = "QUAL01B"
DO Qual01B.spr
CASE l_ActWin = "QUAL01C"
DO Qual01C.spr
CASE l_ActWin = "QUAL01D"
DO Qual01D.spr
CASE l_ActWin = "QUAL01E"
DO Qual01E.spr
CASE l_ActWin = "QUAL01F"
DO Qual01F.spr
OTHERWISE
EXIT
ENDCASE
ENDDO
and then later when selecting a different screen....
*-----------------------------------------------------------------
* Activate Page 1.
*-----------------------------------------------------------------
FUNCTION PageOne
DO relqual01
l_ActWin = "QUAL01A"
RETURN(.T.)
*-----------------------------------------------------------------
* Activate Page 6.
*-----------------------------------------------------------------
FUNCTION PageSix
DO relqual01
l_ActWin = "QUAL01F"
RETURN(.T.)
*-----------------------------------------------------------------
* Activate the next window.
*-----------------------------------------------------------------
FUNCTION PageNext
IF l_ActWin <> 'QUAL01F'
DO relqual01
DO CASE
CASE l_ActWin = "QUAL01A"
l_ActWin = 'QUAL01B'
CASE l_ActWin = "QUAL01B"
l_ActWin = 'QUAL01C'
CASE l_ActWin = "QUAL01C"
l_ActWin = 'QUAL01D'
CASE l_ActWin = "QUAL01D"
l_ActWin = 'QUAL01E'
CASE l_ActWin = "QUAL01E"
l_ActWin = 'QUAL01F'
ENDCASE
ENDIF
RETURN(.T.)
*
PROCEDURE relqual01
RELEASE WINDOW qual01a
RELEASE WINDOW qual01b
RELEASE WINDOW qual01c
RELEASE WINDOW qual01d
RELEASE WINDOW qual01e
RELEASE WINDOW qual01f
RETURN
*************************************
and so forth...
Tommy
>Hello Tom,
>
> In the Help file of FOX 26 go to the Top 20 Coding Errors. In there you will
>find the fix for this problem.
>
>HTH
>Tim
>
>
>>Hi again....
>>
>>I have some legacy code here in Foxpro 2.6.... and basically what we have is a screenset of 4 screens.
>>
>>We had to increase it to 6 screens, but we hit the "PROGRAM TOO LARGE" error when compiling now (it is tooooo large to compile).
>>
>>So, I broke the screenset up into 6 screens, and tried to call them when necessary, calling up the first one, then trying to RELEASE the screen, and bringing up another screen (like 3, 5, etc) when called.
>>
>>But the screens will not release the READ in effect. They continue to go increase until I exceed the 5 READ limit.
>>
>>So, any ideas of how I can get the READS to RELEASE between the screens??
>>
>>Here is some sample code called when jumping from screen to screen...
>>
>>*********************************************************************
>>*-----------------------------------------------------------------
>>* Activate the next window.
>>*-----------------------------------------------------------------
>>FUNCTION PageNext
>> CLEAR READ
>> DO CASE
>> CASE WONTOP() = "QUAL01A"
>> DO qual01b.spr
>> CASE WONTOP() = "QUAL01B"
>> DO qual01c.spr
>> CASE WONTOP() = "QUAL01C"
>> DO qual01d.spr
>> CASE WONTOP() = "QUAL01D"
>> DO qual01e.spr
>> CASE WONTOP() = "QUAL01E"
>> DO qual01f.spr
>> ENDCASE
>> RETURN(.T.)
>>*********************************************************************
>>
>>Thanks....
>>
>>Tommy
Tommy Tillman A+ NetWork+ MCP