module pool with screen menu and transaction
https://www.youtube.com/watch?v=pm-42diT-j8
*&---------------------------------------------------------------------*
*& Modulpool ZJHS_11_EMPLOYEE_ENTRY
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
PROGRAM zjhs_11_employee_entry.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'JHS' .
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
when 'BACK'.
leave PROGRAM.
when 'PROCEED'.
leave to screen '101'.
WHEN 'SE30'.
call TRANSACTION 'SE30'.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_0101 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0101 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0101 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0101 INPUT.
ENDMODULE.
Comments
Post a Comment