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

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,

扫描二维码关注公众号，回复： 3185544 查看本文章

      email(20) TYPE c VALUE '[email protected]',

      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 '[email protected]'.

*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 '[email protected]'.

*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.