26/02/2013

Module Pool Programming_1

Module Pool Programming

This Program only run with Transaction Code .


*&---------------------------------------------------------------------*
*& Module pool       Zxxx_POLICY_SCREEN                               *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

PROGRAM  Zxxx_POLICY_SCREEN                     .

*&---------------------------------------------------------------------*
*&      Module  STATUS_8999  OUTPUT
*&---------------------------------------------------------------------*
TABLES : ZPHRD,
                 ZPHNM,
                  ZPLCY.

CONTROLS TC1 TYPE TABLEVIEW USING SCREEN 9003.
CONTROLS TBC1 TYPE TABSTRIP.

MODULE STATUS_8999 OUTPUT.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_8999  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_8999  INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_8999 INPUT.

CASE SY-UCOMM.
  WHEN 'CRT'.
*        INSERT ZPHRD FROM ZPHRD .
        CALL SCREEN 9000.
  WHEN 'BK' .
        LEAVE TO SCREEN 0 .
ENDCASE.

ENDMODULE.                 " USER_COMMAND_8999  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*

MODULE STATUS_9000 OUTPUT.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
    WHEN 'TAB1'.
      TBC1-ACTIVETAB = 'TAB1' .
    WHEN 'TAB2'.
      TBC1-ACTIVETAB = 'TAB2'.
    WHEN 'TAB3' .
      TBC1-ACTIVETAB = 'TAB3'.
     WHEN 'BK'.
       LEAVE TO SCREEN 0.
     WHEN 'SV'.

    ENDCASE.

ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
MODULE USER_COMMAND_9003 INPUT.

ENDMODULE.                 " USER_COMMAND_9003  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_9003  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_9003 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_9003  OUTPUT




Out Put Screen 



No comments:

Post a Comment