MODULE 02 - MODULE POOL PROGRAMMING - QUESTION 06

 *&---------------------------------------------------------------------*

*& Modulpool  ZTM20382363_MPP_Q6

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

PROGRAM ZTM20382363_MPP_Q6.

DATA: GV_MATNR TYPE MARA-MATNR.

DATA: PLANT TYPE C,

      DESCRIPTION TYPE C.

START-OF-SELECTION.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

  WHEN 'EXIT'.

    LEAVE PROGRAM.

  WHEN 'DISP'.

    CALL SCREEN 200.

ENDCASE.

ENDMODULE.

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0200  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0200 INPUT.

CASE SY-UCOMM.

  WHEN 'RD1'.

     IF PLANT = 'X'.

       CALL SCREEN 300.

       ELSEIF DESCRIPTION = 'X'.

       CALL SCREEN 400.

     ENDIF.

  WHEN 'EXIT'.

    LEAVE PROGRAM.

  WHEN 'BACK'.

    CALL SCREEN 100.

ENDCASE.

ENDMODULE.

*&---------------------------------------------------------------------*

*&      Module  MARD_DETAILS  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE MARD_DETAILS OUTPUT.

  SELECT SINGLE WERKS, LGORT FROM MARD

    INTO @DATA(LS_MARD)

    WHERE MATNR = @GV_MATNR.

ENDMODULE.

*&---------------------------------------------------------------------*

*&      Module  MAKT_DETAILS  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE MAKT_DETAILS OUTPUT.

  SELECT SINGLE SPRAS, MAKTX FROM MAKT

    INTO @DATA(LS_MAKT)

    WHERE MATNR = @GV_MATNR.

ENDMODULE.

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0300  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0300 INPUT.

CASE SY-UCOMM.

  WHEN 'BACK'.

    CALL SCREEN 200.

  WHEN 'EXIT'.

    LEAVE PROGRAM.

ENDCASE.

ENDMODULE.

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0400  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0400 INPUT.

CASE SY-UCOMM.

WHEN 'BACK'.

    CALL SCREEN 200.

  WHEN 'EXIT'.

    LEAVE PROGRAM.

ENDCASE.

ENDMODULE.