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.