topic prefix zero to alphanumeric characters in Application Development and Automation Discussions

prefix zero to alphanumeric characters

Former Member — Mon, 23 Oct 2006 12:40:36 GMT

Hi All,

Can anyone suggest me any Function module is there to prefix zero to an alphanumeric charcter. I have been trying conversion_exit_alpha_input FM for this purpose but it works fine only for numerics. plaese let me know any FM exists for alphanumeric characters which serves the purpose.

Thanks in Advance

Rijish

Re: prefix zero to alphanumeric characters

FredericGirod — Mon, 23 Oct 2006 12:42:50 GMT

yes

w_size2 = strlen( w_data )

w_size = size - w_size2

concatenate w_zero+0(w_size) w_data into w_data.

something like that

Re: prefix zero to alphanumeric characters

Former Member — Mon, 23 Oct 2006 12:45:09 GMT

U can use the below code.

data : lcons(18) type c value '000000000000000000',

lstring(36) type c.

==>lval is your value.

concatenate lcons lval to lstring.

write lstring(18) to lval.

Re: prefix zero to alphanumeric characters

Former Member — Mon, 23 Oct 2006 12:50:55 GMT

Hi,

i make it in this way:

REPORT ZGRO_TEST.

data: test(18).

data: test1(18).

data: strlen type i.

data: i type i.

test1 = '12wer'.

strlen = strlen( test1 ).

I = 18 - strlen.

test = '000000000000000000'.

test+i = test1.

leading zero.

write: / test.

write: / test1.

Regards, dieter

Re: prefix zero to alphanumeric characters

Former Member — Mon, 23 Oct 2006 12:56:00 GMT

Hi,

You can use the below code.

report abc.

data: v_size1(2) type n,

v_size2(2) type n.

constants: c_zeroes(18) type c value '000000000000000000'.

parameters: p1(18) type c.

shift p1 left deleting leading space.

v_size1 = strlen( p1 ).

if v_size1 lt 18.

v_size2 = 18 - v_size1.

shift p1 right deleting trailing space.

p1+0(v_size2) = c_zeroes.

endif.

write p1.

Also, note that the v_size2 is to be calculated as per your requirement.