* $$ JOB JNM=BSTTEZA,CLASS=0,LDEST=(,TTHIGPEN),PDEST=(,TTHIGPEN) * $$ LST JSEP=0,CLASS=O * $$ PUN JSEP=0,CLASS=O // JOB BSTTEZA // EXEC LIBR,SIZE=256K,PARM='MSHP' ACC S=BSILIB.TTDEV CATALOG BSTTEZA.C REPLACE=YES EOD=/+ * * BSTTEZA.C COPYRIGHT TEI 2001-2011 * * USAGE: * PLACE THE FOLLOWING LINE IN THE WORKING STORAGE SECTION. *01 EZA-CALL-DATA. COPY BSTTEZA. * * CHANGE LOG: * AUG 19, 2009 TT UPDATES FOR IPV6 SUPPORT * TT = TONY THIGPEN TONY@VSE2PDF.COM * APR 05, 2010 TT UPDATES FOR GETADDRINFO * TT CORRECTED LENGTHS OF EZA-NAME AND EZA-NAMEV6 * MAY 10, 2010 TT ADDED SYNC WHERE POSSIBLE * AUG 27, 2010 TT ADDED NTOP & PTON FIELDS. * SEP 09, 2011 TT ADDED EZA-UNIX AND O * SEP 29, 2011 TT MADE EZA-RES-X SYNC * 05 EZA-FUNCTION PIC X(16). 05 FILLER PIC S9(09) COMP SYNC. 05 EZA-AF PIC S9(09) COMP VALUE +2. 05 EZA-BACKLOG PIC S9(09) COMP VALUE +10. 05 EZA-CANNLEN PIC S9(09) COMP. 05 EZA-CLIENT. 10 EZA-CLIENT-DOMAIN PIC S9(09) COMP. 10 EZA-CLIENT-NAME PIC X(08). 10 EZA-CLIENT-TASK PIC X(08). 10 EZA-CLIENT-TOKEN PIC X(04). 10 FILLER PIC X(16). 05 FILLER PIC S9(09) COMP SYNC. 05 EZA-COMMAND-X. 10 EZA-COMMAND PIC S9(09) COMP. 05 EZA-DSTADDR PIC X(45). 05 EZA-DSTLEN PIC S9(04) COMP SYNC. 05 EZA-DOMAIN PIC S9(09) COMP SYNC. 05 EZA-ERRNO PIC S9(09) COMP SYNC. 05 EZA-FLAGS PIC S9(09) COMP SYNC. 05 EZA-HINTS POINTER SYNC. 05 EZA-HOSTADDR PIC X(04). 05 EZA-HOSTENT POINTER SYNC. 05 EZA-HOW PIC S9(09) COMP SYNC. 05 EZA-IDENT VALUE SPACES. 10 EZA-IDENT-TCPNAME. 15 EZA-IDENT-TAG PIC X(06). 15 EZA-IDENT-SYSID PIC X(02). 10 EZA-IDENT-ADSNAME PIC X(08). 05 EZA-IPADDRESS PIC X(16). 05 EZA-MAXSNO PIC S9(09) COMP SYNC VALUE +0. 05 EZA-MAXSOC PIC S9(04) COMP SYNC. 05 EZA-MAXSOC-SELECT PIC S9(09) COMP SYNC. 05 EZA-NAMEUX. TT 090911 10 EZA-NAMEUX-FAMILY-X. TT 090911 15 EZA-NAMEUX-FAMILY PIC S9(04) COMP. TT 090911 10 EZA-NAMEUX-PATH PIC X(108). TT 090911 05 EZA-NAMEV6 REDEFINES EZA-NAMEUX. TT 090911 10 EZA-NAMEV6-FAMILY-X. 15 EZA-NAMEV6-FAMILY PIC S9(04) COMP. 10 EZA-NAMEV6-PORTX. 15 EZA-NAMEV6-PORT PIC 9(04) COMP. 10 EZA-NAMEV6-FLOW PIC X(04). 10 EZA-NAMEV6-IPADDRESS PIC X(16). 10 EZA-NAMEV6-SCOPE PIC X(04). 05 EZA-NAME REDEFINES EZA-NAMEUX. TT 090911 10 EZA-NAME-FAMILY-X. 15 EZA-NAME-FAMILY PIC S9(04) COMP. 10 EZA-NAME-PORTX. 15 EZA-NAME-PORT PIC 9(04) COMP. 10 EZA-NAME-IPADDRESS PIC X(04). 10 FILLER PIC X(08). 10 FILLER-TO-MATCH-V6 PIC X(12). 05 EZA-NAMELEN PIC S9(09) COMP SYNC. 05 EZA-NODELEN PIC S9(09) COMP SYNC. 05 EZA-NTOP-FAMILY PIC S9(09) COMP SYNC. 05 EZA-NBYTE PIC S9(09) COMP SYNC. 05 EZA-OPTLEN PIC S9(09) COMP SYNC. 05 EZA-OPTNAME PIC X(04). 05 EZA-OPTVAL PIC X(16). 05 EZA-PRESENTABLE PIC X(45). 05 EZA-PRESENTABLELEN PIC S9(04) COMP SYNC. 05 EZA-PROTO PIC S9(09) COMP SYNC. 05 EZA-RES-X SYN TT 092911 10 EZA-RES POINTER SYNC. 05 EZA-RETCODE-X. 10 EZA-RETCODE PIC S9(09) COMP. 05 EZA-S-X. 10 EZA-S PIC S9(04) COMP. 05 EZA-S-ACCEPT PIC S9(04) COMP SYNC. 05 EZA-SERVICE PIC X(32) VALUE SPACES. 05 EZA-SERVLEN PIC S9(09) COMP SYNC. 05 EZA-SOCRECV PIC S9(04) COMP SYNC. 05 EZA-SOCTYPE PIC S9(09) COMP SYNC VALUE +1. 88 EZA-SOCTYPE-STREAM VALUE +1. 88 EZA-SOCTYPE-DATAGRAM VALUE +2. 88 EZA-SOCTYPE-RAW VALUE +3. 05 EZA-SUBTASK VALUE SPACES. 10 EZA-SUBTASK-9X7 PIC 9(07). 10 EZA-SUBTASK-TYPE PIC X(01). 05 FILLER PIC S9(09) COMP SYNC. 05 EZA-TIMEOUT. 10 EZA-TIMEOUT-SECONDS PIC S9(09) COMP. 10 EZA-TIMEOUT-MICROS PIC S9(09) COMP. * 05 FILLER PIC S9(09) COMP SYNC. 05 EZA-ADDRINFO. 10 EZA-AI-FLAGS PIC S9(09) COMP. 10 EZA-AI-FAMILY PIC S9(09) COMP. 10 EZA-AI-SOCKTYPE PIC S9(09) COMP. 10 EZA-AI-PROTOCOL PIC S9(09) COMP. 10 EZA-AI-ADDRLEN PIC S9(09) COMP. 10 EZA-AI-CANON-PTR POINTER. 10 EZA-AI-ADDR-PTR POINTER. 10 EZA-AI-NEXT-PTR POINTER. * * THE FOLLOWING ARE CONSTANTS USED BY SOME OPERATIONS. * 05 FILLER PIC S9(04) COMP SYNC. 05 EZA-INETANY PIC S9(04) COMP VALUE +0. 05 EZA-UNIX PIC S9(04) COMP VALUE +1. 05 EZA-INET PIC S9(04) COMP VALUE +2. 05 EZA-INET6 PIC S9(04) COMP VALUE +19. 05 EZA-STREAM PIC S9(04) COMP VALUE +1. 05 EZA-DATAGRAM PIC S9(04) COMP VALUE +2. 05 EZA-RAW PIC S9(04) COMP VALUE +3. 05 EZA-TCP PIC S9(04) COMP VALUE +6. 05 EZA-UDP PIC S9(04) COMP VALUE +17. 05 EZA-AI-PASSIVE PIC S9(04) COMP VALUE +1. 05 EZA-AI-CANONNAMEOK PIC S9(04) COMP VALUE +2. 05 EZA-AI-NUMERICHOST PIC S9(04) COMP VALUE +4. 05 EZA-AI-NUMERICSERV PIC S9(04) COMP VALUE +8. 05 EZA-AI-V4MAPPED PIC S9(04) COMP VALUE +16. 05 EZA-AI-ALL PIC S9(04) COMP VALUE +32. 05 EZA-AI-ADDRCONFIG PIC S9(04) COMP VALUE +64. 05 EZA-PATH-OCEXIT PIC X(108) TT 090911 VALUE 'OPERATOR:MSG '. TT 090911 * * BSTTEZA END * /+ /* /& * $$ EOJ