DATA: w_kna1 TYPE kna1,
      w_bseg TYPE bseg.

START-OF-SELECTION.
SELECT kunnr land1 name1 regio stras FROM kna1
CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF w_kna1 WHERE mandt = 800.

NEW-LINE.
WRITE:
         w_kna1-kunnr,
         w_kna1-land1,
         w_kna1-name1 COLOR COL_KEY,
         w_kna1-regio,
         w_kna1-stras.
HIDE: w_kna1-kunnr.
ENDSELECT.
CLEAR w_kna1.


      AT LINE-SELECTION.
IF sy-lsind = 1.
SELECT kunnr belnr wrbtr FROM bseg
CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF w_bseg
WHERE kunnr = w_kna1-kunnr.

NEW-LINE.
WRITE: w_bseg-kunnr,
       w_bseg-belnr,
       w_bseg-wrbtr.

ENDSELECT.
ENDIF.
CLEAR w_bseg.

REPORT Z1.

DATA: W_KNA1 TYPE KNA1,
      W_BSEG TYPE BSID OCCURS 0 WITH HEADER LINE.

PARAMETERS: BUKRS TYPE BUKRS MEMORY ID BUK OBLIGATORY.

START-OF-SELECTION.
  SELECT KUNNR LAND1 NAME1 REGIO STRAS FROM KNA1
  CLIENT SPECIFIED
  INTO CORRESPONDING FIELDS OF W_KNA1 WHERE MANDT = '800'.

    NEW-LINE.
    WRITE:
             W_KNA1-KUNNR,
             W_KNA1-LAND1,
             W_KNA1-NAME1 COLOR COL_KEY,
             W_KNA1-REGIO,
             W_KNA1-STRAS.
    HIDE: W_KNA1-KUNNR.
  ENDSELECT.
  CLEAR W_KNA1.


AT LINE-SELECTION.
  IF SY-LSIND = 1.
    CLEAR: W_BSEG, W_BSEG[].

    SELECT * FROM BSID CLIENT SPECIFIED
    APPENDING CORRESPONDING FIELDS OF TABLE W_BSEG
    WHERE  MANDT = '800' AND
           KUNNR = W_KNA1-KUNNR.

    SELECT * FROM BSAD CLIENT SPECIFIED
    APPENDING CORRESPONDING FIELDS OF TABLE W_BSEG
    WHERE  MANDT = '800' AND
           KUNNR = W_KNA1-KUNNR.

   LOOP AT W_BSEG.
      WRITE:/ W_BSEG-KUNNR,
             W_BSEG-BELNR,
             W_BSEG-WRBTR.
   ENDLOOP.
  ENDIF.
  CLEAR W_BSEG.