WORKING-STORAGE SECTION.
77 REQARG PIC 9(8) COMP.
77 COUNT PIC 9(8) COMP VALUE max number of interfaces.
LINKAGE SECTION.
01 RETARG.
05 IOCTL-TABLE OCCURS 1 TO max TIMES DEPENDING ON COUNT.
10 NAME PIC X(16).
10 FAMILY PIC 9(4) BINARY.
10 PORT PIC 9(4) BINARY.
10 ADDR PIC 9(8) BINARY.
10 NULLS PIC X(8).
PROCEDURE DIVISION.
MULTIPLY COUNT BY 32 GIVING REQARQ.
CALL 'EZASOKET' USING SOC-FUNCTION S COMMAND
REQARG RETARG ERRNO RETCODE.