W$STATUS works with the ACUCOBOL-GT Web Runtime. It tells the runtime to display a text message in the browser's status bar. See the Acucorp document, A Programmer's Guide to the Internet, for information about the Web Runtime.
CALL "W$STATUS"
USING STATUS-MESSAGE
| STATUS-MESSAGE PIC X(n) | Contains the message to be displayed in the browser's status bar. |
This routine is available only when the calling COBOL program is running in a Web browser window via the ACUCOBOL-GT Web Runtime. The routine is not available to programs run by the standard runtime when the standard runtime is executed by a Web browser. The RETURN-CODE register is set to 1 after a successful call and set to 0 if this routine is unavailable.