Re: Moving a field and removing blanks

[Barbara Morris <bmorris@xxxxxxxxxx>]

On 12/2/2010 3:23 PM, hockchai Lim wrote:
> nah, I trust Barbara's coding skill a bit better than my own.  Plus, she can
> probably comes up with something that is really easy to use like "rate =
> %move(char7)", which I won't be able to do if I would have to create one on
> my own.

I completely agree with Brian on this.

If it is really common for you to have strings of digits that you want 
to interpret as values with decimal places, then write a procedure like 
this, that returns some size of packed value that will handle all your 
needs, say a 63,15 packed value:

   getDecVal(string : number_of_decimals);

Input: '12345'  2     Returns: 123.45
Input: '1234N'  3     Returns: -12.345

It might not be particularly easy to write, but once it is written, you 
are done forever, and your code will be much clearer than it would have 
been with the MOVE opcode.

  rate = %getDecVal(char7 : 2);