TS/MP 2.5 Pathsend and Server Programming Manual

Calls From COBOL85
To invoke any of the procedures from within a COBOL85 program, you must execute a statement
of this form:
USING pathmon-process-name
pathmon-process-name-len
ENTER "SERVERCLASS_SEND_"
server-class-name
server-class-name-len
message-buffer
request-len
maximum-reply-len
actual-reply-len
timeout
flags
scsend-op-num
tag
GIVING error
pathmon-process-name, pathmon-process-name-len,
server-class-name, server-class-name-len, message-buffer,
request-len, maximum-reply-len, actual-reply-len, timeout,
flags, scsend-op-num, and tag
are variables defined in the WORKING-STORAGE SECTION of the DATA DIVISION.
The types of these variables must be the COBOL85 types that correspond to the
TAL variable types specified in the Pathsend procedure-call description later in this
chapter. For a table of these corresponding data types, see the information about
invoking non-COBOL routines in the COBOL85 Manual.
If the length of a string parameter is declared in a separate parameter (as in
SERVER_CLASS_SEND_), this parameter must be passed to the procedure. If the
length is declared as part of the string parameter in the form name:length (as in
SERVERCLASS_DIALOG_BEGIN_ and SERVERCLASS_DIALOG_SEND_), the length
must not be passed explicitly.
error
is an integer variable (USAGE NATIVE-2) defined in the WORKING-STORAGE
SECTION of the DATA DIVISION.
For further information, see the COBOL85 Manual.
Calls From Pascal
To invoke any of the procedures from within a Pascal program, you must execute a statement of
this form:
( pathmon-process-name
error := SERVERCLASS_SEND_
,pathmon-process-name-len
,server-class-name
,server-class-name-len
,message-buffer
,request-len
,maximum-reply-len
,actual-reply-len
,timeout
,flags
,scsend-op-num
,tag )
error
is a variable of type IO_Error_Number defined earlier in your data declarations.
76 Pathsend Procedure Call Reference