topic Length in Application Development and Automation Discussions

Length

Former Member — Wed, 31 Jan 2007 14:09:47 GMT

I am entereing a number whose length is 9 characters longs... The system should proceed only if the length is equal to 9 characters.. How could i check that...

Re: Length

Former Member — Wed, 31 Jan 2007 14:13:22 GMT

I think the syntax is

data w_length(10).

data w_field(9).

w_field = '12345678'.

w_length = STRLEN( w_field )

Anyway the command is STRLEN.

Re: Length

Former Member — Wed, 31 Jan 2007 14:13:26 GMT

strlen

Report zex33.

parameter : str(9).

data : len type i.

len = STRLEN( str ).

if len eq 9.

write : / str.

else.

write : / 'String length is not equal to 9'.

endif.

Re: Length

Former Member — Wed, 31 Jan 2007 14:13:49 GMT

Hi alexander,

you can store the inpur number in a field defined as string

then you can use STRLEN keyword to get the length

hope this helps

Re: Length

Former Member — Wed, 31 Jan 2007 14:13:51 GMT

Hi,

Use STRLEN to get lenth of the field.

Regards,

Balavardhan.K

Re: Length

suresh_datti — Wed, 31 Jan 2007 14:14:04 GMT

use the DESCRIBE statetment to get the length of the field..

~Suresh

Re: Length

Former Member — Wed, 31 Jan 2007 14:14:09 GMT

Hi,

Assign the value to string & calculate the length of string (strlen). if it is less than 9 then throw an error message.

Ashvender

Re: Length

RichHeilman — Wed, 31 Jan 2007 14:14:38 GMT

Try something like this.

data: len type i.
parameters: p_fld(9) type c.


at selection-screen.

   len = strlen( p_fld ).
    if len <> 9.
      message e001(00) with 'Value does not have a length of 9'.
    endif.

Regards,

Rich Heilman

Re: Length

Former Member — Wed, 31 Jan 2007 14:14:55 GMT

Let's say the user enters SERNR

What would be the statement to check whether is it 9 characters or not....

Re: Length

Former Member — Wed, 31 Jan 2007 14:15:05 GMT

check V1 = strlen(field).

if V1 = 9.

do the processing.

endif.

Re: Length

Former Member — Wed, 31 Jan 2007 14:21:36 GMT

Here is the code... I have to make sure that I_SERNR then it has to process the code... How can i do that...

DATA: I_EQUI LIKE EQUI.

DATA: I_SERNR LIKE EQUI-SERNR.

I_SERNR = SERNR.

SHIFT I_SERNR LEFT DELETING LEADING '0'.

DATA: SERNR LIKE EQUI-SERNR.
DATA: MATNR TYPE MATNR.

IF SY-TCODE = 'MB31'.

SELECT SINGLE * FROM EQUI INTO I_EQUI

WHERE EQTYP = 'S'

AND MATNR = MATNR

AND SERNR = SERNR.

IF SY-SUBRC EQ 0.

MESSAGE E398(00) WITH 'SERIAL NUMBER ALREADY EXISTS'.

ELSE.

IF I_SERNR0(1) = '2' OR I_SERNR0(1) = '3' OR I_SERNR+0(1) = '6'.

IF I_SERNR1(2) = SY-DATUM2(2).

IF I_SERNR3(2) LE SY-DATUM4(2).

IF I_SERNR5(4) GT '0000' AND I_SERNR5(4) LT '9999'.

ELSE.

MESSAGE E398(00) WITH 'PLEASE ENTER RANGE WITHIN 0000 AND 9999'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'PLEASE ENTER A DATE IN THE PAST'.

ENDIF.

ELSE.

IF I_SERNR1(2) LT SY-DATUM2(2).

IF I_SERNR5(4) GT '0000' AND I_SERNR5(4) LT '9999'.

ELSE.

MESSAGE E398(00) WITH 'PLEASE ENTER RANGE WITHIN 0000 AND 9999'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'PLEASE ENTER A DATE IN THE PAST'.

ENDIF.

ELSE.

MESSAGE E398(00) WITH 'INVALID MANUFACTURING SITE'.

ENDIF.

ELSE.

SELECT SINGLE * FROM EQUI INTO I_EQUI

WHERE EQTYP = 'S'

AND MATNR = MATNR

AND SERNR = SERNR.

IF SY-SUBRC NE 0.

MESSAGE E398(00) WITH 'PLEASE ENTER A VALID SERIAL NUMBER'.

ENDIF.

Re: Length

Former Member — Wed, 31 Jan 2007 14:22:38 GMT

I_SERNR has to be 9 characters long..How can do that..

Re: Length

Former Member — Wed, 31 Jan 2007 14:39:27 GMT

Hi,

Do like this:

data: length type i.

data: v_string type string.

v_string = I_SERNR.

Write this code before IF statement(SY-TCODE = 'MB31').

length = strlen( v_string ).

if length <> 9.

message e000(0) with 'Value length is not = 9'.

endif.

Ashvender

Re: Length

RichHeilman — Wed, 31 Jan 2007 14:50:46 GMT

DATA: I_EQUI LIKE EQUI.
DATA: I_SERNR LIKE EQUI-SERNR.
I_SERNR = SERNR.
SHIFT I_SERNR LEFT DELETING LEADING '0'.

* DATA: SERNR LIKE EQUI-SERNR.
* DATA: MATNR TYPE MATNR.

data: len type i.
len = strlen( i_sernr ).
if len <> 9.
message e001(00) with 'SERNR value not = 9'.
endif.


IF SY-TCODE = 'MB31'.

SELECT SINGLE * FROM EQUI INTO I_EQUI
WHERE EQTYP = 'S'
AND MATNR = MATNR
AND SERNR = SERNR.
IF SY-SUBRC EQ 0.
MESSAGE E398(00) WITH 'SERIAL NUMBER ALREADY EXISTS'.
ELSE.
........

Regards,

Rich Heilman

Re: Length

Former Member — Wed, 31 Jan 2007 15:58:55 GMT

In this current the serial number 2,3 digits are validated against year, 4,5 digits are validated against month. When I enter 13 for the month it is accepting and validating. Also I have to make to sure the valid years are current year and past year, valid months are current month and past month... how to achieve it .....

Re: Length

Former Member — Wed, 31 Jan 2007 17:37:11 GMT

Hi,

I hope following code will solve your problem.

DATA : v_len TYPE i.

PARAMETERS : p_num(9) TYPE n.

AT SELECTION-SCREEN ON p_num.

v_len = STRLEN( p_num ).

IF v_len <> 9.

IF v_len < 9.

MESSAGE 'Length of p_num is Less Than 9' TYPE 'E'.

ELSE.

MESSAGE 'Length of p_num is Greater Than 9' TYPE 'E'.

ENDIF.

Reward points if the answer is helpful.

Regards,

Mukul