function zbw_eliminate_invalid_chars.admin管理员组文章数量:1596408
*"----------------------------------------------------------------------
*"*"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://m.elefans.com/dianzi/1728256501a1151078.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论