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 theSOCKET-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.
01 SOCKET-PARMS PIC X(80).
01 SOCKET-DESCRIPTOR PIC S9(8) COMP.
01 SOCKET-RESUME-COUNT PIC S9(8) COMP.
PROCEDURE DIVISION USING
SOCKET-PARMS,
SOCKET-DESCRIPTOR,
SOCKET-RESUME-COUNT.
|
Copyright © 2014 CA.
All rights reserved.
|
|