01-ABAP基本数据类型

*&---------------------------------------------------------------------*
*& Report  Z4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z4.

*-----------------------------预定数据类型
DATA lv_c(10) TYPE c VALUE 'abcefg'.    " 定义CHAR
DATA lv_d TYPE d.                       " 定义时间
DATA lv_f TYPE f.                       " 定义浮点开型
DATA lv_i TYPE i.                       " 定义整数
DATA lv_n(10) TYPE n.
DATA lv_p TYPE p DECIMALS 2.
DATA lv_t TYPE t.

lv_c = 'hello world...'.

lv_d = sy-datum.
lv_d = lv_d + 30.
lv_f = '127.17'.
lv_i = 1688.
lv_n = 771541213.
lv_p = '3.1415962'.
lv_t = sy-uzeit.

WRITE:/ 'LV_C:', lv_c.
WRITE:/ 'LV_D:', lv_d.
WRITE:/ 'LV_F:', lv_f.
WRITE:/ 'LV_I:', lv_i.
WRITE:/ 'LV_N:', lv_n.
WRITE:/ 'LV_P:', lv_p.
WRITE:/ 'LV_T:', lv_t.


*数据元素
TYPES:ty_bu_partner(10) TYPE c.
TYPES:ty_bu_partner1 TYPE bu_partner.
TYPES:ty_bu_partner2 TYPE ty_bu_partner.

*数据结构
TYPES:BEGIN OF ty_partnerif,
  name(10) TYPE c,
  age(2)  TYPE i,
  tel(11) TYPE n,
  END OF ty_partnerif.

DATA: lv_partner TYPE ty_bu_partner,
      lv_partner1 TYPE ty_bu_partner1,
      lv_partner2 TYPE ty_bu_partner2,
      lv_partnerinf TYPE ty_partnerif.

lv_partner  = '张三'.
lv_partner1 = '李四'.
lv_partner2 = lv_partner.

WRITE:/ 'lv_partner:',lv_partner.
WRITE:/ 'lv_partner1:',lv_partner1.
WRITE:/ 'lv_partner2:',lv_partner2.

lv_partnerinf-name = lv_partner.
lv_partnerinf-age  = 30.
lv_partnerinf-tel  = 15390725037.

WRITE : / '结构体 lv_partnerinf-name:',lv_partnerinf-name.
WRITE : / '结构体 lv_partnerinf-age:',lv_partnerinf-age.
WRITE : / '结构体 lv_partnerinf-tel:',lv_partnerinf-tel.


ULINE.

DATA:BEGIN OF lv_customer.
  INCLUDE TYPE ty_partnerif.
  DATA: address(40) TYPE c,
  END OF lv_customer.

  MOVE-CORRESPONDING lv_partnerinf to lv_customer.

  lv_customer-name  = 'liush'.
  lv_customer-address = '东莞市大岭山镇....'.

  WRITE:/ lv_customer-name.
  WRITE:/ lv_customer-address.