topic Regarding Logic for below statements in Application Development and Automation Discussions

Regarding Logic for below statements

Former Member — Tue, 29 May 2007 07:04:17 GMT

Hi,

What can be the logic for 2nd statement below:

1. Capture the user entered zip code in to a variable

2. Check the Variable[Code] if it is not 10 digits then

convert it into format ZZZZZ-XXXX by padding it with zeros.

EX: if user enters only 65549 convert it to 65549-0000

Thanks in advance.

Thanks,

Deep.

Re: Regarding Logic for below statements

Former Member — Tue, 29 May 2007 07:12:23 GMT

REPORT ychatest.

PARAMETERS : p_value(10) default '65439'.

DATA : v_len TYPE i.
v_len = strlen( p_value ).

IF v_len NE 10.
  v_len = 10 - v_len - 1.
  CONCATENATE p_value '-' INTO p_value.
  DO v_len TIMES.
    CONCATENATE p_value '0' INTO p_value.
  ENDDO.
  WRITE : p_value.
ENDIF.

Re: Regarding Logic for below statements

graghavendra_sharma — Tue, 29 May 2007 07:22:06 GMT

Try out the following logic

data: n1(10) value '12345',

n2(11), i1 type i.

i1 = strlen( n1 ).

if i1 < 10.

concatenate n1 '-00000' into n2.

endif.

write: / i1, / n2.

Re: Regarding Logic for below statements

Former Member — Tue, 29 May 2007 07:37:44 GMT

HI,

let lv_bar has the value '65549'..

Now define

data: lv_len type i,

lv_len1 type i,

lv_char(10) type c.

lv_len = STRLEN( lv_bar).

if lv_len < 10.

lv_len1 = 10 - lv_len.

do lv_len1 times.

concatenate '0' to lv_char.

enddo.

CONCATENATE lv_bar '-' lv_char.

endif.