Write the same program of ME23N

[Former Member]

HI all.

Can anybody give me some coding the same of ME23N,Expand items or Collapes items.Thanks!

[uwe_schieferstein]

Hello Hong

If you look through the screen of function group MEGUI you will find several empty subscreens.

Thus, when you push the pushbutton either a filled or an empty subscreen is displayed.

A simple example is given by report ZUS_SDN_SUBSCREEN_ME23N.

*&---------------------------------------------------------------------*
*& Report  ZUS_SDN_SUBSCREEN_ME23N
*&
*&---------------------------------------------------------------------*
*& Thread: Write the same program of ME23N
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="859780"></a>
*&---------------------------------------------------------------------*

REPORT  zus_sdn_subscreen_me23n.


DATA: gd_okcode     TYPE ui_func,
      gd_subscreen  TYPE sydynnr.


START-OF-SELECTION.
  gd_subscreen = '0110'.  " empty
  gd_subscreen = '0105'.  " default subscreen, containing fields

  CALL SCREEN '0100'.   " main screen

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'MAIN_0100'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT


*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  TRANSLATE gd_okcode TO UPPER CASE.
  CASE gd_okcode.
    WHEN 'BACK'  OR
         'EXIT'  OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.

    WHEN 'TOGGLE'.
      IF ( gd_subscreen = '0105' ).
        gd_subscreen = '0110'.
      ELSE.
        gd_subscreen = '0105'.
      ENDIF.

    WHEN OTHERS.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

Regards

Uwe

[Former Member]

Have a look at demo transaction BIBS too - it shows a simple "Collapsible Area" screen, and the code is very much simplified.

Jonathan