Highlighted
Absent Member.
Absent Member.
1808 views

[archive] How to represent 1.7E+308 this number retrieved from an Active-x control

[Migrated content. Thread originally posted on 18 December 2007]

This is the value 1.7E+308, which will be returned from an active-x control's property. I want to store this value in a acu variable and use it further. Can anyone tell me what is the picture clause to use for storing this number.


Thanks,
Vara Prasad,Vanima.
0 Likes
5 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] How to represent 1.7E+308 this number retrieved from an Active-x control

Whether you will be able to accept it or not depends on the datatype, can you tell what datatype that is defined in the definition file?
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] How to represent 1.7E+308 this number retrieved from an Active-x control

It is defined as a Variant data type.
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] How to represent 1.7E+308 this number retrieved from an Active-x control

Perhaps you can show me the details from the definition file? (not the whole file, just that property)
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] How to represent 1.7E+308 this number retrieved from an Active-x control

Here are the get and put properties from the definition file.
* NoValue
PROPERTY-GET, 1073938451, @NoValue
RETURNING "VARIANT", TYPE 12
* NoValue
PROPERTY-PUT, 1073938451, @NoValue,
"VARIANT* (Property_Value)", TYPE 16396
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] How to represent 1.7E+308 this number retrieved from an Active-x control

Inside the VARIANT wrapper, the real type is stored. For a float, this is normally either VT_R4 (USAGE FLOAT) or VT_R8 (USAGE DOUBLE). These two are handled by the runtime.
Unfortunately, without documentation there is no way to tell which it is, that is being returned by the variant. Normally it is VT_R4, so I would suggest:

77 MyFloat USAGE FLOAT.
...
INQUIRE HandleToFloatObject FloatModule NoValue IN MyFloat.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.