在UI界面如何报消息

DATA: lr_msg_srv TYPE REF TO cl_bsp_wd_message_service.
 lr_msg_srv = cl_bsp_wd_message_service=>get_instance( ).
   IF ls_orderadm_h-process_type =  'ZA02' OR ls_orderadm_h-process_type =  'ZA03'.
      IF ls_orderadm_h-zzafld00000l = 'Z102' AND ls_orderadm_h-zzafld000001 IS INITIAL.
        lr_msg_srv->add_message( iv_msg_type = 'E'
                                 iv_msg_id = 'ZMSG000'
                                 iv_msg_number = '001'
                                 iv_msg_v1 = '保内情况下，项目编号必填!' ).
        lv_flag = 'F'.
      ENDIF.
    ENDIF.
   IF lv_flag = 'F'.
          RAISE do_not_save.
   ENDIF.