* * BSTTEZAH.C COPYRIGHT TEI 2010-2011 * * USAGE: * * PLACE THE FOLLOWING LINE IN THE PROCEDURE SECTION. * COPY BSTTEZAH. * * PLACE THE FOLLOWING 2 LINES IN THE WORKING STORAGE SECTION. *01 EZA-CALL-DATA. COPY BSTTEZA. *01 EZACIC08-DATA. COPY BSTTEZA8. * * CHANGE LOG: * SEP 04, 2010 TT INITIAL VERSION * EZA-HOSTENT-EXTRACT SECTION. EHE-START. * BEFORE PERFORMING THIS SECTION, SOME FIELDS NEED TO BE SET. * THE FOLLOWING 2 LINES ARE EXAMPLES OF SETTING REQUIRED FIELDS * BUT *NOTE* ONLY FOR THE FIRST CALL TO THIS ROUTINE AFTER * PERFORMING EZA-GETHOSTBYNAME. LEAVE THESE 2 FIELDS AS-IS TO * PROCESS ANY ADDITIONAL RESULTS AFTER THE FIRST. * MOVE +0 TO EZ8-HOSTALIAS-SEQ. * MOVE +0 TO EZ8-HOSTADDR-SEQ. MOVE 'EZACIC08' TO CURRENT-FUNCTION. MOVE +0 TO EZA-RETCODE. CALL 'EZACIC08' USING EZA-HOSTENT EZ8-HOSTNAME-LENGTH EZ8-HOSTNAME-VALUE EZ8-HOSTALIAS-COUNT EZ8-HOSTALIAS-SEQ EZ8-HOSTALIAS-LENGTH EZ8-HOSTALIAS-VALUE EZ8-HOSTADDR-TYPE EZ8-HOSTADDR-LENGTH EZ8-HOSTADDR-COUNT EZ8-HOSTADDR-SEQ EZ8-HOSTADDR-VALUE EZA-RETCODE. EHE-EXIT. EXIT. * * BSTTEZAH END *