*&---------------------------------------------------------------------*
*& Module Pool ZYY_MPP_2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM zyy_mpp_2.
TABLES: MARA.
TYPES: BEGIN OF st_mara,
matnr TYPE mara-matnr,
ernam TYPE mara-ernam,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
END OF st_mara.
DATA: wa_mara TYPE st_mara.
* data: it_mara TYPE TABLE OF st_mara.
DATA: in_matnr TYPE matnr.
*&---------------------------------------------------------------------*
*& Module STATUS_0101 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0101 OUTPUT.
SET PF-STATUS 'BACK'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0101 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0101 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'DISPLAY'.
SELECT SINGLE matnr
ernam
mtart
matkl FROM mara INTO wa_mara
WHERE matnr = in_matnr.
IF SY-SUBRC = 0.
CALL SCREEN 201.
ELSE.
MESSAGE 'DATA NOT FOUND' TYPE 'I'.
ENDIF.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0201 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0201 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
CALL SCREEN 101.
ENDCASE.
ENDMODULE.