Wäre dann so... aber funktioniert leider nicht... die ERRMSG wird nur ganz kurz für weniger als 1 Sek. angezeigt.

Ferrmsg CF E WORKSTN
C dou *in03 = *on
C exfmt test
C if *in03 = *off
C if feld1 = 'F'
C eval *in99 = *on
C write test
C eval *in99 = *off
C else
C eval *in99 = *off
C endif

C endif
C enddo
C eval *inlr=*on

vorher hatte ich es so... und es hat funktioniert. Jedoch funktioniert es bei einigen Programmen und bei anderen nicht.

Ferrmsg CF E WORKSTN
C dou *in03 = *on
C exfmt test
C if *in03 = *off
C if feld1 = 'F'
C eval *in99 = *on
C else
C eval *in99 = *off
C endif

C endif
C enddo
C eval *inlr=*on