Oma,
I don't think I'd put a goto prior to breaking out of (or reaching
endSW) the Switch block... I could be wrong 'cause my foggy
memory abuses me regularly <g>, but I think I read on this list
some time ago that it's best to resolve the switch block _before_
doing something not designed to return and break naturally.
Following that logic has worked _really_ well... no memory leaks or
other unexpected problems.
Ben Petersen
On 6 Jul 2001, at 13:14, Oma Cox wrote:
> David,
> <I put in the mods, but no luck. When I exit the form I go to the R>
> prompt.
> Even using TRACE I just drop out. SQL code = 0, SQLState = 00000.>
>
> Exit which form???? YpMenu or the secondary forms call for editing(ypedit)
> or entry(ypnew)?
>
> How are you starting mainmenu.rmd? From Rbase.dat or from another form
> menu?
>
> Is mainmenu.rmd (YpMenu) a secondary menu form off of a primary menu form?
>
> Change ENTER USING YpMenu CAPTION ' ' to EDIT USING YpMenu Caption ' '
>
> Add a GOTO Mainmenu and label at the beginning of Mainmenu.rmd (LABEL
> MainMenu).
>
> Here's and example that I've did yesterday.
> I run this from the Rbase.dat using run mainmenu.rmd.
> This form is tied to a dummy table with one column in it (Dummy text 1) with
> one row of data (value R)!
>
> Best regards,
>
> Oma
>
> -- mainmenu.rmd
> LABEL mainmenu
> CLEAR ALL VAR EXCEPT verror,vuser,vpass
> CLS
> MAXIMIZE
> SET SINGLE=_
> SET MANY=%
> SET QUOTES='
> SET IDQUOTES=`
> SET VAR RBTI_NOSTATUS = 1
> SET ERROR VAR verror
> set var vbutton integer = null
>
> SET RBGSIZE CENTER CENTER 800 600
>
> SET DEBUG OFF
> SET MESSAGES On
> SET ERROR MESSAGES On
> SET ECHO OFF
> SET ESCAPE OFF
>
> LABEL start
> CLS
> SET CAPTION 'Mississippi Liquior Ordering System'
>
> EDIT USING logo CAPTION 'Mississippi Liquor Ordering System'
>
> SWITCH (.vbutton)
>
> CASE 1
> SET ESCAPE ON
> RUN pexit.rmd
> BREAK
>
> CASE 2
> SET ESCAPE ON
> RUN additem.rmd
> BREAK
>
> CASE 3
> SET ESCAPE ON
> RUN edititem.rmd
> BREAK
>
> CASE 4
> SET ESCAPE ON
> -- RUN acc.rmd
> BREAK
>
> CASE 5
> SET ESCAPE ON
> -- RUN admin.rmd
> BREAK
>
> CASE 6
> SET ESCAPE ON
> -- RUN pur.rmd
> BREAK
>
> CASE 7
> SET ESCAPE ON
> -- RUN sales.rmd
> BREAK
>
> CASE 8
> SET ESCAPE ON
> -- RUN osfc.rmd
> BREAK
>
> CASE 9
> SET ESCAPE ON
> -- RUN poscsq.rmd
> BREAK
>
> CASE 10
> -- EXIT
> BREAK
>
> CASE 11
> -- spare
> BREAK
>
> CASE 12
> -- spare
> BREAK
>
> GOTO start
>
> ENDSW
>
> GOTO mainmenu
>
>
>
