ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 动态表

动态表

原创 Linux操作系统 作者:fengleihen 时间:2009-06-17 17:44:04 0 删除 编辑

REPORT ZDYSQLDEMO .

   TYPE-POOLS : abap. "类型组。
   TYPE-POOLS : slis. "类型组。

   FIELD-SYMBOLS: TYPE STANDARD TABLE,
                  ,
               .
*    定义一个指向内表类型的指针。
   DATA: dy_table TYPE REF TO data, " 声明DATA类的对象。
               dy_line  TYPE REF TO data,  " 声明DATA类的对象。
               xfc TYPE lvc_s_fcat,
*  alv 中存放FIELD属性的结构,属于类型组slis。
               ifc TYPE lvc_t_fcat.
*  alv里存放FIELD属性的内表,属于类型组slis。

    DATA : idetails TYPE abap_compdescr_tab,
*   类型组ABAP里根据abap_compdescr定义的内表。
                 xdetails TYPE abap_compdescr.
* 类型组ABAP里定义的结构,可以存放字段的属性,

*比如:字段名,长度,数据类型等。
DATA : ref_table_des TYPE REF TO cl_abap_structdescr.
*声明cl_abap_structdescr的对象,
*类cl_abap_structdescr可以动态生成数据类型。
*下面以表ZMMI1为例子创建一个动态内表 。
DATA:TABLENAME(30) TYPE C.
TABLENAME = 'ZMMI1'.
      ref_table_des ?=
        cl_abap_typedescr=>describe_by_name( TABLENAME ).
*  构造函数初始化对象 ref_table_des
    idetails[] = ref_table_des->components[].

     LOOP AT idetails INTO xdetails.
      CLEAR xfc.
      xfc-fieldname = xdetails-name .
      xfc-inttype = xdetails-type_kind.
      xfc-intlen = xdetails-length + xdetails-decimals.
      xfc-decimals = xdetails-decimals.
     APPEND xfc TO ifc.
*将表ZMMI1中的字段属性传递给内表ifc
     ENDLOOP.

*    下面会根据内表IFC中的存放的字段属性构造内表

*实际上ABAP的动态内表实现起来是非常灵活的,对于那表IFC的内容我们也可根
*据自己的需要随意构造,最主要的是下面这个静态方法。

   CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = ifc
    IMPORTING
      ep_table        = dy_table.
   ASSIGN dy_table->* TO .

*让 指向dy_table。
  CREATE DATA dy_line LIKE LINE OF .
  ASSIGN dy_line->* TO .
*让指向dy_line。

*  到这里,我们动态那表就构造完成了,下面是动态SQL的实现。
      data:L_COND(100) TYPE C.
      DATA: I_COND LIKE TABLE OF L_COND.

      CONCATENATE 'MJAHR = '''  '2008' '''' INTO L_COND.
      APPEND L_COND TO I_COND.

      SELECT * INTO CORRESPONDING FIELDS OF TABLE 
             FROM ('ZMMI1') where (I_COND).

*上面的这条查询语句里的*号可以换成('filed1field2 field3')
*也是没有问题的,这里为了方便期间就用*了

*对于WHERE条件,必须通过那表来传,需要注意的是在SAP里的字符串,两个连续
*的逗号相当于一个逗号。
*我们把数据塞到 以后,需要把数据从里面读取出来,
*下面是读取的方法:
    LOOP AT INTO .
    DO.
      ASSIGN COMPONENT  sy-index
         OF STRUCTURE TO .
      IF sy-subrc <> 0.
        EXIT.
      ENDIF.
      IF sy-index = 1.
        WRITE:/ .
      ELSE.
        WRITE: .
      ENDIF.
    ENDDO.
  ENDLOOP.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/139677/viewspace-606609/,如需转载,请注明出处,否则将追究法律责任。

上一篇: idoc ale
下一篇: va01 screen
请登录后发表评论 登录
全部评论

注册时间:2009-03-31

  • 博文量
    24
  • 访问量
    26395