Note: Some of these records contain condition names. To generate the appropriate declare statements, specify the following pre-compiler option:
EXPAND88=YES
Each supported function is represented by a field whose value is the function number. The following example illustrates how to issue a READ socket request using the fields within the SOCKET_CALL_INTERFACE record:
CALL 'IDMSOCKI' USING (SOCKET_FUNCTION_READ,
SOCKET_RETCD,
SOCKET_ERRNO,
SOCKET_RESNCD,
. . .);
Note: The SOCKET_CALL_INT record is identical to the SOCKET_CALL_INTERFACE record except that functions values are defined as condition names instead of fields. Unless storage is critical, the SOCKET_CALL_INTERFACE record should be used.
PROCEDURE (P1, P2, P3)
OPTIONS (REENTRANT,FETCHABLE);
DCL (P1,P2,P3) POINTER;
DCL SOCKET_PARMS CHAR(80) BASED (ADDR(P1));
DCL SOCKET_DESCRIPTOR FIXED BINARY(31) BASED (ADDR(P2));
DCL SOCKET_RESUME_COUNT FIXED BINARY(31) BASED (ADDR(P3));
|
Copyright © 2014 CA.
All rights reserved.
|
|