Forgive me all, Friday afternoon and I'm brain dead again. It is hard to concentrate after Hurricane Isabel I guess. :o) I am importing a file and I bring in a field that is character but represents a numeric value. For instance, I will readin "00025000" which represents 25,000 but I need to transform it to "25" in character. "00100000" represents 100,000 but I need to convert it to "100" Should be simple, but I can't seem to get it right today for some reason. I will also readin "00000050" which is 50.00 (no thousands). Always 8 chars to readin. Any ideas?

Here's what I have so far:

covcode = ALLTRIM(SUBSTR(xdata,31,5))
premamt = VAL(SUBSTR(xdata,61,12))/100

Example 1 Data readin:
xdata = "6CVA159 3 W100035VEHR10001    BI   
991125000525???????????????????????????????????????????????????????0005000000100000?????????????????????????????????????????"

*--This one works correctly and returns 50/100 as it should for mcv_bodily
mcv_bodily = PADR(f_limit(xdata),9)

Example 2 Data Readin:
xdata="6CVA159 3 W100065VEHR10001    TL   991125000525???????????????????????????????????????????????????????00000050?????????????????????????????????????????????????"

*--This one returns too many zeros which are later cutoff when saved
*--It should return 50 but it returns 00000050
mcv_towing(crntveh) = SUBSTR(xdata,103,8)

FUNCTION f_limit
PARAMETER fdata
PRIVATE i,j
i = ALLTRIM(TRANS(VAL(SUBSTR(fdata,103,8))/1000,'@Z 99999'))
j = ALLTRIM(TRANS(VAL(SUBSTR(fdata,111,8))/1000,'@Z 99999'))
IF !EMPTY(j)
    i = i +'/'+j
ENDIF
RETURN i

TIA!!!
Tracy