interne Tabelle

REPORT YZSM0007 .
TABLES SFLIGHT.
DATA: FLUG_LISTE LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.

SELECT * FROM SFLIGHT INTO TABLE FLUG_LISTE.

LOOP AT FLUG_LISTE.
WRITE: /10 FLUG_LISTE-CARRID, 20 FLUG_LISTE-CONNID,
30 FLUG_LISTE-FLDATE, 40 FLUG_LISTE-PRICE.
ENDLOOP.

DELETE FLUG_LISTE WHERE CARRID NE ‚LH‘.

ULINE.
READ TABLE FLUG_LISTE WITH KEY CARRID = ‚LH‘ CONNID = ‚0400‘.
IF SY-SUBRC EQ 0.
FLUG_LISTE-PRICE = 3 * FLUG_LISTE-PRICE.
MODIFY FLUG_LISTE INDEX SY-TABIX.
WRITE: /10 FLUG_LISTE-CARRID, 20 FLUG_LISTE-CONNID,
30 FLUG_LISTE-FLDATE, 40 FLUG_LISTE-PRICE.
ENDIF.

Veröffentlicht in ABAP Getagged mit: , , , , , , , , , , , , , ,

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

*