ABAP基本

定义数据类型用关键字 TYPES.
定义数据对象用关键字 DATA.

Paste_Image.png

变量

在abap程序中用abap基本数据类型（预定义类型）定义局部数据类型，还可以定义包含多个abap基本数据类型的结构体类型。

参考现有的数据对象（LIKE）
DATA A2 LIKE A1."A1对象
参考现有的数据类型（TYPE）
DATA A2 LIKE A1."A1类型

VALUE关键字来指定数据对象的初始值。
DATA NUM1 TYPE I VALUE 10. "NUM1初始值为10
LENGHT关键字指变量长度。
DATA NUM2 TYPE C LENGHT8.
DATA NUM2(8) TYPE C.
DATA语句没有指定 TYPE则默认长度为1的C类型。

系统变量

SY-SUBRC：系统执行某命令后，表示执行成功与否的变量，'0'表示成功
SY-UNAME：当前使用者的name
SY-DATUM：当前系统日期
SY-UZEIT：当前系统时间
SY-TCODE：当前执行程序的Tcode

常量

数值文字不加单引号
123，-123
字符文字加单引号
'HELLO','123.4','123E4'
CONSTANTS语句用来定义常数，必须有VALUE值
CONSTANTS a1 TYPE TNAME VALUE8.

一个汉字占两个长度

赋值
MOVE 对象/对象字段 TO 对象/对象字段.
对象/对象字段 = 对象/对象字段.

运算

Paste_Image.png

所有的符号都要用空格隔开，圆括号和操作符都是关键字需要跟操作数之间至少用一个空格隔开。
例：（ 20 + 10） *10 + 10 / 2.
用'/'去大值 用DIV取小值

数值函数

ABS(n)：取绝对值

SIGN(n)：判断数值符号
n为正，返回1；n为0，返回0；n为负，返回-1；

CEIL(n)：取大于数值n的最小整数.
例：WRITE CEIL(1.23). 输出2
WRITE CEIL(-2.23). 输出-2

FLOOR(n)：取小于数值n的最小整数
例：WRITE FLOOR(1.23). 输出1
WRITE FLOOR(-2.23). 输出-3

TRUNC(n)：去数值的整数部分
例：WRITE TRUNC(1.23). 输出1
WRITE TRUNC(-2.23). 输出-2

FRAC(n)：去数值的小数部分
例：WRITE FRAC(1.23). 输出0.23

具体用法：

DATA NUM TYPE P LENGTH 15 DECIMALS 3 .
num = TRUNC( NUM1 ).
WRITE:num.```

#####字符串函数


* 字符串移位
语法：SHIFT <c> by <n> PLACES <modes>.
<modes>:（1）空白，字符串往左移一位
（2）.LEFT 字符串往左移n位
（3）.RIGHT 字符串往右移n位
（4）.CIRCULAR  字符串以环形方式移位

* 取代
语法：REPLACE <STR1> WITH <STR2> INTO <c>.
将字符串<c>中的<STR1>以<STR2>取代 *区分大小写

* 大小写转换
语法：```TRANSLATE<c> to LOWER CASE."转小写
  TRANSLATE <c> to UPPER CASE."转大写```

* 字符串长度 strlen(<c>)*只能取字符不包含空格
例：a3 = strlen( <c> ).

* 取部分字符串
<c>+n(n)
例：a2 = <c>+2(2)

具体代码：```DATA A1 TYPE C LENGTH 6 VALUE'HELLO'.
DATA A2 TYPE C LENGTH 6.
DATA A3 TYPE I.
DATA STR1(3) VALUE 'ELL'."区分大小写
DATA STR2(3) VALUE '123'.
shift a1.
WRITE:/ a1.
SHIFT a1 by 1 PLACES CIRCULAR.
WRITE:/ a1.
REPLACE STR1 WITH STR2 INTO A1.
WRITE:/ A1.
A1 = 'HELLO'.
TRANSLATE a1 to LOWER CASE.
WRITE:/ a1.
a3 = strlen( a1 ).
WRITE:/ a3.
a2 = a1+2(2).
WRITE:/ a2.```
![运行结果.png](http:https://img.haomeiwen.com/i3459413/57ddeba474440095.png?imageMogr2/auto-orient/strip%7CimageView2/2/w/1240)

######选择屏幕
* 单选框、按钮
PARAMETERS  TYPE  后面是类型
```DEFAULT``` 设置默认值
```OBLIGATORY```  设置为必输项

* 复杂输入框、
SELECT-OPTIONS FOR    后面是对象
LOW HIGH为值得上下范围
```DEFAULT <g>```设置LOW值
```TO <g>``` 设置HIGH值

* 将多个元素放在一行上
```SELECTION-SCREEN BEGIN OF line.
 PARAMETERS P_WEeKS TYPE T001W-WERKS  OBLIGATORY ."工厂
 PARAMETERS P_WEeKS TYPE T001W-WERKS  OBLIGATORY ."工厂
 SELECTION-SCREEN END OF line.```
将并排显示
* 创建元素逻辑块，把逻辑上在一起屏幕元素分组
```SELECTION-SCREEN BEGIN OF BLOCK X WITH FRAME TITLE TEXT-001.
PARAMETERS P_WERKS TYPE T001W-WERKS  OBLIGATORY ."工厂
SELECT-OPTIONS:S_LIFNR FOR LFA1-LIFNR,"供应商编码
  S_MATNR FOR MARA-MATNR,  "物料号
S_MTART FOR MARA-MTART,  "物料类型
  S_MATKL FOR MARA-MATKL,"物料组
 S_EXTWG FOR MARA-EXTWG,"外部物料组
S_BUDAT FOR MKPF-BUDAT."过账日期
SELECTION-SCREEN END OF BLOCK X.```

* 拓展
单选框实现复选框的功能
``SELECTION-SCREEN BEGIN OF BLOCK X WITH FRAME TITLE TEXT-001.
PARAMETERS P_WERKS TYPE T001W-WERKS  OBLIGATORY ."工厂
SELECT-OPTIONS:S_P_WERKS FOR T001W-WERKS NO-EXTENSION no intervals  .
SELECTION-SCREEN END OF BLOCK X.```

![例图.png](http:https://img.haomeiwen.com/i3459413/1b3b4e94d67fd133.png?imageMogr2/auto-orient/strip%7CimageView2/2/w/1240)

其实在外观上和单选框一样，但实际为没有扩展没有间隔的复选框。