数据类型、数据对象、数据输出

EX.

1. 定义常量:

PI ,浮点型，初始值为 “3.1415926”;

2. 定义变量:

ZSTR1 ，字符型，长度为 10 ， 初始值为“adfds”；

ZSTR2 , 字符型，长度为8 ；

ZI, 整型，初始值为 10  ；

ZSTRN,数值型，长度为10；

ZDATE,日期型，初始值今天；

ZTIME时间型；初始值当前时间。

ZCHECK，字符型，长度为1 ；初始值 “X”，

LS_SALESORER,结构体变量，包含字段：销售凭证, 销售组织, 分销渠道, 产品组, 业务范围, 售达方。（参考表VBAK）

LS_SALESORDER1，结构体变量，继承结构体LS_SALESORDER，再添加2个字段：创建人，创建日期。

3. 输出变量：

3.1 输出 ZSTR1 ， ZDATE , ZTIME.

3.2 换行将变量ZCHECK 输出为复选框。

3.3 换行输出常量PI ，第一行使背景颜色为红色，第二行使字体颜色为红色。

3.4 输出一条横线，在80 的位置上输出一条竖线。

3.5给两个结构体变量赋值，要求使用MOVE –CORRESPONDING ,并且输出.

4.定义字符串LV_STRING1，长度20，初始值‘hello  world’，LV_STRING2和LV_STRING1相同类型，初始值也是‘hello  world’。

4.1 去除LV_STRINF1的空格并输出。

4.2 遇到’o’拆分，拆成三个变量，并输出三个变量。

4.3 拼接拆分后的前两个变量，以空格隔开并输出拼接后的结果。

4.4 LV_STRING1的第2个字符开始的3位长度的字符用‘123’来替换，并输出。

4.5 转置LV_STRING2，结果为‘world  hello’，并输出.

4.6 LV_STRING2前面加一个空格，并且输出。

DATA:PI TYPE P VALUE '3.1415926' DECIMALS 7.
DATA:ZSTR1 TYPE C LENGTH 10 VALUE 'adfds'.
DATA:ZSTR2(8) TYPE C.
DATA:ZI TYPE I VALUE '10'.
DATA:ZSTRNZ(10) TYPE N .
DATA:ZDATE TYPE D .
ZDATE =  SY-DATUM.
DATA:ZTIME TYPE T .
ZTIME =  SY-UZEIT.
DATA:ZCHECK TYPE C VALUE 'X'.
DATA: BEGIN OF LS_SALESORER,
        VBELN LIKE VBAK-VBELN,
        VKORG LIKE VBAK-VKORG.
DATA:END OF LS_SALESORER.
DATA:BEGIN OF LS_SALESORDER1.
    INCLUDE STRUCTURE LS_SALESORER.
DATA:ERDAT TYPE vbak-ERDAT.
DATA:ERNAM TYPE vbak-ERNAM.
DATA:END OF LS_SALESORDER1.
WRITE:/ ZSTR1,/ ZDATE,/ ZTIME.
WRITE:/ ZCHECK AS CHECKBOX.
WRITE:
/ '111' INTENSIFIED ON COLOR = 5,
/ PI INVERSE ON COLOR = 6,
/ SY-ULINE,
/80 SY-VLINE.
move '2000020' to LS_SALESORDER1-VBELN.
WRITE '8000' to LS_SALESORDER1-vkorg.
LS_SALESORDER1-ERDAT = sy-DATUM.
LS_SALESORDER1-ERNAM = LS_SALESORDER1-VBELN+2(5).
MOVE-CORRESPONDING LS_SALESORDER1 to LS_SALESORER.
WRITE:/ LS_SALESORDER1-VBELN,/ LS_SALESORDER1-vkorg,/ LS_SALESORDER1-ERDAT,/ LS_SALESORDER1-ERNAM,
/ LS_SALESORER-VBELN,/ LS_SALESORER-VKORG.

DATA LV_STRING1(20) TYPE C VALUE 'hello  world'.
DATA LV_STRING2(20) TYPE C VALUE 'hello  world'.
DATA LV_STRING3(20) TYPE C VALUE 'hello  world'.
CONDENSE LV_STRING1 NO-GAPS.
WRITE:/ LV_STRING1.
data:A(10),B(10),C(10),D(10),E(11).
SPLIT LV_STRING1 AT 'o' INTO A B C.
WRITE:/ A,/ B,/ C.
CONCATENATE B C INTO D SEPARATED BY SPACE.
WRITE:/ D.
E = |{ B }{ C }|.
WRITE:/ E.
REPLACE LV_STRING1+2(3) WITH '123' INTO LV_STRING1.
WRITE:/ LV_STRING1.
WRITE:/ LV_STRING2.
SHIFT LV_STRING2 UP TO 'world' CIRCULAR.
WRITE:/ LV_STRING2.
LV_STRING2 = | { LV_STRING2 }|.
WRITE:/ LV_STRING2.