ABAP学习
ABAP学习基本资料整理。
ABAP基本语法
ABAP中不区分大小写，例如：Type 和type表示一个意思。
1基本数据类型
ABAP基本数据类型：
I : 整形数据；
C：字符型数据；
N：只包含数字的字符串；
P：包装数据类型；
F:浮点类型；
D:日期类型；
T：时间类型；
X:十六进制数据。
F和P类型都保存浮点数，P的精度比F更高，一般使用P类型。
示例：
"整型 DATA:num1 type I. "字符型 DATA:num2(3) type C. "数字字符型 DATA:num3(4) type N. "包装类型,decimals指定小数位数，只有P类型可用 DATA:num4(10) type P DECIMALS 4. "浮点型 DATA:num5 type F. "日期型 DATA:num6 type D. "时间型 DATA:num7 type T. "16进制型 DATA:num8(10) type X. "字符串 DATA:num9 type string. "C,N,X,P可以使用length定义长度 DATA:num10 TYPE C LENGTH 14. "赋值操作 "move to 语句 "MOVE 1333 TO num1. num1 = 1234567890. num2 = 'abc'. num3 = '0010'. num4 = '1.23456789'. num5 = '12.3456789'. num6 = sy-datum. num7 = sy-uzeit. num8 = 1234567890. write :/ 'num1=',num1,'num2=',num2,'num3=',num3,'num4=',num4,'num5=',num5,'num6=',num6,'num7=',num7,'num8=',num8. "字符串转I, "不能有汉字,不能是科学计数法 "num9 = '1.23300000E+2'. num9 = '12.33334'. num1 = num9. WRITE:/ 'num1',num1. "字符串转C num9 = '中'. num2 = num9. WRITE:/ 'num2',num2. "字符串转N,会将小数点去掉 num9 = '22.33'. num3 = num9. WRITE:/ 'num3',num3. "字符串转P， num9 = '12.3456'. num4 = num9. WRITE:/ 'num4',num4. "字符串转F,会变成科学计数法显示 num9 = '12.34567'. num5 = num9. WRITE:/ 'num5',num5. "字符串转D,MMDDYYYY "输出:09302018 num9 = '20180930'. num6 = num9. WRITE:/ 'num6',num6. "字符串转T,hhmmss num9 = '014423'. num7 = num9. WRITE:/ 'num7',num7. "字符串转X,长度超过20位，截取前20字符 num9 = '123456789012345678901234'. num8 = num9. WRITE:/ 'num8',num8. "科学计数法转换 DATA:str TYPE char25 VALUE '4.3999999999999997E-2'. DATA:m_str LIKE CHA_CLASS_DATA-SOLLWERT. DATA:c_str(16) TYPE C. DATA:c_num(16) TYPE P DECIMALS 3. MOVE str to m_str. "科学计数法字符串转换成数字 CALL FUNCTION 'QSS0_FLTP_TO_CHAR_CONVERSION' EXPORTING I_NUMBER_OF_DIGITS = 3 I_FLTP_VALUE = m_str I_VALUE_NOT_INITIAL_FLAG = 'X' I_SCREEN_FIELDLENGTH = 16 IMPORTING E_CHAR_FIELD = c_str. IF sy-subrc = 0. WRITE:/ c_str. c_num = c_str. WRITE:/ c_num. ENDIF. "不用function转换,QSOLLWERTE作为中间数据 "将科学计数法字符串转换为其他数据 DATA:mid_str TYPE QSOLLWERTE. mid_str = str. c_num = mid_str.
2 type定义数据类型
语法结构：Types :<类型名> type <数据类型>
Types :<类型名> like <数据对象或数据类型>
定义结构体
Types: begin of <结构名>,
<资料名> type <数据类型>,
…………
end of <结构名>.
Data: begin of <结构名>,
<资料名> type <数据类型>,
…………
end of <结构名>.
"****************************************************************** "type定义数据类型 "****************************************************************** TYPES: length TYPE I. TYPES: str(20) TYPE C. TYPES: BEGIN OF person, Name(10) type C, Age type I, END OF person.
3变量声明
相关语法：data: <变量名> type <数据类型> [value <值>] 。value值是指定初始值，也可以不指定初始值。
多个变数声明，以逗号隔开，最后句号结尾。
示例：
"****************************************************************** "基本数据类型和变数声明 "****************************************************************** data: num1 type I value 12, num2 type C value 1, num3(4) type N value '2333', num4 type P, num5 type F, num6 type D, num7 type T, num8 type X.
4常量定义
语法：constants <变量名> type <变量类型> [value 值]
"****************************************************************** "常量定义constants "****************************************************************** CONSTANTS Pi TYPE F VALUE '3.1415926'.
5系统相关变量
系统定义的相关变量。sy-变量名，可以获取系统的相关变量。
状态信息：
sy-subrc:系统执行命令后，是否成功变量，执行成功为0；
例如：
查询语句是否查询到相应记录，
如果sy-subrc=0，查询成功；
sy-subrc=4,没有查询到记录；
sy-subrc=8,使用“select single for update”,没有查询到记录；
插入语句是否插入成功，
如果sy-subrc=0,插入成功；
sy-subrc = 4，插入失败；
Loop循环语句，是否有循环记录，
如果sy-subrc=0,至少循环一次；
sy-subrc=4,没有循环记录；
删除语句，delete语句是否删除成功，
如果sy-subrc=0,删除成功；
sy-subrc=4,没有符合条件，删除失败；
更新语句，update语句是否更新成功，
如果sy-subrc=0,找到记录更新成功；
sy-subrc=4,没有找到记录，没有更新；
系统信息：
sy-uname:SAP系统账号；
sy-sysid:当前系统R/3名称；
sy-mandt:当前系统编号
sy-tcode:当前执行程序的Transaction code
sy-repid:ABAP程序名；
sy-cprog:ABAP程序名；
日期：
sy-datum:系统当前日期；
sy-uzeit:系统当前时间；
内表操作记录：
sy-index:当前do循环次数；
sy-tabix:当前处理内表第几笔记录；
sy-dbcnt:被处理过的记录的笔数；
sy-tmaxl:当前内表的总记录数；
示例：
sy-index只在do循环中有效，sy-tabix在loop循环内表有效
"******************************测试sy-index sy-tabix "sy-index 和sy-tabix记录内表循环次数 DATA:BEGIN OF people, name TYPE string, index TYPE I, tabix TYPE I, END OF people. "不带表头行的内表 *DATA:t_people LIKE TABLE OF people. "创建带表头行的内表 DATA:t_people LIKE TABLE OF people WITH HEADER LINE. "sy-index只在do循环中有效 DO 2 TIMES. t_people-name = 'tom'. t_people-index = sy-index. APPEND t_people. ENDDO. "sy-tabix在loop循环中有效 LOOP AT t_people. WRITE:/ sy-tabix,t_people-name,t_people-index. ENDLOOP. DATA:test_spfli LIKE TABLE OF spfli. SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE test_spfli. "sy-dbcnt记录查询到的记录数 WRITE:/ sy-dbcnt. "返回当前处理内表记录数 WRITE:/ sy-tfill. "返回当前内表记录数 DATA:lines TYPE I. DESCRIBE TABLE test_spfli LINES lines "返回当前内表行数 DATA:line TYPE I. line = lines( test_spfli ).
屏幕相关：
sy-ucomm:屏幕，PAI驱动功能命令
sy-lisel:选择行内容；
sy-linno:当前行；
sy-srows:屏幕总行数；
sy-scols:屏幕总列数；
sy-curow:屏幕上行
sy-cucol:游标列
sy-vline:画竖线；
sy-uline:画横线；
sy-pagno:当前页号；
sy-linsz:当前报表宽度；
sy-linct:当前报表长度；
sy-cpage:列表当前显示页；
sy-staro:真实行号；
6赋值语句
通过value关键子，可以声明变量时，给变量一个初始值。
语法：move <变量1> to <变量2>
将变量1赋值给变量2
示例：
"****************************************************************** "变数赋值语句 "****************************************************************** write :/'****************'. Write:/'变数赋值语句'. Data: number1 type I value 10, number2 type I. Move number1 to number2. write :/'赋值number2=',number2. "从第7个位置,后面5个字符 Data: Str1 type String value 'hello world!', Str2 type String. Str2 = Str1+6(5). WRITE :/'Str2=',Str2. "结构体赋值 DATA: BEGIN OF p1, name(10) value '1111113i3', age(2) value '10', addr(20) value 'chongqing', END OF p1. DATA: BEGIN OF p2, name type String, age type I, email type String, End of p2. MOVE-CORRESPONDING p1 to p2. WRITE: /'name=',p2-name,'age=',p2-age,'email=',p2-email.
7算术运算函数
运算符：
算术运算符：加+、减-、乘*、除/、div整除、mod取余、x**y 乘方
运算函数：
ABS(N): 传回数值 N 的绝对值；
SIGN(N):
1 if N > 0
0 if N = 0
-1 if N < 0
CEIL(N): 传回大于数值N的最小整数 ；
FLOOR(N): 传回小于数值N的最大整数；
TRUNC(N): 传回数值N的整数部分；
FRAC(N): 传回数值 N 的小数部分
COS(A),SIN(A),TAN(A)：传回三角函数 cos A, sin A, tan A 的值, A 为角度量；
EXP(N): 传回 e^N 值；
LOG(N): 传回 log eN 值；
LOG10(N): 传回 log N值；
SQRT(N): 传回 N 的平方根值。
示例：
"****************************************************************** "算术运算函数 "****************************************************************** num5 = ceil( num5 ). write :/ num5. "ceil 获取不小于num5的最小整数。 num5 = '4.33'. num5 = floor( num5 ). write :/ num5. "floor获取不大于num5的最大整数。 num5 = '4.33'. num5 = trunc( num5 ). write :/ num5. "trunc获取整数部分。
8移位操作
语法：shift <变量名>
对变数做移位元操作,默认移动一位
语法：shift <变量名> by <位数> places <left|right> [circular]
使用位数指定移动多少位，left,right指定左移或者右移，circular关键子表示是否循环移动。
语法：shift <变量名> <left deleting leading | right deleting trailing> <子串> [in (byte|character) mode]
通过移位操作去掉指定重复的子串
“ABCDEFG”移位操作，每次移位操作过后，会将改变的值赋给被处理变量。
输出示例：
左移一位：BCDEFG
左移两位：DEFG
循环左移：EFGD
循环右移：DEFG
示例：
DATA: Str type String value 'ABCDEFG'. "shift,只能是C,N,D,T,STRING支持 "默认左移一位 SHIFT Str. write :/ Str. "左移两位 shift Str by 2 PLACES LEFT. WRITE :/ Str. "默认循环左移 shift Str by 1 PLACES CIRCULAR. write :/ Str. "设置为循环右移 shift Str by 1 places RIGHT CIRCULAR. WRITE :/ Str. "shift去掉前导0 DATA:str(10) TYPE C VALUE '000233'. SHIFT str LEFT DELETING LEADING '0'. "调用function CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING INPUT = str IMPORTING OUTPUT = str.
使用unpack语句增加前导0
"增加前导0 DATA: str(5) TYPE C. UNPACK '123' to str. "调用function,增加前导0 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = '123' IMPORTING OUTPUT = str.
9字符串操作
字符串相关操作：
1、获取字符串长度
语法：strlen( str ),注意变量和括号之间需要使用空格隔开；
语法：describe field <字符串> length <变量> [in byte|character mode]
这种方式获取字符串长度，就是定义的类型的长度，因为如果值的长度小于定义长度，系统会自动填充字符到指定长度。
示例：
DATA: Str TYPE String VALUE 'abcdef', len TYPE I. len = strlen( Str ). WRITE :/'字符长度为',len. "这种方式str类型只能是C,N,D,T类型 DATA: str(10) TYPE C VALUE 'abcdef', len TYPE I. DESCRIBE FIELD str LENGTH len in BYTE MODE. WRITE:/ len. DESCRIBE FIELD str LENGTH len in CHARACTER MODE. WRITE:/ len.
2、字符串替换
语法：replace <子串1> with <子串2> into <被操作字符串>
使用将字符串中的子串1替换为子串2
语法：replace section [offset <数字>] [length <数字>] of <被操作字符串> with <子串> [in (byte|character) mode]
使用子串替换字符串offset指定位置开始后length长度的字符串。
语法：replace
[first occurrence | all occurrences of]
[substring]
<被替换子串> in <被操作字符串> with <新字符串>
[in (byte|character) mode]
[respecting|ignoring case]
[replacement count <变数>]
[replacement offset <变数>]
[replacement length <变数>]
语法：overlay <字符串> with <字符串> [ only patterm]
示例：
"字符串替换 DATA :Str01 type String value 'abcdefg', Str02 type String value 'def', Str03 type String value '234'. REPLACE Str02 WITH Str03 INTO Str01. "字符串替换 DATA:str TYPE string VALUE 'hello world,welcome'. REPLACE SECTION OFFSET 5 LENGTH 8 of str with '123'. WRITE:/ str. "字符串替换 DATA:str TYPE string VALUE 'hello world,welcome'. "将第一个 o 替换成 2 REPLACE 'o' in str WITH '2'. "substring关键词可有可无 REPLACE SUBSTRING 'o' in str WITH '2'. "替换所有出现的'o' REPLACE ALL OCCURRENCES OF 'o' in str WITH '2'. DATA:count TYPE I. DATA:offset TYPE I. DATA:length TYPE I. REPLACE ALL OCCURRENCES OF 'o' in str WITH '22' "替换次数 REPLACEMENT COUNT count "最后一次替换位置 REPLACEMENT OFFSET offset "替换字符串长度 REPLACEMENT LENGTH length.
3、字符串大小写转换
语法：
转换成大写
translate <字符串> to upper case.
转换成小写
translate <字符串> to lower case.
4、查找字符串
search语法：
search <被操作字符串> for <子串>
[in (byte|character) mode]
[starting at <数字>]
[ending at <数字>]
[ABBREVIATED]
[and mark]
Starting at:指定查询范围
Ending at :指定查询范围
查找字符串中是否有对应子串，如果查找到sy-subrc = 0,没找到sy-subrc=4。在sy-fdpos中存放查找到子串字符开始位置。
find语法：
find <查找字符串> in section
[offset <数字>] [length <数字>] of <字符串>
[in (byte|character) mode]
[respecting|ignoring case]
[match offset <变数a>]
[match length <变数b>]
查找指定字符串在字符串中位置，
respecting case :严格匹配，区分大小写；
ignoring case :不严格匹配，不区分大小写；
match offset <数字> 比较分段；
match length <数字>比较的范围；
变量a保存查找字符串在匹配的位置；
变量b，查找字符串长度，如果没有找到为0。
示例：
"查找字符串,找到sy-subrc为0，没有找到sy-subrc为4.sy-fdpos存放找到字符开始位置 DATA: Str05 type String value 'abcdefg', Str06 type String value 'de'. SEARCH Str05 for Str06. WRITE:/'sy-subrc=',sy-subrc,'sy-fdpos=',sy-fdpos. DATA:begin_index TYPE I, char_len TYPE I. "查找字符串 FIND 'name' IN SECTION OFFSET 5 LENGTH 18 OF 'hello everyone my name is tom' "查找到匹配开始位置 MATCH OFFSET begin_index "匹配字符串长度 MATCH LENGTH char_len. WRITE:/ 'begin_index:',begin_index,';char_len=',char_len.
5、字符串截取
语法：<字符串>+a(b),从a位置开始，读取b长度字符串
示例：
"字符串截取操作 Data str07 type String value 'hello world'. str07 = str07+6(5). WRITE :/'截取字符串:',str07.
6、字符串去除空格
语法：condense <字符串>
示例：
"字符串去除空格(字符串后面的无论多少空格都不计算位数) Data: str08 type String value ' hello world ', lenth type I. lenth = strlen( str08 ). write:/'原长度',lenth. CONDENSE str08. lenth = strlen( str08 ). write:/'去除前后空格',lenth. "去除所有空白 CONDENSE str08 NO-GAPS. lenth = strlen( str08 ). write:/'去除所有空白',lenth.
7、字符串拼接
语法：concatenate <子串1> <子串2> [<子串3>……] into <字符串>
[in (byte|character) mode] [separated by <字符串>]
将子串1和子串2等多个字符串通过指定字符串连接，然后赋值给字符串。
语法：使用’&&’也可以连接字符串
示例：
"字符串连接 DATA: Str09 type String value 'hello', Str10 type String value 'world', Str11 type String. CONCATENATE Str09 Str10 INTO str11. WRITE :/'连接后字符串',str11. CONCATENATE Str09 Str10 INTO str11 SEPARATED BY ','. “CONCATENATE Str09 Str10 INTO str11 SEPARATED BY SPACE. WRITE :/'连接后字符串',str11. DATA:Str14(12) TYPE c VALUE 'hello'. DATA:Str15(5) TYPE c VALUE 'world'. DATA:Str16(17) TYPE c. DATA:Str17(17) TYPE c. CONCATENATE Str14 '|' Str15 INTO Str16. WRITE:/'concatenate连接:',Str16. Str17 = Str14 && '|' && Str15 . WRITE:/'&&连接：',Str17.
8、字符串分割
语法：split <字符串> at <分割字符串> into <子串1> <子串2> [in (byte|character) mode]。
将字符串根据指定字符串分割成子串1和子串2。
split <字符串> at <分割字符串> int table <内表> [in (byte|character) mode]。
分割字符串到指定内表，内表中一定要有C类型字段。
示例：
"字符串分割 DATA: str12 type String, str13 type String. SPLIT Str11 at ',' INTO str12 str13. DATA:BEGIN OF res_tab OCCURS 0, str(12) TYPE C, END OF res_tab. "将字符串分割进内表，内表字段必须是C类型，String类型不行 SPLIT str11 at ' ' INTO TABLE res_tab.
9、字符串模式匹配
CO / CN contains only or not
CA / NA contains any or not any
CS / NS contain string or not
CP / NP contains pattern or not
比较时，如果str1和str2中有前置空格，可以加入比较，后置空格不加入比较。
<str1> co <str2>:str1包含于或等于str2,返回true;区分大小写，str1中字符在str2中都能找到，顺序不要求。
<str1> cn <str2> :str1 不仅包含于或等于str2,str1中有str2中没有的字符，返回true;区分大小写，顺序无要求。
示例：
DATA text1 type string value 'dea'. DATA text2 type string value 'abcde'. "text1的内容包含于或等于text2内容,不会比较空格 IF text1 co text2. WRITE / 'co true'. ELSE. WRITE / 'co false'. ENDIF. "text1不仅包含text2内容,除了text2内容还包括其他内容" text1 = ' defo'. text2 = 'def,helo'. IF text1 cn text2. WRITE / 'cn true'. ELSE. WRITE / 'cn false'. ENDIF.
<str1> ca <str2>: str1 包含任何str2字符，返回true;区分大小写，顺序无要求。
<str1> na <str2>:str1 不包含任何str2字符，返回true;区分大小写，顺序无要求。
示例：
"text1只要含text2任何一点内容，为true" text1 = ' g'. text2 = ' abcdG'. IF text1 ca text2. WRITE / 'ca true'. ELSE. WRITE / 'ca false'. ENDIF. "text1不包含text2任何内容" text1 = 'G'. text2 = 'ag'. "使用大写G为false. IF text1 na text2. WRITE / 'na true'. ELSE. WRITE / 'na false'. ENDIF.
CS和NS字符串整体匹配：不区分大小写，顺序一致
<str1> cs <str2> :str1 包含str2字符串，返回true;不区分大小写，顺序有要求。
<str1> ns <str2> :str1 不包含str2字符串，返回true;不区分大小写，顺序有要求。
示例：
"text1包含text2,连续字符串匹配,不区分大小写" text1 = 'defG'. text2 = 'fg'."大小写都为true IF text1 cs text2. WRITE / 'cs true'. ELSE. WRITE / 'cs false'. ENDIF. "text1不包含text2,连续字符串匹配,不区分大小写" text1 = 'abcdefG'. text2 = 'fG'. IF text1 ns text2. WRITE / 'ns true'. ELSE. WRITE / 'ns false'. ENDIF.
CP和NP是模式匹配：不区分大小写，顺序一致，#表示区分大小写，*代表任意字符。
<str1> cp <str2> :str1包含str2字符串，返回true;
<str1> np <str2> :str1不包含str2字符串，返回true;
示例：
"text1包含text2,模式匹配。#用来表示区分大小写，*任意字符" text1 = 'BcdefG'. text2 = '*b*'. IF text1 cp text2. WRITE / 'cp true'. ELSE. WRITE / 'cp false'. ENDIF. "text1不包含text2,模式匹配。#用来表示区分大小写，*任意字符" text1 = 'BcdefG'. text2 = 'b*'. IF text1 np text2. WRITE / 'np true'. ELSE. WRITE / 'np false'. ENDIF.