This Repeat .. End. only one time working.
I need Working when wstate value True.
Thank you for all.
DEF VAR data AS CHAR NO-UNDO.
REPEAT:
PROCESS EVENTS.
IF wstate THEN LEAVE.
IF SEARCH('C:\DATA.TXT') <> ? THEN
DO:
INPUT FROM 'C:\DATA.TXT'.
DO WHILE TRUE:
IMPORT UNFORMATTED data .
MESSAGE data VIEW-AS ALERT-BOX.
END.
INPUT CLOSE.
DOS SILENT 'DEL C:\DATA.TXT /S'.
END.
END.
I need Working when wstate value True.
Thank you for all.
DEF VAR data AS CHAR NO-UNDO.
REPEAT:
PROCESS EVENTS.
IF wstate THEN LEAVE.
IF SEARCH('C:\DATA.TXT') <> ? THEN
DO:
INPUT FROM 'C:\DATA.TXT'.
DO WHILE TRUE:
IMPORT UNFORMATTED data .
MESSAGE data VIEW-AS ALERT-BOX.
END.
INPUT CLOSE.
DOS SILENT 'DEL C:\DATA.TXT /S'.
END.
END.