Loop

Code: Alles auswählen.

*&---------------------------------------------------------------------*
*& Report ZTEST4
*&---------------------------------------------------------------------*
REPORT ZTEST4.

TYPES: BEGIN OF TYPE_T,
         X TYPE I,
         VKORG LIKE VBAK-VKORG,
         KUNNR LIKE VBAK-KUNNR,
         VBELN LIKE VBAK-VBELN,
         POSIT TYPE I,
       END OF TYPE_T.

DATA: T TYPE STANDARD TABLE OF TYPE_T WITH HEADER LINE,
      TX TYPE STANDARD TABLE OF TYPE_T WITH HEADER LINE,
      LAST_VKORG LIKE VBAK-VKORG,
      LAST_KUNNR LIKE VBAK-KUNNR,
      CURRENT_SPLIT(2) TYPE N,
      CURRENT_CUMULATION TYPE I.

*** START-OF-SELECTION ***
START-OF-SELECTION.

* Tabelle T mit Beispielwerten füllen
APPEND VALUE #( X = 1 VKORG = '1000' KUNNR = '123456' VBELN = '00000001' POSIT = 60 ) TO T.
APPEND VALUE #( X = 1 VKORG = '2000' KUNNR = '123456' VBELN = '00000001' POSIT = 20 ) TO T.
APPEND VALUE #( X = 2 VKORG = '3000' KUNNR = '123456' VBELN = '00000001' POSIT = 50 ) TO T.
APPEND VALUE #( X = 2 VKORG = '4000' KUNNR = '123456' VBELN = '00000001' POSIT = 30 ) TO T.
APPEND VALUE #( X = 3 VKORG = '5000' KUNNR = '223456' VBELN = '00000001' POSIT = 10 ) TO T.
APPEND VALUE #( X = 3 VKORG = '6000' KUNNR = '423456' VBELN = '00000001' POSIT = 70 ) TO T.
APPEND VALUE #( X = 3 VKORG = '7000' KUNNR = '523456' VBELN = '00000001' POSIT = 20 ) TO T.
APPEND VALUE #( X = 4 VKORG = '8000' KUNNR = '723456' VBELN = '00000001' POSIT = 15 ) TO T.

LOOP AT T.
  IF T-X = 1.
    APPEND T TO TX.
  ENDIF.
ENDLOOP.

* Ergebnis zur Veranschaulichung ausgeben
LOOP AT TX.
  WRITE: / TX-X, TX-VKORG, TX-KUNNR, TX-VBELN, TX-POSIT.
ENDLOOP.