REPORT YCLASSICALREPORT2 NO STANDARD PAGE HEADING LINE-COUNT 30(3).
TABLES : LFA1,VBAK,MARA,SSCRFIELDS.
DATA : BEGIN OF ITAB1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
NAME1 LIKE KNA1-NAME1,
LAND1 LIKE KNA1-LAND1,
END OF ITAB1.
DATA : BEGIN OF ITAB2 OCCURS 0,
VBELN LIKE VBAK-VBELN,
NETWR LIKE VBAK-NETWR,
END OF ITAB2.
DATA : BEGIN OF KTAB OCCURS 0,
MATNR LIKE MARA-MATNR,
MEINS LIKE MARA-MEINS,
END OF KTAB.
**************SELECTION SCREEN****************
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : CUSTOMER RADIOBUTTON GROUP RG1,
SALES RADIOBUTTON GROUP RG1,
MATERIAL RADIOBUTTON GROUP RG1.
SELECT-OPTIONS : VENDOR FOR LFA1-LIFNR.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
*****************INITIALIZATION********
INITIALIZATION.
SSCRFIELDS-FUNCTXT_01 = 'REPORT'.
SSCRFIELDS-FUNCTXT_01 = 'EXIT'.
*****************AT SELECTION-SCREEN***********************
AT SELECTION-SCREEN .
IF SSCRFIELDS-UCOMM = 'FCO1'.
SSCRFIELDS-UCOMM = 'ONLI'.
ELSEIF.
SSCRFIELDS-UCOMM = 'FCO2'.
LEAVE.
ENDIF.
***************START-OF-SELECTION*************************
START-OF-SELECTION.
IF CUSTOMER = 'X'.
SELECT KUNNR
NAME1
LAND1
INTO TABLE ITAB.
LOOP AT ITAB.
WRITE : / ITAB-KUNNR,ITAB-LAND1,ITAB-NAME1.
ENDLOOP.
ELSEIF SALES = 'X'.
SELECT VBELN
NETWR
FROM VBAK
INTO TABLE JTAB.
LOOP AT JTAB.
WRITE : / JTAB-VBELN,JTAB-NETWR.
ENDLOOP.
ELSE.
SELECT MATNR
MEINS
FROM MARA
INTO TABLE KTAB.
LOOP AT KTAB.
WRITE : / KTAB-MATNR,KTAB-MEINS.
ENDLOOP.