hello i learning how do module pools , i have a custom menu for my module and i am trying call a screen when i press a opcion in the menu ( example : File: update_screen ) but dont work , this is the code:
&----
*& Modulpool Z_PP_LOTE_ETIQUETAS
*&
&----
*&
*&
&----
INCLUDE Z_PP_LOTE_ETIQUETAS_TOP . " global Data
INCLUDE Z_PP_LOTE_ETIQUETAS_O01 . " PBO-Modules
INCLUDE Z_PP_LOTE_ETIQUETAS_I01 . " PAI-Modules
INCLUDE Z_PP_LOTE_ETIQUETAS_F01 . " FORM-Routines
-
&----
*& Include Z_PP_LOTE_ETIQUETAS_TOP Modulpool Z_PP_LOTE_ETIQUETAS
*&
&----
PROGRAM Z_PP_LOTE_ETIQUETAS.
data: ok_code(4) type c.
data: i_ZC2P_LOTE_ETIQUE type STANDARD TABLE OF ZC2P_LOTE_ETIQUE WITH HEADER LINE.
tables:ZC2P_LOTE_ETIQUE,
ZC2P_LIDER_MODUL.
-
&----
*& Include Z_PP_LOTE_ETIQUETAS_O01
&----
*CALL SCREEN 101.
&----
*& Module STATUS_0101 OUTPUT
&----
----
MODULE status_0100 OUTPUT.
SET PF-STATUS 'Z_PP_LOT_ETIQ_MENU'.
SET TITLEBAR 'Z_PP_LOT_ETIQ'.
ENDMODULE. "STATUS_0100 OUTPUT
MODULE status_0101 OUTPUT.
SET PF-STATUS 'Z_PP_LOT_ETIQ_MENU'.
SET TITLEBAR 'Z_PP_LOT_ETIQ'.
ENDMODULE. "STATUS_0100 OUTPUT
-
&----
*& Z_PP_LOTE_ETIQUETAS_I01
&----
module user_command_0100 input.
case ok_code.
when 'LIDMOD'.
call SCREEN 101.
clear ok_code.
when 'CANC'.
clear ok_code.
set screen 0. leave screen.
when 'EXIT'.
clear ok_code.
LEAVE PROGRAM.
when 'BACK'.
clear ok_code.
set screen 0. leave screen.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
i have in the custom menu define LIDMOD as Cod. and screen 101 exist ( empty but exist ) when i debug it in the case perfom don't enter in : "when 'LIDMOD'.
thanks
Bluesky
