GUI ScreenIO for Windows

GetComputerName

This API returns the NETBIOS name of the computer. This may be useful if you are trying to format a UNC of the form \\machinename\directory, or if you need to keep track of where transactions were processed.

Client/Server issues

This API will return the Machine Name of the client. You can optionally return the machine name of the server you can preceded the API call with the following Set statement:

SET WIN32API-EXECUTE-API-ON-SERVER TO TRUE

Files

Files available to copy to your system:

GETCOMNM.COB - COBOL copybook with arguments for this function
WIN32API.COB - COBOL copybook common to all APIs and functions

Usage

COPY WIN32API.
COPY GETCOMNM.

* ------------------------: Call the API.
*
     SET API-GETCOMPUTERNAME TO TRUE.

     CALL 'GSWINAPI' USING WIN32API-PARMS
                           API-COMPUTER-NAME
                           WIN32API-B
                           WIN32API-C
                           WIN32API-D
                           WIN32API-E
                           WIN32API-F.

Parameters specific to this function

API-COMPUTER-NAME

This field will receive the name of the computer. It will be a null terminated string. You may unstring this field delimited low-value to obtain the actual name. The actual length of the string including the terminating low-value will be be in WIN32API-RC.

WIN32API-PARMS - Used in all GSWINAPI calls

This argument is standard for all CALLs to GSWINAPI. It is used to select the desired API or function, and to return the status of the operation.

WIN32API-RC

Used to return the status of a call to GSWINAPI. A value of zero is a failure, any other value indicates success.

Recommended usage is to test the 88-level value WIN32API to see if it worked, then to use the text error message to see why it failed.

* ------------------------: If function failed,
*                         :   display the error in a message box.
*
     IF WIN32API-FAILED
       MOVE WIN32API-ERROR-TEXT TO panel-MESSAGE-TEXT
       SET panel-MESSAGE-IN-MESSAGEBOX TO TRUE.

WIN32API-ERROR-CODE

Error code that was returned by Windows. This is not generally useful unless you have the Windows Platform SDK documentation available to you.

WIN32API-ERROR-TEXT

Plain-text error message that describes why the operation failed.

WIN32API-A through WIN32API-F

The number of these present varies depending on how many arguments are used by the desired function. These are not used, but must be present because this CALL requires seven arguments.

TOC

Send feedback to Norcom