basit alv

mara ve marc table select option ile veri okuyan ve alv yazdiran program.

TYPE-POOLS: SLIS.

TABLES:MARA,MARC.
DATA: BEGIN OF IT_MAR OCCURS 0,
MATNR LIKE MARA-MATNR,
BISMT LIKE MARA-BISMT,
SERNP LIKE MARC-SERNP,
MEINS LIKE MARA-MEINS,
LIGHT VALUE 1,
END OF IT_MAR.


"data: fieldcatalog type slis_t_fieldcat_alv with header line,
DATA : GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECT-OPTIONS S_MATNR FOR MARA-MATNR.
SELECT-OPTIONS S_SERNP FOR MARC-SERNP.

DATA : CT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

SELECT A~MATNR A~BISMT C~SERNP A~MEINS INTO
(IT_MAR-MATNR,IT_MAR-BISMT,IT_MAR-SERNP,IT_MAR-MEINS)
FROM MARA AS A INNER JOIN MARC AS C
ON A~MATNR = C~MATNR WHERE C~MATNR IN S_MATNR
AND C~SERNP IN S_SERNP.

APPEND IT_MAR.
ENDSELECT.
GS_LAYOUT-LIGHTS_TABNAME = 'it_mar'.
GS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHT'.

LOOP AT it_mar.
CASE IT_MAR-BISMT.
WHEN ''.
IT_MAR-LIGHT = 3.
MODIFY it_mar.
ENDCASE.
ENDLOOP.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_STRUCTURE_NAME = 'ZSLY_ST'
IT_FIELDCAT = CT_FIELDCAT[]
IS_LAYOUT = GS_LAYOUT
TABLES
T_OUTTAB = IT_MAR.