fixed field length by adding zeros

[Former Member]

Hi all,

I am wondering how to fix the field length by putting zeros if field length is not as required.

eg. required field length is 4.

& data in filed is 2 then should be - 2000.

if 12 then should be - 1200.

Thanks.

[Former Member]

Hi Rita

Her is the code

DATA: txt(4).

txt = ' 12'.
SHIFT txt LEFT DELETING LEADING space.
TRANSLATE txt USING ' 0'.
WRITE:/ txt.

txt = '  2'.
SHIFT txt LEFT DELETING LEADING space.
TRANSLATE txt USING ' 0'.
WRITE:/ txt.

Regards

Dean Q.

[Former Member]

Thank you so much. solved it.

[Former Member]

below is example for you.

data: t1(4) type c value '1'.

data: len type i,

len2 type i,

diff type i.

describe field t1 length len.

len2 = strlen( t1 ).

diff = len - len2.

case diff.

when '1'.

t1 = t1 * 10.

when '2'.

t1 = t1 * 100.

when '3'.

t1 = t1 * 1000

endcase.

Note: This kind of logic is a basic one. you can resolve urself if you think. Asking basic questions is against forum rules.