Custom Enjoy Transaction

Question

How to create custom transaction like enjoy transaction where SAP uses Expand and collapse button to Expand and Collapse screen block.
Can any one have small sample program to do that?

Answer 1

Ok,  Here is a sample program, copy and paste this code into a test program.  
1) Create screen 100, assign OK_CODE as the ok code field.
2)  Enter this code in the flow logic.
process before output.
  module status_0100.
  call subscreen subscreen_area1 including sy-repid the_subscreen.
process after input.
  call subscreen subscreen_area1 .
  module user_command_0100.
3) In screen 100, using the graphical layout editor,  create a subscreen area and call it "subscreen_area1".
Add a pushbutton to this screen, and make sure to assign the function code as "PUSH".
4)  Create screen 0110, make sure to specify that it is a subscreen in the attributes tab.  Now begin putting some UI elements on the screen 0110.  I just added a static text box, or label.
5)  Create screen 0199,  make sure to specify that it is a subscreen in the atttributes tab.  Put nothing on this screen as it will be our DUMMY screen.
Here is the program code.
report zrich_0001.
data: ok_code type sy-ucomm.
data: save_ok type sy-ucomm.
data: the_subscreen type sy-dynnr value '0110'.
start-of-selection.
  call screen 100.
*&      Module  STATUS_0100  OUTPUT
module status_0100 output.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
endmodule.                    "status_0100 OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
module user_command_0100 input.
  save_ok = ok_code.
  case ok_code.
    when 'PUSH'.
      clear ok_code.
      if the_subscreen = '0110'.
        the_subscreen = '0199'.
      elseif the_subscreen = '0199'.
        the_subscreen = '0110'.
      endif.
  endcase.
endmodule.                    "user_command_0100 INPUT
Now run the program.  Notice that every time you press the pushbutton that the screen changes, it toggles back and forth between the screen 0110 and 0199. 
Have fun.
Regards,
Rich Heilman