SAP-ABAP三种定义嵌套型结构的方法

 

REPORT zwenzhe_test01.

TYPES:BEGIN OF ty_ekpo,
        matnr TYPE ekpo-matnr,
        menge TYPE ekpo-menge,
      END OF ty_ekpo.

TYPES: tty_ekpo TYPE TABLE OF ty_ekpo WITH DEFAULT KEY.

TYPES:BEGIN OF ty_ekko3,
        ebeln TYPE ekko-ebeln,
        lifnr TYPE ekko-lifnr.
TYPES:  item TYPE  tty_ekpo .
TYPES:END OF ty_ekko3.

TYPES:BEGIN OF ty_ekko4,
        ebeln TYPE ekko-ebeln,
        lifnr TYPE ekko-lifnr.
TYPES: item TYPE STANDARD TABLE OF ty_ekpo WITH DEFAULT KEY.
TYPES:END OF ty_ekko4.

TYPES:BEGIN OF ty_ekko,

        ebeln TYPE ekko-ebeln,
        lifnr TYPE ekko-lifnr,
        item  TYPE ekko_tty.
TYPES:END OF ty_ekko.

DATA:lt_ekko TYPE TABLE OF ty_ekko.
DATA:ls_ekko TYPE  ty_ekko.


DATA:lt_ekko2 TYPE tty_ekpo.


DATA:lt_ekko3 TYPE TABLE OF ty_ekko.


BREAK-POINT.

TYPES: BEGIN OF ty_data,

       zsfsyqj         TYPE  anlb-ndper,        "税法可使用期间
       zsfysyqj         TYPE  anlb-ndper,       "已使用期间

**计算累计购置 和 累计折旧 增加字段
        anbtr          TYPE   anep-anbtr,        "记账金额
        kansw          TYPE   anlc-kansw,
        knafa          TYPE   anlc-knafa,
        nafag          TYPE   anlc-nafag,        "记帐在当前年的正常折旧

        nafaz1         TYPE   anlp-nafaz,
        nafaz2         TYPE   anlp-nafaz,
        nafaz3         TYPE   anlp-nafaz,
        nafaz4         TYPE   anlp-nafaz,

        anbtr2         TYPE   anep-anbtr,        "记账金额

        nafav4         TYPE   anea-nafav ,
        nafal          TYPE   anea-nafal ,
        anbtr620       TYPE   anep-anbtr,        "记账金额

        afaber         TYPE  anlp-afaber.

        INCLUDE STRUCTURE ztfi057_1.

TYPES: END OF ty_data.

TYPES: BEGIN OF ty_data.
        INCLUDE STRUCTURE ztfi057_1.
TYPES: zsfsyqj         TYPE  anlb-ndper,        "税法可使用期间
       zsfysyqj         TYPE  anlb-ndper,       "已使用期间

**计算累计购置 和 累计折旧 增加字段
        anbtr          TYPE   anep-anbtr,        "记账金额
        kansw          TYPE   anlc-kansw,
        knafa          TYPE   anlc-knafa,
        nafag          TYPE   anlc-nafag,        "记帐在当前年的正常折旧

        nafaz1         TYPE   anlp-nafaz,
        nafaz2         TYPE   anlp-nafaz,
        nafaz3         TYPE   anlp-nafaz,
        nafaz4         TYPE   anlp-nafaz,

        anbtr2         TYPE   anep-anbtr,        "记账金额

        nafav4         TYPE   anea-nafav ,
        nafal          TYPE   anea-nafal ,
        anbtr620       TYPE   anep-anbtr,        "记账金额

        afaber         TYPE  anlp-afaber.



TYPES: END OF ty_data.

http://blog.sina.com.cn/s/blog_4ab043a80100emh7.html

*第一种定义嵌套型结构的方法

DATA: BEGIN OF str1,

      f_name(4) TYPE c VALUE 'Brad',

      l_name(4) TYPE c VALUE 'Pitt',

      END OF str1.

DATA: BEGIN OF str2,

      name LIKE str1,

      email(20) TYPE c VALUE 'abc@aaa.com',

      END OF str2.

*第二种定义嵌套型结构的方法

*DATA: BEGIN OF str1,

*      f_name(4) TYPE c VALUE 'Brad',

*      l_name(4) TYPE c VALUE 'Pitt',

*      END OF str1.

*DATA: BEGIN OF str2.

*        INCLUDE STRUCTURE str1 as name.

*DATA email(20) TYPE c VALUE 'abc@aaa.com'.

*DATA END OF str2.

*第三种定义嵌套型结构的方法

*TYPES: BEGIN OF str1,

*      f_name(4) TYPE c," VALUE 'Brad',

*      l_name(4) TYPE c," VALUE 'Pitt',

*      END OF str1.

*DATA: BEGIN OF str2.

*INCLUDE TYPE str1 AS name.

*DATA email(20) TYPE c VALUE 'abc@aaa.com'.

*DATA END OF str2.

str2-name-f_name = str1-f_name.

str2-name-l_name = str1-l_name.

WRITE: / str2-name-f_name,

         str2-name-l_name,

         str2-email.