Kbase P130403: How can I find out if a MESSAGE .. VIEW-AS ALERT-BOX statement was executed at anytime during my pro
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
12/2/2008 |
|
Status: Verified
GOAL:
How can I find out if a MESSAGE .. VIEW-AS ALERT-BOX statement was executed at anytime during my program?
GOAL:
Is there an attribute which will tell you whether a MESSAGE .. VIEW-AS ALERT-BOX statement was executed during the session?
FACT(s) (Environment):
All Supported Operating Systems
OpenEdge 10.x
FIX:
DEFINE VARIABLE VLine AS CHARACTER NO-UNDO.
DEFINE VARIABLE VResult AS LOGICAL NO-UNDO INITIAL FALSE.
/* Turn On Dynamic Logging And Log Only 4GL MESSAGE ... VIEW-AS ALERT-BOX Statements */
LOG-MANAGER:LOGFILE-NAME = "SomeTemporaryFileName".
LOG-MANAGER:LOG-ENTRY-TYPES = "4GLMessages".
LOG-MANAGER:CLEAR-LOG().
/* Your Application Code Goes Here */
MESSAGE 'hello' VIEW-AS ALERT-BOX.
/* Turn Off Dynamic Logging */
LOG-MANAGER:CLOSE-LOG().
LOG-MANAGER:LOGFILE-NAME = ?.
/* Check Log File For First Instance Of 4GL MESSAGE Statement */
INPUT FROM SomeTemporaryFileName.
REPEAT:
IMPORT UNFORMATTED VLine.
IF INDEX(VLine,'4GL 4GLMESSAGE') > 0 THEN
DO:
ASSIGN VResult = TRUE.
LEAVE.
END.
END.
INPUT CLOSE.
IF VResult = TRUE THEN
DISPLAY '4GL MESSAGE statement was executed'.
ELSE
DISPLAY 'No 4GL MESSAGE statement was executed'.