创建程序

语法格式

程序测试

AS SPFLI_NAME2 RENAMING WITH SUFFIX _NAME2 后缀

变量的结构

程序

*&---------------------------------------------------------------------*
*& Report Z_TEST_DATA_DEFINE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_TEST_DATA_DEFINE.


DATA: BEGIN OF G_SPFLI, "spfli表的字段
        CARRID    TYPE SPFLI-CARRID,
        CONNID    TYPE SPFLI-CONNID,
        COUNTRYFR TYPE SPFLI-COUNTRYFR,
      END OF G_SPFLI.

DATA: BEGIN OF G_DATA.
        INCLUDE STRUCTURE G_SPFLI.
DATA:   NAME TYPE STRING,
      END OF G_DATA.

DATA: BEGIN OF G_DATA_SPFLI.
        INCLUDE STRUCTURE SPFLI.
DATA:   NAME TYPE STRING,
      END OF G_DATA_SPFLI.

DATA: BEGIN OF G_DATA_SPFLI2.
        INCLUDE TYPE SPFLI AS SPFLI_NAME.
        INCLUDE TYPE SPFLI AS SPFLI_NAME2 RENAMING WITH SUFFIX _NAME2.
DATA:   NAME TYPE STRING,
      END OF G_DATA_SPFLI2.


WRITE:''.

结构类型嵌套表和结构字段

类型TYPES嵌套类型

程序

TYPES: BEGIN OF GTY_DATA,
         NAME TYPE STRING,
         AGE  TYPE I,
         DEPT TYPE STRING,
       END OF GTY_DATA.
TYPES: BEGIN OF GTY_OUT.
         INCLUDE TYPE GTY_DATA.
TYPES:   ID TYPE I,
       END OF GTY_OUT.

DATA: GS_OUT TYPE GTY_OUT.
DATA: GT_OUT TYPE TABLE OF GTY_OUT.
DATA: BEGIN OF GS_SFLIGHT ,
        PRICE    TYPE SFLIGHT-PRICE,
        CURRENCY TYPE SFLIGHT-CURRENCY,
      END OF GS_SFLIGHT.
DATA : BEGIN OF GT_DATA_T.
         INCLUDE STRUCTURE GS_SFLIGHT.
DATA:    GT_OUT TYPE TABLE OF GTY_OUT,
         DD     TYPE I,
       END OF GT_DATA_T.
WRITE:''.