产生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 RETURN.    CALL FUNCTION 'BAL_LOG_CREATE'      EXPORTING        I_S_LOG      = BAL_S_LOG      IMPORTING        E_LOG_HANDLE = C_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.****************************************************************************************** create a message    CLEAR L_S_MSG.    L_S_MSG-MSGTY = RETURN-TYPE.    L_S_MSG-MSGID = RETURN-ID.    L_S_MSG-MSGNO = RETURN-NUMBER.    L_S_MSG-MSGV1 = RETURN-MESSAGE_V1.    L_S_MSG-MSGV2 = RETURN-MESSAGE_V2.    L_S_MSG-MSGV3 = RETURN-MESSAGE_V3.    L_S_MSG-MSGV4 = RETURN-MESSAGE_V4.* define callback routine    L_S_MSG-PARAMS-CALLBACK-USEREXITP = SY-REPID.    L_S_MSG-PARAMS-CALLBACK-USEREXITF = 'CALLBACK_MSG_DETAIL'.    L_S_MSG-PARAMS-CALLBACK-USEREXITT = CONST_CALLBACK_FORM.* define an identifer. This is used to establish the link between* the message and its additional data    ADD 1 TO G_IDENTIFIER.* put his identifier into the parameters of the message    L_S_PAR-PARNAME = CONST_NAME_MSG_IDENT.    L_S_PAR-PARVALUE   = G_IDENTIFIER.    APPEND L_S_PAR TO L_S_MSG-PARAMS-T_PAR.* create the message    CALL FUNCTION 'BAL_LOG_MSG_ADD'      EXPORTING        I_LOG_HANDLE = C_LOG_HANDLE        I_S_MSG      = L_S_MSG      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.* save this log    INSERT C_LOG_HANDLE INTO TABLE L_T_LOG_HANDLE.    CALL FUNCTION 'BAL_DB_SAVE'      EXPORTING        I_T_LOG_HANDLE   = L_T_LOG_HANDLE      IMPORTING        E_NEW_LOGNUMBERS = L_T_NEW_LOGNUMBERS      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.  ENDLOOP.ENDFUNCTION.

导入：BAL_S_LOG TYPE BAL_S_LOG
表：RETURN LIKE BAPIRET2
使用：

  DATA: BAL_S_LOG TYPE BAL_S_LOG.  BAL_S_LOG-OBJECT    = 'ZFSD0010'.  BAL_S_LOG-EXTNUMBER =* define callback routine  BAL_S_LOG-PARAMS-CALLBACK-USEREXITP = SY-REPID.  BAL_S_LOG-PARAMS-CALLBACK-USEREXITF = 'CALLBACK_LOG_DETAIL'.  BAL_S_LOG-PARAMS-CALLBACK-USEREXITT = ''.        BAL_S_LOG-SUBOBJECT    = 'Z01'.      CALL FUNCTION 'ZMESSAGE'        EXPORTING          BAL_S_LOG = BAL_S_LOG        TABLES          RETURN    = RETURN.

配置使用的T-CODE：SLG0
查看使用的T-CODE：SLG1