TABLES MARA.
GET MARA.
WRITE:/ MARA-MATNR, MARA-ERSDA, MARA-ERNAM.
*-----------------------------------------------------------*
*-----------------------------------------------------------*
REPORT ZCLASS_H05.
TABLES: T001, PERNR.
*DATA IT_T001
LIKE T001 OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
* SELECT * FROM T001 INTO TABLE IT_T001.
GET PERNR.
* READ TABLE IT_T001 WITH KEY BUKRS =
PERNR-BUKRS.
SELECT SINGLE *
FROM T001 WHERE BUKRS = PERNR-BUKRS.
WRITE:/ PERNR-PERNR, PERNR-ENAME,
PERNR-MASSN, PERNR-BUKRS, T001-BUTXT, PERNR-WERKS.
END-OF-SELECTION.
*-----------------------------------------------------------*
*-----------------------------------------------------------*
REPORT ZCLASS_H06 LINE-SIZE 200.
TABLES PERNR.
INFOTYPES:0001,
0006.
START-OF-SELECTION.
GET PERNR.
LOOP AT P0006.
LOOP AT P0001.
WRITE:/ P0006-PERNR, P0001-ENAME,
P0006-BEGDA, P0006-ENDDA, P0006-STRAS, P0006-ORT01,
P0001-BUKRS.
ENDLOOP.
ENDLOOP.
