Try something like this:
TABLES: BKPF.
SELECT-OPTIONS: DOCNO FOR BKPF-BELNR,
DOCTYP FOR BKPF-BLART,
DATE FOR BKPF-CPUDT,
USER FOR BKPF-USNAM,
REFDOCNO FOR BKPF-XBLNR.
DATA: BEGIN OF T_BKPF OCCURS 0,
BUKRS LIKE BKPF-BUKRS,
BELNR LIKE BKPF-BELNR,
GJAHR LIKE BKPF-GJAHR,
XBLNR LIKE BKPF-XBLNR,
CPUDT LIKE BKPF-CPUDT,
END OF T_BKPF.
DATA: BEGIN OF T_BSEG OCCURS 0,
BUKRS LIKE BSEG-BUKRS,
BELNR LIKE BSEG-BELNR,
GJAHR LIKE BSEG-GJAHR,
KOART LIKE BSEG-KOART,
KOSTL LIKE BSEG-KOSTL,
PROJK LIKE BSEG-PROJK,
LIFNR LIKE BSEG-LIFNR,
SHKZG LIKE BSEG-SHKZG,
WRBTR LIKE BSEG-WRBTR,
END OF T_BSEG.
DATA: BEGIN OF T_BSEC OCCURS 0,
BUKRS LIKE BSEC-BUKRS,
BELNR LIKE BSEC-BELNR,
GJAHR LIKE BSEC-GJAHR,
NAME1 LIKE BSEC-NAME1,
NAME2 LIKE BSEC-NAME2,
NAME3 LIKE BSEC-NAME3,
STRAS LIKE BSEC-STRAS,
ORT01 LIKE BSEC-ORT01,
REGIO LIKE BSEC-REGIO,
PSTLZ LIKE BSEC-PSTLZ,
END OF T_BSEC.
SELECT BUKRS BELNR GJAHR XBLNR CPUDT
INTO TABLE T_BKPF
FROM BKPF
WHERE BELNR IN DOCNO
AND BLART IN DOCTYP
AND CPUDT IN DATE
AND USNAM IN USER
AND XBLNR IN REFDOCNO.
CHECK NOT T_BKPF[] IS INITIAL.
SELECT BUKRS BELNR GJAHR KOART KOSTL PROJK LIFNR SHKZG WRBTR
INTO TABLE T_BSEG
FROM BSEG
FOR ALL ENTRIES IN T_BKPF
WHERE BUKRS = T_BKPF-BUKRS
AND BELNR = T_BKPF-BELNR
AND GJAHR = T_BKPF-GJAHR.
SELECT BUKRS BELNR GJAHR NAME1 NAME2 NAME3 STRAS ORT01 REGIO PSTLZ
INTO TABLE T_BSEC
FROM BSEC
FOR ALL ENTRIES IN T_BKPF
WHERE BUKRS = T_BKPF-BUKRS
AND BELNR = T_BKPF-BELNR
AND GJAHR = T_BKPF-GJAHR.
SORT: T_BKPF, T_BSEG, T_BSEC.
LOOP AT T_BKPF.
WRITE: / T_BKPF-BELNR,
T_BKPF-XBLNR,
T_BKPF-CPUDT.
LOOP AT T_BSEG WHERE BUKRS = T_BKPF-BUKRS
AND BELNR = T_BKPF-BELNR
AND GJAHR = T_BKPF-GJAHR.
WRITE: /10 T_BSEG-KOART,
T_BSEG-KOSTL,
T_BSEG-PROJK,
T_BSEG-LIFNR,
T_BSEG-SHKZG,
T_BSEG-WRBTR.
ENDLOOP.
LOOP AT T_BSEC WHERE BUKRS = T_BKPF-BUKRS
AND BELNR = T_BKPF-BELNR
AND GJAHR = T_BKPF-GJAHR.
WRITE: /10 T_BSEC-NAME1,
T_BSEC-NAME2,
T_BSEC-NAME3,
T_BSEC-STRAS,
T_BSEC-ORT01,
T_BSEC-REGIO,
T_BSEC-PSTLZ.
ENDLOOP.
ENDLOOP.
Bluesky
