Re: Was a decimal point keyed?

[Barbara Morris <bmorris@xxxxxxxxxx>]

Timothy Adair wrote:
> ...
> I'm currently converting a large quantity of old RPG II programs to 
> free-format RPG IV, and the users want to be able to enter numeric 
> fields, with or without keying in a decimal point.  So I have to allow 
> them to enter data either way, and determine which way they keyed it in, 
> and display it with the decimal point.

Maybe you should have a preference, so during a given session the user 
has to always enter the data with or without the decimal point.  That 
way you don't have to guess, and your users are happy.  You'd have to 
use a character field for the input.

if preference = NO_DECPOINT;
   val = %int(input) * .01;
else;
   val = %dec(input:63:31);
endif;