topic Re: Rotating a character or string data in Application Development and Automation Discussions

Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:28:01 GMT

Is there a key word or function module in ABAP which rotates a character or a string data. For example if the data is 'SAP', I should get it as 'PAS'.

Regards,

Aravind

Re: Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:31:42 GMT

data : str(3) type c value 'PAS',

str1(3) type c,

len type i,

pos type i,

len1 type i.

len = strlen( str ).

len1 = len.

len = len - 1.

do len1 times.

str1pos(1) = strlen(1).

pos = pos + 1.

len = len - 1.

enddo.

write : / str1.

regards

shiba dutta

Message was edited by:

SHIBA DUTTA

Re: Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:31:50 GMT

Use function module STRING_REVERSE

or u can use.

data : c(5) value 'ABCDE'.
data : l type i,i type i value -1.
data : str(5) .
l = strlen( c ).

do l times.
i = i + 1.
l = l - 1.
STR+i(1) = C+l(1).
enddo.
write STR.

Re: Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:32:19 GMT

HI,

USe:

<b>SHIFT C CIRCULAR.</b>

Shifts C cyclically, that is, the character that is pushed out

is reinserted at the other end of the string. You can use this

addition with both the RIGHT and LEFT additions.

DATA: ALPHA1(11) TYPE C VALUE 'ABCDEFGHIJ',

ALPHA2 TYPE STRING.

ALPHA2 = ALPHA1.

SHIFT ALPHA1 CIRCULAR.

SHIFT ALPHA2 CIRCULAR.

ALPHA1 now has the contents 'BCDEFGHIJ A' and ALPHA2 the

contents 'BCDEFGHIJA'.

Hope this helps.

Reward if helpful.

Regards,.

Sipra

Re: Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:32:26 GMT

Hi,

Use this FM STRING_REVERSE

pass the value to string

Regards

Shiva

Re: Rotating a character or string data

Former Member — Thu, 22 Feb 2007 04:40:49 GMT

See this code samepl


DATA: string11(15) type c.
CALL FUNCTION 'STRING_REVERSE'
  EXPORTING
    string          =  'TEST PROGRAM'
    lang            =  'E'
 IMPORTING
   RSTRING         =  string11
* EXCEPTIONS
*   TOO_SMALL       = 1
*   OTHERS          = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Write:/ string11.

DATA: ALPHABET(10) VALUE 'ABCDEFGHIJ', 
      THREE(3)     VALUE    'DEF', 
      FOUR(4)      VALUE    'DEF '. 
SHIFT ALPHABET UP TO FOUR. 

SY-SUBRC is now set to 4, and the field ALPHABET remains unchanged. 

SHIFT ALPHABET UP TO THREE CIRCULAR. 

SY-SUBRC is now set to 0 and ALPHABET has the contents 'DEFGHIJABC'.

DATA: ALPHA1(11) TYPE C VALUE 'ABCDEFGHIJ', 
      ALPHA2     TYPE STRING. 
ALPHA2 = ALPHA1. 
SHIFT ALPHA1 CIRCULAR. 
SHIFT ALPHA2 CIRCULAR.

<b>

ALPHA1 now has the contents 'BCDEFGHIJ A' and ALPHA2 the contents 'BCDEFGHIJA'.</b>

Message was edited by:

Judith Jessie Selvi