GGS_REPORTMESSAGE

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.

text

The text of the message.

result

A code indicating whether the call was successful or not.