Use procedure SEND_STATUS to send a status message from an application program to the API library when the application program has no other message to send to Operations Sentinel but needs to reset its heartbeat timer.
This is the declared exported procedure:
PROCEDURE SEND_STATUS(STATUSIN); EBCDIC ARRAY STATUSIN[0]; LIBRARY SPIAPISUPP;
Input
Initialize the array STATUSIN with the following input parameters:
STATUSIN Description
STATUSIN[0] Application program identification number (length=6
characters)
STATUSIN[6] "OPEN" (length=4 characters)
Procedure Call Example
In this example, the array APPL_ID contains the program identification number returned by LINK_APPL_PROGRAM. The response is returned in the STATUSIN array. It is recommended that the program check the size to determine whether the array was resized by the call to this procedure.
REPLACE STATUSIN[0] BY APPL_ID FOR 6,"OPEN"; SEND_STATUS(STATUSIN); MSGSIZE:=SIZE(STATUSIN); REPLACE PROCESS_RESPONSE[0] BY STATUSIN[0] FOR MSGSIZE UNTIL EQL 48"00";
Results
If the application program is linked to the API library, this procedure returns the message SPIAPI RECEIVED to the application program.
If the application program is not linked to the API library, this procedure returns the message SPIAPI NOT LINKED to the application program.