Code listing for ZSAPTALKO01(include)
The below ABAP code is part of the SAPTAlk Instant messaging program for SAP.
*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
Related Articles
SapTALK User Messaging service
Example SAPTalk Screens
SAPTalk create screen 0100 with the following elements (see below screen shots for layout):
Create function module Z_SEND_MESSAGE
Create function module Z_ENQUE_SLEEP
Creation of GUI Status FEEDBACK
Creation of GUI Status 'MESS'
Creation of GUI Status 'OPTIONS'
Creation GUI Status 'ULIST'
SAPTalk - MSM messenger application for SAP
Code listings for SAPTALK includes
Code listing for ZSAPTALKF01(include)
Code listing for ZSAPTALKI01(include)
SAPTalk selection screen parameters
Code listing for ZSAPTALKTOP(include)
SAPTALK - table creation
Code listing for ZMESSCLEARUP
ZMESS: Function group creation details
Code listings for SAPLZMESS(fgroup)
Code listings for SAPLZMESS includes
SAPLZMESS(fgroup ZMESS) - Screen creation
SapTALK: Report creation details
Code listing for SAPTALK
SAPTALK - Include creation
SAPTALK - Screen creation
SAPTALK - GUI Status creation
SAPTALK - GUI Title creation
SapTALK - Transaction creation
Create SAPTalk SAP tables
Create table ZMESSFRIENDS
Create table ZMESSOPTIONS
Create table ZMESSTAB
SAPLZMESS(fgroup)- Function module creation
Message Class and messages
SAPTalk Parameter ID's
SAPTAlk clearup tranasction code