自建函数移除数字串左边的0（SAP/R3 ABAP）

我是007

　　自建函数移除数字串左边的0（SAP/R3 ABAP）
　　

　　在R/3系统中，如果一个字段内容是数字串(由0~9的数字组成)，放入表字段时，系统将根据字段宽度在前面加0,比如物料11234547957，在matnr字段中被保存为000000011234547957。在开发报表和接口程序时，常常需要将前面的0去除，而ABAP平台并未提供类似的函数。我们可以自己写一个函数，放入函数组中来解决。下面，我将详细介绍操作流程。
　　首先，用事务SE37创建函数模块，例如函数名为SHIFTZERO，函数组为ZFQTEST。在函数创建后，进入对象组件的“界面”视图，在“更改”栏的“IMPORT参数”中输入STR，建议值输入SPACE。补充说明一下，之所有选“更改”，是因为变量STR除了要带值进入函数，还要返回值，这有点类似于变参的概念。在“文档”视图，可以为STR参数加上文字描述，方便其他开发者的使用。
　　然后，在SE37初始界面进入函数的原代码修改。详细代码如下：

FUNCTION SHIFTZERO. *"---------------------------------------------------------------------- *"*"本地接口: *" CHANGING *" VALUE(STR) DEFAULT SPACE *"---------------------------------------------------------------------- IF STR NE SPACE. 　　DATA: STRTEMP(50) TYPE C, LENGTH TYPE I, LENINFACT TYPE I.     LENGTH = STRLEN( STR ). 　STRTEMP = STR. " Because the function para can't be +0(1) 　　LENINFACT =  LENGTH. 　　DO LENGTH TIMES. 　　IF STRTEMP+0(1) EQ '0'. 　　　LENINFACT  = LENINFACT - 1. 　　STRTEMP = STRTEMP+1(LENINFACT).        ELSE.            EXIT. 　　ENDIF. 　ENDDO. 　　STR = STRTEMP. 　　ENDIF. 　　ENDFUNCTION.

　　
　　完成后，你可以使用SE37的“单个测试”功能，看看函数是否运行正确。如果没有问题，将函数激活。
　　下面，我们用SE38事务进入ABAP编辑器，写一个小程序验证一下我们的函数。以后在其它程序中引用该函数，也是类似的格式。程序清单如下：

REPORT ZTEST1_FQ NO STANDARD PAGE HEADING LINE-SIZE 100 MESSAGE-ID S1. *&-------------------------------------------------------------- *& ABAP4 testing 主程序 * *&-------------------------------------------------------------- DATA: STR(10) TYPE C.　　STR = '0001454578'. 　　CALL FUNCTION 'SHIFTZERO' CHANGING STR = STR. 　　WRITE: / STR.

　　
　　 通过运行程序，你可以看到SHIFTZERO函数完全达到了我要求。最后要注意的是，如果你是在DEV开发系统中写的函数，务必要在测试完成后，在SE09事务中释放它，然后通知Administrator传入PRD生产系统。
　　补充：ERPHome的ai2ming朋友提到可以用SHIFT str LEFT DELETING LEADING '0'.同样的功能，我测试了一下，完成可行。查看ABAP4平台的F1帮助，发现SHIFT命令有两个很有用的用法：
１、SHIFT c LEFT DELETING LEADING c1. "从字串c的左边移去所有的连续字串c1
２、SHIFT c RIGHT DELETING TRAILING c1. "从字串c的右边移去所有的连续字串c1
　　由此看来，这篇文件介绍的方法有些走弯路了，那就当做是介绍自建函数的一个教学例子吧。