Allows a user exit to write a message to the report file.
Syntax
For C:
#include "usrdecs" short result; char text[132]; result = GGS_REPORTMESSAGE(&text);
For TAL:
?source usrdect int result; string .ext text; result := GGS_REPORTMESSAGE(text) ;
For COBOL:
?CONSULT =EXTRACT (or =REPLICAT) 01 result PIC S9(4) COMP. 01 text PIC X(132). ENTER C "GGS_REPORTMESSAGE" using text giving result.
Note:
The string value in message text must be null terminated.