Re: One function to Trim and Edit a number.

[CRPence <CRPbottle@xxxxxxxxx>]

  Since sending a message, why not stop using dynamic\impromptu 
message [text], and just let the message handler feature replace the 
string variable TRIMmed into a message string defined with a 
specific message identifier?  ADDMSGD MSGID(XYZABCD) 
MSGFILE(MyMsgFile) MSG('Customer &1 not found.') VAR((*CHAR 14)) 
[cmd syntax is suspect\un-verified] and then send the 
edited\character result as the replacement variable for send message 
and retrieve message.

Regards, Chuck

John Rusling wrote:
> I find I'm constantly using %trim(%editc(Cust#:'3')) for
> messages, logs, etc.
>
> I got sick of having to use 2 bifs to do this.
>
> So I made tred() and it works great for numbers with
> zero decimal places.
>
> Without tred -
>
>            msg_Send('Customer ' + %trim(%editc(sfCust#:'3'))
>                     + ' not found.');
>
> With tred (optional editcode not passed) -
>
>            msg_Send('Customer ' + tred(sfCust#)
>                     + ' not found.');
>
> I find I'm using this in a ton of places, but, it doesn't
> handle decimal places, so --
>
> I made another one, tred2() to do the same thing
> but for 2 decimal places.
>
> Anyone got a better and/or cleaner scheme to do this,
> as far as handling 1,2,3 or 4 decimal places?
> (1 function to handle all decimal place variations)
>
> Improvement suggestions?
>
> <<SNIP>>