REPORT ZCHECK_ALPHA_NUMERIC.

* Declare the variable

* For Length
data: serial_length type i.

* For Alpha numeric
data: str type string.
data: valid_characters type string.

* Fill in those valid characters you need to check
concatenate ’0123456789′ ‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’
‘abcdefghijklmnopqrstuvwxyz’ into valid_characters.

* User Input
parameters testchar(10) default ’12345abc’.

* Get User Input
str = testchar.

* The Checks
if str co valid_characters.
write: / str, ‘Characters are OK’.
else.
write: / str, ‘Characters are NOT OK’.
endif.

*– End Program

基于同样的原理，下面这个subroutine可以去掉一个字符串中的所有特殊字符

*&———————————————————————*
*&      Form  convert_character_entities
*&———————————————————————*
*  This form removes all non-alpha-numeric characters from a string
*———————————————————————-*
*      <–
*———————————————————————-*
FORM remove_non_alpha_numeric_char.
DATA: l_teststr       TYPE string,
l_alpha_numeric TYPE string.
DATA: l_strlen TYPE i.

DATA: l_char TYPE c.

l_teststr = ‘ref0 0@2$45*8′.
l_strlen = strlen( l_teststr ).
WRITE: / l_teststr, ‘length:’, l_strlen.

l_alpha_numeric = ’0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’.

WHILE l_strlen <> 0.
l_strlen = l_strlen – 1.
l_char = l_teststr+l_strlen(1).
IF l_alpha_numeric NA l_char.
REPLACE SECTION OFFSET l_strlen LENGTH 1 OF l_teststr WITH ”.
ENDIF.
ENDWHILE.
l_strlen = strlen( l_teststr ).
WRITE: / l_teststr, ‘length:’, l_strlen.

ENDFORM.

另外 ADRC表的COUNTRY字段的帮助视图(Help View)，也可以看到country code 和 country name的对应表。

比如在比较字符串的值时，ABAP会自动忽视有效字符后面的空格，而如果在字符前面有空格，则会影响比较的结果。

比如： ‘X’ 和 ‘X__’ 比较的结果是相等；而’X'和’__X’比较的结果则是不相等。 （这里下划线__代表空格）

运行下面的程序可以看到效果：

DATA: l_string1 TYPE string,
l_string2 TYPE string,
l_string3 TYPE string.
l_string1 = ‘X’. “No space
l_string2 = ‘X ‘. “Space after X
l_string3 = ‘ X’. “Space before X
IF l_string1 EQ l_string2.
WRITE: / ‘String 1 and String 2 are identical.’.
ELSE.
WRITE: / ‘String 1 and String 2 are NOT identical.’.
ENDIF.
IF l_string1 EQ l_string3.
WRITE: / ‘String 1 and String 3 are identical.’.
ELSE.
WRITE: / ‘String 1 and String 3 are NOT identical.’.
ENDIF.

运行结果是输出:

String 1 and String 2 are identical.

String 1 and String 3 are NOT identical.

内表包含两个部分，可有可无的标题行(HeaderLine)，和必需的表身。进出内表的值都必须通过标题行。

程序例子：

* 声明
data: begin of itab occurs 0,
x type c,
y type i,
end of itab.

* 初始化标题行 headerline
itab-x = ‘d’.
itab-y = 34.

* 向内表中存入值
append itab.
append itab.
append itab.

* 读取内表中的值
loop at itab .
write: / itab-x, itab-y. “输出列表
endloop.

1. APPEND 将 SY-TABIX 的值置为表最后一行的索引号，也就是说它将等于内表的行数。
2. COLLECT 将 SY-TABIX 的值置为现有或刚刚插入的行的索引号。如果内表为哈希(hashed table)表的话，SY-TABIX 被置为0。
3. LOOP AT 将 SY-TABIX 的值置为每一次循环开始时的当前行索引号，在整个循环的结束时 SY-TABIX 被恢复为它在进入循环之前的值。对于哈希表(hashed table)，它的值为0。
4. READ TABLE 将 SY-TABIX 的值置为被读取的行的索引号。如果使用二分查找(binary search)，而没有找到的话，SY-TABIX 将等于所有行数或行数加1。如果是使用顺序查找而没有找到的话，SY-INDEX 没有定义。
5. SEARCH <itab> FOR 将 SY-TABIX 的值置为找到要查找字符串所在的行的索引号。

SY-TFILL — 在使用命令 DESCRIBE TABLE、LOOP AT、 和 READ TABLE之后，SY-TFILL 的值为相应内表的行数。

SY-TLENG — 在使用命令 DESCRIBE TABLE、LOOP AT、和 READ TABLE之后，SY-TLENG 的值为相应内表的行的长度。

SY-TOCCU – 在使用命令 DESCRIBE TABLE、LOOP AT、和 READ TABLE之后，SY-TLENG 的值为相应内表所占用的内存。

1. 运行实时分析 transaction SE30

这个 transaction 可以给出对一个ABAP程序的所有分析，包括数据库和非数据库处理操作。

2. SQL 追踪 transaction ST05

追踪列表有很多行不是关于 SELECT 语句的，因为任何ABAP程序的执行都会需要很多附加的管理性SQL调用。可以使用过滤器来显示追踪列表的输出来只显示有关的行。

追踪列表同时包含与一个SELECT语句相关的多个不同 SQL 命令，因为 R/3 数据库接口 — R/3应用服务器的一个复杂的组成部分 — 将每一个 Open SQL 命令映射为一个或一系列的物理数据库调用指令并执行这些指令。这种映射依赖于具体的调用和数据库系统，对R/3的性能是非常重要的。例如在我们的测试程序中，SPFLI表上的 SELECT-ENDSELECT 循环被映射成为一连串Oracle环境下的 PREPARE-OPEN-FETCH 的物理调用。

追踪列表中的SQL语句的WHERE条件与ABAP语句中的 WHERE 是不同的。因为在 R/3 系统中，客户是一个具有自己的主记录(master records)和自己的一组数据表的独立单元。使用ABAP，每一个 Open SQL 的命令都会自动在相应的客户环境中运行。因此，如果被查找的表有客户(client)字段的话，每一个WHERE语句都会自动添加一个条件包含实际的客户代码。

要查看一个语句的执行计划（execution plan），只需要将光标放在 PREPARE 语句上，然后选择 Explain SQL。具体的执行计划的解释取决于使用的数据库。

以两个表为例：zairln 和 zflight。表 zairln 有字段 airln 存储了航空公司的代码，和字段 lnnam 存储了航空公司的名称。表 zflight 有航空公司代码字段 airln， 以及其他字段存储了航空公司运行的航班的详细信息。

既然两个表在逻辑上通过 airln 字段可以关联，建议使用以下 inner join：

Select a~airln a~lnnam b~fligh b~cntry into table int_airdet

From zairln as a inner join zflight as b on a~airln = b~airln.

这样就可以根据选择条件来限制数据，以上inner join还可以增加 where 条件来进一步限制选择条件。

在选择一个索引的时候，优化机会检查where语句中字段名，然后选择一个与这些字段名排列顺序一致的索引。

另外一个提示就是如果一个表是以 客户端编号MANDT 开始的，而索引不是的话，则优化机很有可能不会使用那个索引。

在某些情况下，建议查看是否有新的索引可以加速程序的运行。这在访问财务表的程序中会非常实用。

如何查看索引？

要查看一个表当前有哪些可用的索引，使用SAP事务编码SE11进入数据字典，显示要查询的数据表，然后点击顶部工具条上的Indexes…按钮即可

SAP中查看表的索引设置

返回文章目录