FORM CreateLog.
  g_s_log-extnumber = 'Test_log'.
  g_s_log-aluser    = sy-uname.
  g_s_log-alprog    = sy-repid.
  g_s_log-OBJECT    = 'ZOZM_LOG'.
  g_s_log-SUBOBJECT = 'ERROR'.
  g_s_log-ALDATE    = sy-datum.
  g_s_log-ALTIME    = sy-uzeit.
  g_s_log-ALDATE_DEL = sy-datum + 30.
  g_s_log-DEL_BEFORE = 'X'.
  CALL FUNCTION 'BAL_LOG_CREATE'
       EXPORTING
            i_s_log      = g_s_log
       IMPORTING
            e_log_handle = g_log_handle
       EXCEPTIONS
            OTHERS       = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

*  PERFORM msg_add.
  PERFORM create_display_profile CHANGING g_s_display_profile.
ENDFORM.

FORM msg_add using msg_type type bal_s_msg-msgty text type string.
  DATA:
    l_s_msg TYPE bal_s_msg.

* define data of message for Application Log
  l_s_msg-msgty     = msg_type.
  l_s_msg-msgid     = '00'.
  l_s_msg-msgno     = '001'.
  l_s_msg-msgv1     = text.
*  l_s_msg-msgv2     = sy-msgv2.
*  l_s_msg-msgv3     = sy-msgv3.
*  l_s_msg-msgv4     = sy-msgv4.

  CALL FUNCTION 'BAL_LOG_MSG_ADD'
       EXPORTING
*           I_LOG_HANDLE  =
            i_s_msg       = l_s_msg
       EXCEPTIONS
            log_not_found = 0
            OTHERS        = 1.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.