This routine retrieves data referenced by a Variant handle. Typically, this is data passed to an ACUCOBOL-GT program from another language such as Visual Basic.
C$GETVARIANT converts Variant type data to COBOL type data. Programs that call ACUCOBOL-GT using the ACUCOBOL-GT Automation Server or runtime DLL pass their parameters (by reference) as Variant types. The COBOL program receives handles to the Variant data. C$GETVARIANT gets the data associated with a particular handle and moves it to a COBOL data item. The data is automatically converted to the proper COBOL format.
Usage
CALL "C$GETVARIANT"
USING H-VARIANT, DEST-ITEM
GIVING RESULT-CODE
Parameters
H-VARIANT USAGE HANDLE
Handle to Variant type data. Data passed in from a program calling ACUCOBOL-GT using the ACUCOBOL-GT Automation Server or runtime DLL is in the form of handles to Variant type data.
DEST-ITEM Any COBOL data type
The destination data item.
RESULT-CODE Signed numeric value
Receives the result code for the operation. This will be 0 or a positive value to indicate success or a negative value to indicate failure.
Under Microsoft Windows this is a code of type HRESULT that can be looked up in Microsoft documentation to determine the reason for the failure or additional information about the success.
Comments
The Variant data associated with H-VARIANT is moved to DEST-ITEM using standard MOVE rules.