<BLOCKQUOTE><font size="1" face="Verdana, Arial">Zitat:</font><HR>Wenn der Fehler beseitigt ist, kommt der SBM wieder rein[/quote]
never change it if it's not broken
Code:
crtAtaAra qtemp/test *lgl value('1')

im Programm

rtvDtaAra test RtnVar(&test)
monMsg cpf0000 exec(chgVar &test '0')

   . . .

if &test +
   then(do)
      . . .
   endDo
   else do
      . . .
   endDo