BRO this programs tell write r wrong
for that A and B
REPORT ZSAMPLE_REPORT.
TABLES: lfa1, ekko, ekpo.
SELECT-OPTIONS vendor for lfa1-lifnr.
data: itab like lfa1 OCCURS 0 WITH HEADER LINE,
jtab like ekko OCCURS 0 with HEADER LINE,
ktab like ekpo OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
SELECT * FROM lfa1 into table itab.
*SELECT * FROM EKKO INTO TABLE JTAB.
*SELECT * FROM EKPO INTO TABLE KTAB.
DESCRIBE TABLE ITAB.
WRITE:/ 'TOTAL ENTRIES:', SY-TFILL.
SKIP 2.
ULINE.
LOOP AT ITAB.
AT FIRST.
WRITE: / 'VENDOR', SY-VLINE,
20 'NAME', SY-VLINE,
60 'CITY', SY-VLINE,
80 'COUNTRY', SY-VLINE.
ULINE.
ENDAT.
ENDLOOP.
LOOP AT itab.
WRITE:/ itab-lifnr,sy-vline,
20 itab-name1, SY-VLINE,
60 itab-ort01, SY-VLINE,
80 ITAB-LAND1.
hide itab-lifnr.
ENDLOOP.
SET PF-STATUS 'PUSH_BUTTON'.
AT USER-COMMAND.
*AT LINE-SELECTION.
* CASE SY-LSIND.
CASE SY-UCOMM.
WHEN 'EKKO'.
SELECT * FROM EKKO INTO TABLE JTAB.
WRITE:/ 'HEADER DETAILS'.
LOOP AT JTAB.
WRITE:/ JTAB-LIFNR, JTAB-EBELN HOTSPOT, JTAB-BUKRS, JTAB-BSTYP.
HIDE JTAB-EBELN.
ENDLOOP.
WHEN 'EKPO'.
SELECT * FROM EKPO INTO TABLE KTAB.
WRITE:/ 'ITEM DETAILS'.
LOOP AT KTAB.
WRITE:/ KTAB-EBELN HOTSPOT,KTAB-EBELP, KTAB-MATNR.
HIDE KTAB-EBELN.
ENDLOOP.
WHEN 'BACK'.
LEAVE TO LIST-PROCESSING.
* CALL TRANSACTION 'XK01'.
ENDCASE.
* ENDAT.
B.