** We reset the TALK setting LOCAL cTalk, cEscape, cUDFParms m.cUDFParms = THIS.cUDFParms IF !EMPTY(m.cUDFParms) SET UDFPARMS TO &cUDFParms ENDIF m.cTalk = THIS.cTalk IF !EMPTY(m.cTalk) SET TALK &cTalk ENDIF m.cEscape = THIS.cEscape IF !EMPTY(m.cEscape) SET ESCAPE &cEscape ENDIF SYS(3054,THIS.nSys3054) ** We make sure the screen is activated ACTIVATE SCREEN ** We reset the old status SET MESSAGE TO THIS.cOldStatus DODEFAULT()