Trimming leading and trailing zeros

[gregwga50]

Does anyone have any ideas for a routine to trim leading and trailing zeros from a numeric field that is zoned(7:4) and plop them into a character field.

Thanks

[Peder Udesen]

Something like
myCharField = %trim( %char(myNumField) : '0 ');