topic Re: How did a text display in reverse without using function in ABAP? in Application Development and Automation Discussions

How did a text display in reverse without using function in ABAP?

shrgrl — Sun, 13 Dec 2020 19:27:16 GMT

How can a text be write in reverse? How do I access the characters of a text? I want to do this manually without using a function.

DATA : c(10) VALUE 'ABCDE'.
DATA : l TYPE i,
       i TYPE i VALUE -1.
DATA : str LIKE c.
l = strlen( c ).
DO l TIMES.
  i = i + 1.
  l = l - 1.
  str+i(1) = C+l(1).
ENDDO.
WRITE str.

This code works for me but is there a shorter way?

Re: How did a text display in reverse without using function in ABAP?

OlegBash — Sun, 13 Dec 2020 20:24:49 GMT

DATA off TYPE syindex.
DO strlen( in_str ) TIMES.
    off = sy-index - 1.
    out_str = in_str+off(1) && out_str.
ENDDO.

Re: How did a text display in reverse without using function in ABAP?

Sandra_Rossi — Sun, 13 Dec 2020 21:01:30 GMT

Without a function means probably without any function at all, so your code is the shortest legible code.

Re: How did a text display in reverse without using function in ABAP?

shrgrl — Sun, 13 Dec 2020 21:13:58 GMT

It will not work properly since there is no gap control.

Re: How did a text display in reverse without using function in ABAP?

OlegBash — Sun, 13 Dec 2020 21:19:02 GMT

Could you please provide example when it does not work properly?

Also I want to specify the signature of the method

  methods REVERSER
    importing
      !IN_STR type STRING default 'any Text'
    exporting
      !OUT_STR type STRING .

Re: How did a text display in reverse without using function in ABAP?

shrgrl — Sun, 13 Dec 2020 21:42:57 GMT

The output of this code:

The output I want is as follows:

It should also see the gap in between.

Re: How did a text display in reverse without using function in ABAP?

OlegBash — Sun, 13 Dec 2020 21:56:23 GMT

The screenshot from debug.

Please pay attention that data types are strings, not char-like.