On Fri, Jan 9, 2009 at 2:28 PM, Michael
<address@hidden> wrote:
Good stuff to know, and I do appreciate your input, I may even change my
ways someday. ;-)
Thanks,
Mike.
Bill Klein wrote:
> The NUMVAL functions (NumVal, NumVal-C, and (new) NumVal-F) do not TELL you
> the number of decimal points, but they do support input with any number of
> decimal points that would be valid in a COBOL data item (i.e. 18 in older
> COBOL and 31 digits in current COBOL).
>
> You can get the decimal part of a numeric-edited input field by using a
> combination of NumVal functions and INTEGER-OF functions. This would allow
> you to "move" the output of a combination of functions to a
> Pic SV9(31)
> receiving item to get all (and just) the decimal portions of an input field.
>
> P.S. I understand that there are MANY "de-editing" routines around -
> especially for shops that started using '74 or earlier COBOL. I was only
> pointing out that OpenCOBOL includes the intrinsic function(s) to do most of
> what is wanted by such routines.
>
------------------------------------------------------------------------------