Report
Report
Report
*
*& Report ZSELECT
*&
*&---------------------------------------------------------------------
*
*&
*&
*&---------------------------------------------------------------------
*
REPORT ztest.
tables: mara.
TYPES: BEGIN OF ty_mara,
matnr TYPE matnr,
ersda TYPE ersda,
ernam TYPE ernam,
END OF ty_mara.
types: BEGIN OF ty_mara1,
matnr TYPE mara-matnr,
ersda TYPE mara-ersda,
ernam TYPE mara-ernam,
END OF ty_mara1.
data: it_mara type STANDARD TABLE OF ty_mara1 INITIAL SIZE 0,
wa_mara type ty_mara1.
SELECTION-SCREEN: begin of block b1 with frame title text-001.
select-OPTIONS: s_matnr for mara-matnr.
SELECTION-SCREEN: end of block b1.
start-OF-SELECTION.
perform get_data_mara.
end-of-selection.
perform print.
*&---------------------------------------------------------------------
*
*& Form get_data_mara
*&---------------------------------------------------------------------
*
* text
*----------------------------------------------------------------------
*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------
*
form get_data_mara .
select matnr
ersda
ernam from mara into table it_mara
where matnr in s_matnr.
if sy-subrc <> 0.
message i208(00) with 'No data exist in mara'.
leave list-processing.
endif.
endform. " get_data_mara
*&---------------------------------------------------------------------
*
*& Form print
*&---------------------------------------------------------------------
*
* text
*----------------------------------------------------------------------
*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------
*
form print .
write:/ 'MATNR', ' ERSDA', ' ERNAM'.
loop at it_mara into wa_mara.
write:/ wa_mara-MATNR, wa_mara-ERSDA, wa_mara-ERNAM.
endloop.
endform. " print