admin管理员组

文章数量:1596345

 function zbw_eliminate_invalid_chars.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_VALUE)
*"     REFERENCE(I_INFOOBJECT) TYPE  RSD_IOBJNM
*"  EXPORTING
*"     REFERENCE(O_VALUE)
*"----------------------------------------------------------------------
  data:
        length type i,
        index type i,
        current_char type c,
        result(60) type c,
        infoobject type rsd_iobjnm.

  clear: result, infoobject.

  move i_value to result.

  move i_infoobject to infoobject.

  translate result to upper case.

  length = strlen( result ).

  index = -1.

  do length times.

    index = index + 1.

    current_char = result+index(1).

    call function 'RSKC_CHAVL_OF_IOBJ_CHECK'
      exporting
        i_chavl           = current_char
        i_iobjnm          = infoobject
*       I_S_COB_PRO       =
*       I_T_COB_PRO_CMP   =
      exceptions
        chavl_not_allowed = 1.

    if sy-subrc <> 0.

      move ' ' to result+index(1).

    endif.

  enddo.

  move result to o_value.

endfunction. 

本文标签： 字符真龙写

版权声明：本文标题：真龙写的去除非法字符 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dianzi/1728256501a1151078.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。