topic Re: fixed field length by adding zeros in Application Development and Automation Discussions

fixed field length by adding zeros

Former Member — Thu, 18 Feb 2010 21:12:32 GMT

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.

Re: fixed field length by adding zeros

Former Member — Thu, 18 Feb 2010 21:45:51 GMT

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.

Re: fixed field length by adding zeros

Former Member — Thu, 18 Feb 2010 21:51:02 GMT

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.

Re: fixed field length by adding zeros

Former Member — Thu, 18 Feb 2010 22:31:44 GMT

Thank you so much. solved it.