* :--------------------------------------- * ------------------------: Copybook for GetComputerName * : See the documentation for details. * :--------------------------------------- * * : Note: This API retrievs the name of * : the computer it is running on. * : Usefull if you need to keep * : track of where transactions * : originate. * To use: * * -----Get Computer Name Example ----------------------- * COPY WIN32API. * COPY GETCOMNM. * . * . * ------------------------: Call the API to get the value * * SET API-GETCOMPUTERNAME TO TRUE. * CALL 'GSWINAPI' USING WIN32API-PARMS * API-COMPUTER-NAME * WIN32API-B * WIN32API-C * WIN32API-D * WIN32API-E * WIN32API-F. * * ------------------------: If function failed, * : display a textual error message. * * IF WIN32API-FAILED * MOVE WIN32API-ERROR-TEXT TO my-error-message * do whatever to display my-error-message. * 01 API-COMPUTER-NAME PIC X(32).