ABAP – Seite 2 – SAP and more

SAP Archive nach Kategorien "ABAP" (Seite 2)

String Expressions

lv_char = |Das ist eine Zeichenkette|.

1	lv_char = \|Das ist eine Zeichenkette\|.

Eigenschaften von String Expressions

eingebaute Funktionen
- Beschreibungsfunktionen
- Verarbeitungsfunktionen
Verkettung von Strings mit && (statt CONCATENATE)
verschiedene Formatoperatoren verfügbar, die es z.B. erlaube stellenweise auf CONVERSION_EXITS zu verzichten.

eingebaute Funktionen

zeichenartige Extremwertfunktionen – cmax, cmin

Verdichtungsfunktion – condense

Verkettungsfunktion – concat_lines_of

Fluchtsymbolfunktion – escape

Einfügefunktion – insert

Abgleichfunktion -match

Wiederholfunktion – repeat

Ersetzungsfunktion – replace

Umdrehfunktion – reverse

Segmentfunktion – segment

Verschiebefunktionen – shift_left, shift_right

Teilfeldfunktionen – substring, substring_…

Groß-/Kleinschreibungsfunktionen – to_upper, to_lower, to_mixed, from_mixed

Umsetzfunktion – translate

Formatoptionen

https://help.sap.com/doc/abapdocu_752_index_htm/7.52/de-DE/abapcompute_string_format_options.htm#!ABAP_ADDITION_9@9@

internere Darstellung

DATA lv_matnr TYPE matnr.
lv_matnr =  |{ lv_matnr ALPHA = IN }|.

1 2	DATA lv_matnr TYPE matnr. lv_matnr = \|{ lv_matnr ALPHA = IN }\|.

DATA lv_matnr TYPE matnr.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input  = lv_matnr
   IMPORTING
     output = lv_matnr.

DATA lv_matnr TYPE matnr.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = lv_matnr

IMPORTING

output = lv_matnr.

Demoprogramm

*&---------------------------------------------------------------------*
*& Report  Z_TEST_STRING_EXPR
*&
*&---------------------------------------------------------------------*
*&
*& Zeichenkettentemplates und Formatoptionen (ab ABAP 700)
*&---------------------------------------------------------------------*

REPORT z_test_string_expr.

DATA: lv_matnr    TYPE matnr,
      lv_text1    TYPE char10,
      lv_text2    TYPE char10,
      lv_text3    TYPE char30,
      lv_date     TYPE d,
      lv_number_1 TYPE menge_d,
      lv_number_2 TYPE menge_d.

" Zeichenketten
lv_text1 = |Hallo|.
lv_text2 = |Welt|.

CONCATENATE lv_text1 lv_text2 INTO lv_text3 SEPARATED BY space.
WRITE: /(30) |Verketten Standard|,
         35  lv_text3.

lv_text3 = lv_text1 && lv_text2.
WRITE: /(30) |Verketten mit &&|,
         35  lv_text3.

SKIP 1.

WRITE: /(30) |Komplexes Literal|,
         35  |Characters \|, \{, and \} have to be escaped by \\ in literal text.|.

lv_text3 = lv_text1 && | | && lv_text2.
WRITE: /(30) |&& und \| \| |,
         35  lv_text3.

lv_text3 = |'| && lv_text1 && | | && lv_text2 && |'|.
WRITE: /(30) |&& und \|'\|  |,                                                                         "'
         35  lv_text3.

SKIP 1.

lv_matnr = '12345'.
WRITE: /(30) |Zeichenkette Standard|,
         35  lv_matnr.

WRITE: /(30) |ALPHA IN|,
         35 |{ lv_matnr ALPHA = IN }|.

WRITE: /(30) |ALPHA OUT|,
         35 |{ lv_matnr ALPHA = OUT }|.

WRITE: /(30) |ALIGN LEFT|,
         35 |{ lv_matnr ALIGN = LEFT WIDTH = 18 }|.

WRITE: /(30) |ALIGN RIGHT|,
         35  |{ lv_matnr ALIGN = RIGHT WIDTH = 18 }|.

WRITE: /(30) |ALIGN CENTER|,
         35  |{ lv_matnr ALIGN = CENTER WIDTH = 18 }|.

WRITE: /(30) |PAD|,
         35  |{ lv_matnr ALIGN = RIGHT WIDTH = 18 PAD = '9' }|.

WRITE: /(30) |ALIGN CENTER PAD|,
         35  |{ lv_matnr ALIGN = CENTER WIDTH = 18 PAD = '9' }|.

SKIP 1.
" Zahlen
lv_number_1 = '1234.456'.
lv_number_2 = '-1234.456'.

WRITE: /(30) |Nummer Standard|,
         35  lv_number_1,
         70  lv_number_2.

WRITE: /(30) |SIGN LEFT|,
         35  |{ lv_number_1 SIGN = LEFT }|,
         70  |{ lv_number_2 SIGN = LEFT }|.

WRITE: /(30) |SIGN LEFTPLUS|,
         35  |{ lv_number_1 SIGN = LEFTPLUS }|,
         70  |{ lv_number_2 SIGN = LEFTPLUS }|.

WRITE: /(30) |SIGN LEFTSPACE|,
         35  |{ lv_number_1 SIGN = LEFTSPACE }|,
         70  |{ lv_number_2 SIGN = LEFTSPACE }|.

WRITE: /(30) |DECIMALS|,
         35  |{ lv_number_1 DECIMALS = 2 }|,
         70  |{ lv_number_2 DECIMALS = 2 }|.

WRITE: /(30) |CURRENCY|,
         35  |{ lv_number_1 CURRENCY = 'EUR' }|,
         70  |{ lv_number_2 CURRENCY = 'EUR' }|.

WRITE: /(30) |NUMBER RAW|,
         35  |{ lv_number_1 NUMBER = RAW }|,
         70  |{ lv_number_2 NUMBER = RAW }|.

WRITE: /(30) |NUMBER USER|,
         35  |{ lv_number_1 NUMBER = USER }|,
         70  |{ lv_number_2 NUMBER = USER }|.

WRITE: /(30) |NUMBER ENVIRONMENT|,
         35  |{ lv_number_1 NUMBER = ENVIRONMENT }|,
         70  |{ lv_number_2 NUMBER = ENVIRONMENT }|.

SKIP 1.

" Datum
lv_date = '20150305'.
WRITE: /(30) |Datum Standard|,
         35  lv_date.

WRITE: /(30) |DATE ISO|,
         35   |{ lv_date DATE = ISO }|.

WRITE: /(30) |DATE USER|,
         35   |{ lv_date DATE = USER }|.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

*&---------------------------------------------------------------------*

*& Report Z_TEST_STRING_EXPR

*&---------------------------------------------------------------------*

*& Zeichenkettentemplates und Formatoptionen (ab ABAP 700)

*&---------------------------------------------------------------------*

REPORT z_test_string_expr.

DATA: lv_matnr TYPE matnr,

lv_text1 TYPE char10,

lv_text2 TYPE char10,

lv_text3 TYPE char30,

lv_date TYPE d,

lv_number_1 TYPE menge_d,

lv_number_2 TYPE menge_d.

" Zeichenketten

lv_text1 = |Hallo|.

lv_text2 = |Welt|.

CONCATENATE lv_text1 lv_text2 INTO lv_text3 SEPARATED BY space.

WRITE: /(30) |Verketten Standard|,

35 lv_text3.

lv_text3 = lv_text1 && lv_text2.

WRITE: /(30) |Verketten mit &&|,

35 lv_text3.

SKIP 1.

WRITE: /(30) |Komplexes Literal|,

35 |Characters \|, \{, and \} have to be escaped by \\ in literal text.|.

lv_text3 = lv_text1 && | | && lv_text2.

WRITE: /(30) |&& und \| \| |,

35 lv_text3.

lv_text3 = |'| && lv_text1 && | | && lv_text2 && |'|.

WRITE: /(30) |&& und \|'\| |, "'

35 lv_text3.

SKIP 1.

lv_matnr = '12345'.

WRITE: /(30) |Zeichenkette Standard|,

35 lv_matnr.

WRITE: /(30) |ALPHA IN|,

35 |{ lv_matnr ALPHA = IN }|.

WRITE: /(30) |ALPHA OUT|,

35 |{ lv_matnr ALPHA = OUT }|.

WRITE: /(30) |ALIGN LEFT|,

35 |{ lv_matnr ALIGN = LEFT WIDTH = 18 }|.

WRITE: /(30) |ALIGN RIGHT|,

35 |{ lv_matnr ALIGN = RIGHT WIDTH = 18 }|.

WRITE: /(30) |ALIGN CENTER|,

35 |{ lv_matnr ALIGN = CENTER WIDTH = 18 }|.

WRITE: /(30) |PAD|,

35 |{ lv_matnr ALIGN = RIGHT WIDTH = 18 PAD = '9' }|.

WRITE: /(30) |ALIGN CENTER PAD|,

35 |{ lv_matnr ALIGN = CENTER WIDTH = 18 PAD = '9' }|.

SKIP 1.

" Zahlen

lv_number_1 = '1234.456'.

lv_number_2 = '-1234.456'.

WRITE: /(30) |Nummer Standard|,

35 lv_number_1,

70 lv_number_2.

WRITE: /(30) |SIGN LEFT|,

35 |{ lv_number_1 SIGN = LEFT }|,

70 |{ lv_number_2 SIGN = LEFT }|.

WRITE: /(30) |SIGN LEFTPLUS|,

35 |{ lv_number_1 SIGN = LEFTPLUS }|,

70 |{ lv_number_2 SIGN = LEFTPLUS }|.

WRITE: /(30) |SIGN LEFTSPACE|,

35 |{ lv_number_1 SIGN = LEFTSPACE }|,

70 |{ lv_number_2 SIGN = LEFTSPACE }|.

WRITE: /(30) |DECIMALS|,

35 |{ lv_number_1 DECIMALS = 2 }|,

70 |{ lv_number_2 DECIMALS = 2 }|.

WRITE: /(30) |CURRENCY|,

35 |{ lv_number_1 CURRENCY = 'EUR' }|,

70 |{ lv_number_2 CURRENCY = 'EUR' }|.

WRITE: /(30) |NUMBER RAW|,

35 |{ lv_number_1 NUMBER = RAW }|,

70 |{ lv_number_2 NUMBER = RAW }|.

WRITE: /(30) |NUMBER USER|,

35 |{ lv_number_1 NUMBER = USER }|,

70 |{ lv_number_2 NUMBER = USER }|.

WRITE: /(30) |NUMBER ENVIRONMENT|,

35 |{ lv_number_1 NUMBER = ENVIRONMENT }|,

70 |{ lv_number_2 NUMBER = ENVIRONMENT }|.

SKIP 1.

" Datum

lv_date = '20150305'.

WRITE: /(30) |Datum Standard|,

35 lv_date.

WRITE: /(30) |DATE ISO|,

35 |{ lv_date DATE = ISO }|.

WRITE: /(30) |DATE USER|,

35 |{ lv_date DATE = USER }|.

externe Links

https://weberpatrick.de/abap-zeichenketten-templates-string-expressions/

http://www.cadaxo.com/high-class-development/abap-7-02-new-features-neue-stringfunktionen/

Table Expressions

READ TABLE … INDEX

alte Schreibweise

READ TABLE itab INDEX idx
      INTO wa.

1 2	READ TABLE itab INDEX idx INTO wa.

neue Schreibweise

wa = itab[ idx ].

1	wa = itab[ idx ].

READ TABLE … USING KEY

alte Schreibweise

READ TABLE itab INDEX idx
     USING KEY key
     INTO wa.

READ TABLE itab INDEX idx

USING KEY key

INTO wa.

neue Schreibweise

wa = itab[ KEY key INDEX idx ].

1	wa = itab[ KEY key INDEX idx ].

READ TABLE … WITH KEY

alte Schreibweise

READ TABLE itab
 WITH KEY col1 = …
          col2 = …
 INTO wa.

READ TABLE itab

WITH KEY col1 = …

col2 = …

INTO wa.

neue Schreibweise

wa = itab[ col1 = … col2 = … ].

1	wa = itab[ col1 = … col2 = … ].

READ TABLE … WITH KEY COMPONENTS

alte Schreibweise

READ TABLE itab
         WITH TABLE KEY key
   COMPONENTS col1 = …
              col2 = …
         INTO wa.

READ TABLE itab

WITH TABLE KEY key

COMPONENTS col1 = …

col2 = …

INTO wa.

neue Schreibweise

wa = itab[ KEY key col1 = …
                   col2 = … ].

1 2	wa = itab[ KEY key col1 = … col2 = … ].

Existiert der Datensatz?

alte Schreibweise

READ TABLE itab …
   TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
 …
ENDIF.

READ TABLE itab …

TRANSPORTING NO FIELDS.

IF sy-subrc = 0.

…

ENDIF.

neue Schreibweise

IF line_exists( itab[ … ] ).
…
ENDIF.

IF line_exists( itab[ … ] ).

…

ENDIF.

Index ermitteln

alte Schreibweise

DATA idx type sy-tabix.
READ TABLE …
 TRANSPORTING NO FIELDS.
 idx = sy-tabix.

DATA idx type sy-tabix.

READ TABLE …

TRANSPORTING NO FIELDS.

idx = sy-tabix.

neue Schreibweise

DATA(idx) =
      line_index( itab[ … ] ).

1 2	DATA(idx) = line_index( itab[ … ] ).

Hinweis

Bei der Verwendung von Table Expressions gilt es zu beachten:

Die Tabelle kann aus tiefen Strukturen und Untertabellen bestehen.
Der Wertvergleich ist case sensitive, lt_data[ name = ‚NAME_2‘ ] ist anders als lt_data[ name = ‚Name_2‘ ]
Wird die Zeile nicht gefunden, wird die Exception CX_SY_ITAB_LINE_NOT_FOUND ausgelöst
SY-SUBRC bleibt unverändert, egal ob die Zeile gefunden wurde oder nicht.
Werden mehrere Komponenten einer Zeile benötigt, so sollte die ganze Zeile in eine lokale Workarea übertragen werden. Andernfalls erfolgt der Datenzugriff für jede Komponente einzeln. Dies wirkt sich negativ auf die Laufzeit aus.
Entsprechen mehrere Zeilen der Expression, so wird immer nur auf die erste zugegriffen.
Wird das Ergebnis einer Table Expression einem Feldsymbol zugewiesen (ASSIGN itab[ feld = ‚1‘] to <fs> ), kann die Prüfung auf erfolgreiche Zuweisung entfallen, da eine Exception ausgelöst wird, falls die Zeile nicht existiert.

Links:

https://weberpatrick.de/abap-740-table-expressions/

https://blogs.sap.com/2015/10/25/abap-740-quick-reference/

lv_char = |Das ist eine Zeichenkette|.

1	lv_char = \|Das ist eine Zeichenkette\|.

Inline Deklaration

DATA Statement

alte Schreibweise

DATA text TYPE string.
text = ABC.

1 2	DATA text TYPE string. text = ABC.

neue Schreibweise

DATA(text) = `ABC`.

1	DATA(text) = `ABC`.

LOOP AT … INTO work area

alte Schreibweise

DATA wa like LINE OF itab.

LOOP AT itab INTO wa.

...

ENDLOOP.

DATA wa like LINE OF itab.

LOOP AT itab INTO wa.

...

ENDLOOP.

neue Schreibweise

LOOP AT itab INTO DATA(wa).

...

ENDLOOP.

LOOP AT itab INTO DATA(wa).

...

ENDLOOP.

Deklaration von Hilfsvariablen

alte Schreibweise

DATA cnt TYPE i.

FIND … IN … MATCH COUNT cnt.

DATA cnt TYPE i.

FIND … IN … MATCH COUNT cnt.

neue Schreibweise

FIND … IN … MATCH COUNT DATA(cnt).

1	FIND … IN … MATCH COUNT DATA(cnt).

CALL METHOD

alte Schreibweise

DATA a1 TYPE …
DATA a2 TYPE …
oref->meth( IMPORTING p1 = a1 
            IMPORTING p2 = a2
 ).

DATA a1 TYPE …

DATA a2 TYPE …

oref->meth( IMPORTING p1 = a1

IMPORTING p2 = a2

neue Schreibweise

oref->meth( IMPORTING p1 = DATA(a1) 
            IMPORTING p2 = DATA(a2) ).

1 2	oref->meth( IMPORTING p1 = DATA(a1) IMPORTING p2 = DATA(a2) ).

LOOP AT … ASSIGNING

alte Schreibweise

FIELD-SYMBOLS: <line> type …
LOOP AT itab ASSIGNING <line>.
…
ENDLOOP.

FIELD-SYMBOLS: <line> type …

LOOP AT itab ASSIGNING <line>.

…

ENDLOOP.

neue Schreibweise

LOOP AT itab ASSIGNING FIELD-SYMBOL(<line>).
…
ENDLOOP.

LOOP AT itab ASSIGNING FIELD-SYMBOL(<line>).

…

ENDLOOP.

READ … ASSIGNING

alte Schreibweise

LOOP AT itab ASSIGNING FIELD-SYMBOL(<line>).
…
ENDLOOP.

LOOP AT itab ASSIGNING FIELD-SYMBOL(<line>).

…

ENDLOOP.

neue Schreibweise

READ TABLE itab ASSIGNING FIELD-SYMBOL(<line>).

1	READ TABLE itab ASSIGNING FIELD-SYMBOL(<line>).

SELECT INTO TABLE

alte Schreibweise

DATA itab TYPE TABLE OF dbtab.
SELECT * FROM dbtab
  INTO TABLE itab
  WHERE fld1 = lv_fld1.

DATA itab TYPE TABLE OF dbtab.

SELECT * FROM dbtab

INTO TABLE itab

WHERE fld1 = lv_fld1.

neue Schreibweise

SELECT * FROM dbtab
  INTO TABLE DATA(itab)
 WHERE fld1 = @lv_fld1.

SELECT * FROM dbtab

INTO TABLE DATA(itab)

WHERE fld1 = @lv_fld1.

SELECT SINGLE INTO

alte Schreibweise

SELECT * FROM dbtab
  INTO TABLE DATA(itab)
 WHERE fld1 = @lv_fld1.

SELECT * FROM dbtab

INTO TABLE DATA(itab)

WHERE fld1 = @lv_fld1.

neue Schreibweise

SELECT SINGLE F1 AS my_f1,
              F2 AS abc
  FROM dbtab
  INTO DATA(ls_structure)
  WHERE …
WRITE: / ls_structure-my_f1,
         ls_structure-abc.

SELECT SINGLE F1 AS my_f1,

F2 AS abc

FROM dbtab

INTO DATA(ls_structure)

WHERE …

WRITE: / ls_structure-my_f1,

ls_structure-abc.

Eigenschaften von String Expressions

eingebaute Funktionen

Längenfunktionen – charlen, dbmaxlen, numofchar, strlen

Längenfunktion – char_off

Suchfunktionen – find, find_…

Suchfunktionen – count, count_…

Ähnlichkeitsfunktion – distance

zeichenartige Extremwertfunktionen – cmax, cmin

Verdichtungsfunktion – condense

Verkettungsfunktion – concat_lines_of

Fluchtsymbolfunktion – escape

Einfügefunktion – insert

Abgleichfunktion -match

Wiederholfunktion – repeat

Ersetzungsfunktion – replace

Umdrehfunktion – reverse

Segmentfunktion – segment

Verschiebefunktionen – shift_left, shift_right

Teilfeldfunktionen – substring, substring_…

Groß-/Kleinschreibungsfunktionen – to_upper, to_lower, to_mixed, from_mixed

Umsetzfunktion – translate

Formatoptionen

internere Darstellung

Demoprogramm

externe Links

READ TABLE … INDEX

READ TABLE … USING KEY

READ TABLE … WITH KEY

READ TABLE … WITH KEY COMPONENTS

Existiert der Datensatz?

Index ermitteln

Hinweis

DATA Statement

LOOP AT … INTO work area

Deklaration von Hilfsvariablen

CALL METHOD

LOOP AT … ASSIGNING

READ … ASSIGNING

SELECT INTO TABLE

SELECT SINGLE INTO

Categories

Links

Kategorien

Meta

Wolke

Archive