Função - TH_POPUP

  *  Pessoal, espero que vocês tenham curtido esse carnaval, mas você sabe
* depois de uma bela zuera, as vezes, temos muitas novidades para contar
* para os amigos, mas também, sempre que voltamos de um feriado parece que
* o serviço duplicou rsrs, portanto pra trabalhar e ao mesmo tempo
* contar as novidades e histórias absurdas com seu amigo ( outro Usuário
* logado no mesmo ambiente ), vocês podem usar a função abaixo.
*  Essa Função é usada por Basis pra informar os usuários algo importante,
* portanto usem com moderação.

REPORT  z_like_msn.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS :
  p_user TYPE tr_as4user DEFAULT sy-uname, "User a se contactar
  p_msg  TYPE sm04dic-popupmsg.            "Mensagem
SELECTION-SCREEN END OF BLOCK b1.

* Início de processo
START-OF-SELECTION.

  PERFORM zf_falar_amigo.

*&---------------------------------------------------------------------*
*&      Form  ZF_FALAR_AMIGO
*&---------------------------------------------------------------------*
FORM zf_falar_amigo .

  CALL FUNCTION 'TH_POPUP'
    EXPORTING
      client               = sy-mandt
      user                 = p_user
      MESSAGE              = p_msg
*   MESSAGE_LEN          = 0
*   CUT_BLANKS           = ' '
 EXCEPTIONS
   user_not_found       = 1
   OTHERS               = 2
            .

  BREAK-POINT.
  IF sy-subrc = 1.
    MESSAGE 'Usuário não encontrado, Sorry'
      TYPE 'E'.
  ENDIF.


ENDFORM.                    " ZF_FALAR_AMIGO