学步园

作者：冯强 2003.04.19 （这是在网上搜到的自己以前的文章，收藏之：）

 

　　在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
　　由此看来，这篇文件介绍的方法有些走弯路了，那就当做是介绍自建函数的一个教学例子吧。