PRB: VAL() Does Not Return Error When Number Is Out of Range

MORE INFORMATION

Code to Reproduce Behavior

CREATE TABLE test (numeric N(10,5), float F(10,5), ;
   double D, currency M, integer I)
APPEND BLANK
nBig=VAL('1E+700')  && largest double precision number has an exp of 308

? TYPE ('nBig')             &&  prints 'N'
? nBig                      &&  prints ********
? STR(nBig,203,7)           && prints 203 *'s
REPLACE numeric WITH nBig   && Numeric overflow. Data was lost
REPLACE float WITH nBig     && Numeric overflow. Data was lost
REPLACE double WITH nBig    && data type mismatch
REPLACE currency WITH nBig  && data type mismatch
REPLACE integer WITH nBig   && Numeric overflow. Data was lost
? LOG(nBig)                 && prints 20 asterisks