zcx_exception.abap

  METHOD set_sy_message.
    me->if_t100_message~t100key-msgid = sy-msgid.
    me->if_t100_message~t100key-msgno = sy-msgno.
    me->if_t100_message~t100key-attr1 = 'MSGV1'.
    me->if_t100_message~t100key-attr2 = 'MSGV2'.
    me->if_t100_message~t100key-attr3 = 'MSGV3'.
    me->if_t100_message~t100key-attr4 = 'MSGV4'.

    me->msgv1 = sy-msgv1.
    me->msgv2 = sy-msgv2.
    me->msgv3 = sy-msgv3.
    me->msgv4 = sy-msgv4.
  ENDMETHOD.
  
METHOD to_bapiret2.

  DATA: lv_msgv1 TYPE symsgv,
        lv_msgv2 TYPE symsgv,
        lv_msgv3 TYPE symsgv,
        lv_msgv4 TYPE symsgv.

  FIELD-SYMBOLS: <lv_msgv1> TYPE any,
                 <lv_msgv2> TYPE any,
                 <lv_msgv3> TYPE any,
                 <lv_msgv4> TYPE symsgv.


  ASSIGN (if_t100_message~t100key-attr1) TO <lv_msgv1>.
  IF sy-subrc = 0.
    lv_msgv1 = <lv_msgv1>.
  ENDIF.

  ASSIGN (if_t100_message~t100key-attr2) TO <lv_msgv2>.
  IF sy-subrc = 0.
    lv_msgv2 = <lv_msgv2>.
  ENDIF.

  ASSIGN (if_t100_message~t100key-attr3) TO <lv_msgv3>.
  IF sy-subrc = 0.
    lv_msgv3 = <lv_msgv3>.
  ENDIF.

  ASSIGN (if_t100_message~t100key-attr4) TO <lv_msgv4>.
  IF sy-subrc = 0.
    lv_msgv4 = <lv_msgv4>.
  ENDIF.

  rs_bapiret2 = VALUE #(
    type       = 'E'
    id         = if_t100_message~t100key-msgid
    number     = if_t100_message~t100key-msgno
    message_v1 = lv_msgv1
    message_v2 = lv_msgv2
    message_v3 = lv_msgv3
    message_v4 = lv_msgv4 ).

  MESSAGE
    ID if_t100_message~t100key-msgid
    TYPE 'E'
    NUMBER if_t100_message~t100key-msgno
    WITH lv_msgv1 lv_msgv2 lv_msgv3 lv_msgv4
    INTO rs_bapiret2-message.

ENDMETHOD.