SBP
 ÿ½ this section of code is how I got arounf the problem that
 ÿ½ DDE doesn't work in build 367. This can be used until the
 ÿ½ bug is fixed.
 ÿ½
 ÿ½ in essence I exit the process loop to do the DDE
 ÿ½ work and then return to the loop. This technique can
 ÿ½ be used with any sub/func that is not wanted in
 ÿ½ process
 ÿ½
 ÿ½ this section goes in startup as the main loop
 ÿ½ this can call any function that will not work
 ÿ½ with process
 ÿ½
 ÿÿFnName$
 .....
 BackProcess%%ÿ0
 ÿ³ÿ_ÿwErrorCond
 
 ÿØ(ExitCond%%ÿ0)
ÿÉÿæBackProcess%%
ÿ½ set up a case for every non process function
ÿæ1

ÿƒSingleLetter()

Superbase.ProcessFlush()
ÿæ2

ÿƒMyMailMerge()

Superbase.ProcessFlush()
ÿæ3

ÿƒDDEReadOnly()

Superbase.ProcessFlush()
ÿæÿ^

process()
ÿ’ÿÉ
 ÿÙ
 ÿ½ ......

 
 ÿ½ This is how the called function could look
 ÿ½ 
ÿÿCallSLetter()
FnName$ÿ"CallSLetter":ÿ½ a var I use to store in
ÿ½ the sub causing an error in a log file if an error occurs
ÿ½ 
ÿ½ **************************************************************************
ÿ½ *  single document production
ÿ½
ÿ½ This sub is called from the menu/onlick command button etc
ÿ½ and sets up the conditions for the REAL sub to do the
ÿ½ work
ÿ½
ÿ½ I found that the next three lines always end up with
ÿ½ process() being exited. The first to set up the conditions
ÿ½ for being out of process. F1$=1 causes an error
ÿ½ which will result in process() failing. This will
ÿ½ then allow the message queing to be switched off and
ÿ½ the BackProcess%% flag to be set to the appropriate number
ÿ½ that calls the function that does the real work
 
Superbase.ProcessQueueÿÿ1
Superbase.ProcessClear()
BackProcess%%ÿ1
F1$ÿ1
Superbase.ProcessQueueÿ0
 ÿ’ÿÿ
 
ÿÿSingleLetter()
FnName$ÿ"SingleLetter"
ÿ½ Here is the real code to execute
ÿ½ .....


ÿ½ .....
ÿ½ This goes at the end of the function
ÿ½ activate process queue
Superbase.ProcessQueueÿÿ1
ÿ½ set BackProcess%% flag to return main loop to execute Process() 
BackProcess%%ÿ0
 ÿ’ÿÿ

ErrorCond:
ÿ¡ÿ&ÿ20ÿpÿyÿ±:ÿ½ forced error to come out of process()   
Superbase.visibleÿÿ1
ÿ´"c:\hcserr.txt"ÿ›ÿT
ÿ{ÿQ" "ÿ7(ÿRÿtt&%,"hh:mm ")"Closing down. Error number "ÿ
ÿ(Superbase.LastError,"999")ÿ
" has occurred:"ÿ((Superbase.LastError)
ÿ{"          in funtion "FnName$" in current directory "Superbase.CurrentDirectory
ÿ½ .....