Guardian Procedure Calls Reference Manual

error := NSK_FLOAT_IEEE64_TO_TNS64_( before, after );
if ($int(error) LAND $int(NSK_FLOAT_TNS_OVERFLOW)) then
return( 2D ); -- 2 for overflow (out of range)
return( 0D ); -- 0 for no errors
end;
NSK_FLOAT_IEEE TO TNS Procedures 877