Skip to Content
0
Sep 02, 2022 at 05:01 AM

my select query does not fetch the data from database table in module pool programming.

295 Views

*&---------------------------------------------------------------------*
*& 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.