* * BSTTEZAR.C COPYRIGHT TEI 2010-2011 * * USAGE: * * PLACE THE FOLLOWING LINE IN THE PROCEDURE SECTION. * COPY BSTTEZAR. * * PLACE THE FOLLOWING 2 LINES IN THE WORKING STORAGE SECTION. *01 EZA-CALL-DATA. COPY BSTTEZA. *01 EZACIC09-DATA. COPY BSTTEZA9. * * CHANGE LOG: * SEP 04, 2010 TT INITIAL VERSION * EZA-RES-EXTRACT SECTION. ERE-START. * BEFORE PERFORMING THIS SECTION, SOME FIELDS NEED TO BE SET. * THE FOLLOWING 2 LINES ARE AN EXAMPLE OF SETTING REQUIRED FIELD * BUT *NOTE* THAT THERE ARE TWO WAYS TO SET THE EZ9-RES VALUE * DEPENDING ON EITHER AFTER PERFORMING * EZA-GETADDRINO OR TO EXTRACT ADDITIONAL * ADDRESSES. * ALL ADDRESSES HAVE BEEN EXTRACTED ONCE EZ9-RES-NEXT-X IS * LOW-VALUES. * SET EZ9-RES TO EZA-RES. * SET EZ9-RES TO EZ9-RES-NEXT. MOVE 'EZACIC09' TO CURRENT-FUNCTION. IF EZ9-RES-X IS EQUAL TO LOW-VALUES MOVE -2 TO EZA-RETCODE GO TO ERE-EXIT. MOVE ZEROS TO EZ9-NAME-LEN. MOVE SPACES TO EZ9-CANONICAL-NAME. SET EZ9-NAME TO NULLS. SET EZ9-RES-NEXT TO NULLS. MOVE +0 TO EZA-RETCODE. CALL 'EZACIC09' USING EZ9-RES EZ9-NAME-LEN EZ9-CANONICAL-NAME EZ9-NAME EZ9-RES-NEXT EZA-RETCODE. IF EZA-RETCODE IS LESS THAN +0 GO TO ERE-EXIT. * SET ADDRESS OF TO EZ9-NAME. * NOTE: MUST BE IN THE LINKAGE SECTION AND * MUST HAVE A LENGTH OF AT LEAST 28 BYTES. * MOVE (1:EZ9-NAME-LEN) TO EZA-NAME. ERE-EXIT. EXIT. * * BSTTEZAR END *