Share |

Code listings for SAPLZMESS includes

The below intructions / ABAP code is part of the SAPTAlk Instant messaging program for SAP.

Create the following include files using the code listing below: INCLUDE LZMESSTOP. " global Data INCLUDE LZMESSO01. " PBO-Modules INCLUDE LZMESSI01. " PAI-Modules


*INCLUDE LZMESSTOP
FUNCTION-POOL ZMESS.                        "MESSAGE-ID ..

data: ok_code like sy-ucomm,
      save_ok like sy-ucomm,
      sc_messagetxt(200)  type c.


*INCLUDE LZMESSO01
*--------------------------------------------------------------*
***INCLUDE LZMESSO01 .
*--------------------------------------------------------------*
*&-------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&-------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MESS'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OU


*INCLUDE LZMESSI01
*--------------------------------------------------------------*
***INCLUDE LZMESSI01 .
*--------------------------------------------------------------*
*&-------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&-------------------------------------------------------------*
*       text
*--------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  save_ok = ok_code.
  case ok_code.
    when 'EXIT' or 'BACK' or 'CANC'.
      leave to screen 0.
    when 'SEND' or ' '.
      leave to screen 0.
  endcase.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

Share |