学习本章节最好是有自己的sap账号和密码,可以完整的登录,进行语法的测试,纸上谈兵不可取,多多练习敲代码才能加深自己的印象和理解。
首先建立自己的第一个abap程序
首先我们需要登录sap进入的首页面
登录首页
1. 输入t-code se38 进入程序创建界面
写好程序名称, 一般以zprograme开头,点击创建
2. 点击保存进入创建
标题: 这里写好该程序的用途,
类型: 填写可执行程序
状态: sap标准生产状态
3. 保存,最后我们将包放在TMP包下,不会印象sap端的其他程序运行
4, 创建成功,可以回家睡觉啦
语法基础以及测试效果展示
程序员的第一步,先写个helloworld把,从现在开始,你就会了一门新语言了
REPORT zprograme_test01.
WRITE: 'hello world ! ' . " write 语句, 都是以该格式进行的, .就是语句结束的标志, 所有的关键子结束都必须以 . 结尾
SKIP . " 跳过一行,流一行空白 与 /, 作用相同
WRITE: 'hello world2 ! ' .
WRITE : /,sy-uline . " /, 作为空行, sy-uline 系统变量,就是在屏幕上画一条直线
WRITE: 'hello world2 ! ' .
ULINE . " 与 sy-uline 相同的作用
效果展示
可以清晰的看到,abap程序的展示效果,以及语法的效果, 就是有点觉得,abap的语法属实有点反人类了。
不要着急,还有跟反人类的,再来看看abap的数据类型和定义把
数据类型
TYPES:BEGIN OF employee,
code(10) TYPE c,
name(10) TYPE c,
END OF employee. " 设置 employee 结构体,也可以叫做工作区
DATA: ls_emp TYPE TABLE OF employee . " 内表,查询后的数据一般放在这里
DATA: wa_emp TYPE employee . " 正规写法, wa_表名,作为某个表的工作区,
TYPES:address(50) TYPE c. "
DATA:emp TYPE employee.
DATA:myadd TYPE address. " 实际上就是 myadd type address 等同于 (50) type c
emp-code = '1001'. "赋值
emp-name = '张三'.
myadd = 'this is a address'.
WRITE: / emp.
WRITE: / myadd.
数据对象
变量
变量定义包含 name length type 等, 语法如下
DATA <name> [<length>] type <type> [value <value> ] [decimal <decimal>]
[] 里面内容表示可选项, <> 表示名称
<name>变量名称,最长30 字符,不可包含+.,:()等字符
<length>长度,用圆括号括起来,
<type>数据类型
<value>初始值
decimal小数位
eg:
DATA: c1 TYPE c,
c2 TYPE i VALUE 1 ,
temp TYPE p DECIMALS 2 VALUE 2 ,
str(10) TYPE c VALUE '你好hello world 你好世界!!'. " (10) 表示只选取 定义内容的前十个字符
WRITE : c1 .
ULINE .
WRITE : c2 .
ULINE .
WRITE : temp .
ULINE .
WRITE : str.
ULINE .
变量定义也可以用关键字LIKE
DATA <name> [<length>] like<object>|<type>[ value <value>] [ decimal <decimals>]
TYPE 与LIKE的区别:
LIKE 用在已有值的数据类型, 如系统变量, 而TYPE则是用在 定义数据类型。
DATA: str2 LIKE str,
tcode LIKE sy-tcode.
write: str2 .
常量
常量定义使用 CONSTANTS
CONSTANTS<常量名>[<长度> ] TYPE <数据类型> VALUE <默认值>
CONSTANTS PI TYPE P DECIMALS 5 VALUE '3.14159'.
系统定义对象
SY-SUBRC : 系统执行某指令后,表示执行成功与否的变量,'0' 表示成功
SY-UNAME: 当前使用者登入SAP的USERNAME;
SY-DATUM: 当前系统日期;
SY-UZEIT: 当前系统时间;
SY-TCODE: 当前执行程序的Transaction code
SY-INDEX : 当前LOOP循环过的次数
SY-TABIX: 当前处理的是internal table 的第几笔
SY-MANDT: CLIENT(客户端编号) NUMBER
SY-VLINE: 画竖线
SY-ULINE: 画横线
SKIP 空行
ULINE 画横线
结构
DATA:BEGIN OF userinf, " 定义结构体,同时这个结构体,就像java中的对象,这些属性属于这个对象
sid(10) TYPE c,
name(20) TYPE c,
tel(20) TYPE c,
END OF userinf.
DATA: user1 LIKE userinf,
user2 LIKE userinf. " 复制了两个对象 user1 ,user2
user1-sid = 'A00001'.
user1-name =' JERY'.
user1-tel = '010-12345678'. " user1 赋值
user2 = user1. " copy属性
WRITE:user1, /, user1-sid . " 展示数据
SKIP. uline.
WRITE:'user2 : ',user2, /, user2-sid .
DATA:BEGIN OF userdetail,
sid(10) TYPE c,
name(20) TYPE c,
birdate TYPE d,
add(50) TYPE c,
END OF userdetail. " 一个比user更强大的对象
MOVE-CORRESPONDING user1 TO userdetail . " 将user1 里面的属性复制给userdetail,同时由于电话对应字段在userdetail的第三位,就是字段类型不一致导致最后复制过去的时候,变为00000000了
SKIP. uline.
WRITE:'userdetail : ',userdetail, /, userdetail-sid .