Code listing for ZSAPTALKO01(include)

*INCLUDE ZSAPTALKO01
*INCLUDE ZSAPTALKO01
*--------------------------------------------------------------*
***INCLUDE ZSAPTALKO01 .
*--------------------------------------------------------------*
*&-------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&-------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE STATUS_0100_USERLIST OUTPUT.
  SET PF-STATUS 'ULIST'.
  SET TITLEBAR 'SC100'.
  IF gd_userlist IS INITIAL.
*   get active messages
    perform retrieve_unread_messages.

*   create container for alv-tree
    PERFORM create_alvtree_container.

*   create tree control
    PERFORM create_object_in_container.

*   create empty ALVtree control ready for first display
    PERFORM create_empty_alvtree_control.

*   create ALVtree Hierarchy
    PERFORM create_alvtree_hierarchy.

*   add buttons to alvtree
    perform add_buttons.

*   register user interaction events for ALV tree(i.e. double click)
    perform register_events.
  endif.
ENDMODULE.                 " STATUS_0100_USERLIST  OUTPUT


*&-------------------------------------------------------------*
*&      Module  STATUS_0150  OUTPUT
*&-------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE STATUS_0150 OUTPUT.
  SET PF-STATUS 'FEEDBACK'.
*  SET TITLEBAR 'xxx'.
  perform display_feedback_html_text.
ENDMODULE.                 " STATUS_0150  OUTPUT


*&-------------------------------------------------------------*
*&      Module  CONVERSATION_0100  OUTPUT
*&-------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE STATUS_0100_TALK OUTPUT.

  if not gd_ucomm is initial.
    perform execute_user_command.
  else.
    if not gd_talkingto is initial.
      perform update_conversation using gd_talkingto 'X'.
    else.
      perform update_conversation using gd_talkingto ' '.
    endif.
  endif.

ENDMODULE.                 " STATUS_0100_TALK  OUTPUT


*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'OPTIONS'.
  SET TITLEBAR  'SC200'.
  select single disname filepath
     from zmessoptions
     into (sc200_disnam,sc200_filepath)
    where uname EQ sy-uname.
ENDMODULE.                 " STATUS_0200  OUTPUT