So here is the situation. I have one program that is displaying a message as an alert box. What I would like to be able to do is run this program from another program and suppress the alert box or find a way to clear it from the screen programmatically. As it is now I have to press enter or space while the program is running to move past the alert box. Below is some example code to try to explain what is happening.
Initial Program:
Code to run above program.
Initial Program:
Code:
/* example1.p */
FOR EACH xtbl NO-LOCK:
WHERE xtbl.field = 1:
FOR EACH xtbl2 EXCLUSIVE-LOCK
WHERE xtbl2.field = xtbl.field:
IF xtbl.field2 = "Z"
THEN DO:
xtbl2.field3 = 1.
MESSAGE "Field3 = 1." VIEW-AS ALERT-BOX.
END.
ELSE DO:
xtbl2.field3 = 0.
MESSAGE "Field3 = 0." VIEW-AS ALERT-BOX.
END.
END.
END.
Code:
/* example2.p */
RUN example1.p.