GDSX Manual

APPLS Requester Listing
Extended General Device Support (GDSX) Manual–134303
A-3
APPLS Listing
WT^CT :=28;
S^MSG^BUF ':=' 8*[" "] & ["PLEASE RE-ENTER DATA"];
CALL WRITE(MSG^FILE,MSG^BUF,WT^CT);
IF <> THEN
BEGIN ! CONTINUE ON GDSX SWITCHOVER
CALL FILEINFO(MSG^FILE,FERR);
IF (FERR <> 210) THEN CALL DEBUG;
END;
END
ELSE ! OTHER ERROR CONDITION
CALL DEBUG;
CALL DELAY(200D);
END;
END;