产生SAP系统标准信息

FUNCTION ZMESSAGE.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(BAL_S_LOG) TYPE  BAL_S_LOG
*"  TABLES
*"      RETURN STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------
  DATA: C_LOG_HANDLE   TYPE BALLOGHNDL.
  DATA:
    L_S_MSG     TYPE BAL_S_MSG,
    L_S_PAR     TYPE BAL_S_PAR,
    L_S_MY_DATA TYPE BAL_S_EX06.
  DATA:
    L_T_LOG_HANDLE     TYPE BAL_T_LOGH,
    L_S_NEW_LOGNUMBER  TYPE BAL_S_LGNM,
    L_T_NEW_LOGNUMBERS TYPE BAL_T_LGNM.
* types of callback routines
  CONSTANTS:
    CONST_CALLBACK_FORM     TYPE BALUET          VALUE ' ',
    CONST_NAME_MSG_IDENT(9) TYPE C                   VALUE 'MSG_IDENT',
    CONST_CALLBACK_FUNCTION TYPE BALUET          VALUE 'F'.
  DATA:
    G_IDENTIFIER(10) TYPE N,
    G_LOGNUMBER      TYPE BALHDR-LOGNUMBER.
* create the log header
  LOOP AT