20101102 - 001 ALV动态显示

动态ALV显示报表1．根据实际需求计算出需要动态显示列，并把各列列名存到内表i_fieldcat（注：i_fieldcat LIKE TABLE OF lvc_s_fcat）中，包括字段的数据类型、字段长度、对齐方式、小数位数等，具体查看数据结构lvc_s_fcat；2．通过调用类CL_ALV_TABLE_CREATE的方法CREATE_DYNAMIC_TABLE把内表i_fieldcat 转化成数据参考变量d_ref（注：d_ref TYPE REF TO data）；3．把数据参考变量d_ref赋值给字段符号<t_tabout>（注：FIELD-SYMBOLS: <t_tabout> TYPE STANDARD TABLE），赋值的语法：ASSIGN d_ref->* TO <t_tabout>。

（相当于定义了一个内表）4．动态创建数据参考变量d_line（注：CREATE DATA d_line LIKE LINE OF <t_tabout>），然后数据参考变量d_line赋值给字段符号<t_tabout_line>，赋值的语法：ASSIGN d_line->* TO <t_tabout_line>。

（相当于定义了第3步中的内表的工作区）5．把数据填充到第3步中的内表中。

把字段符号<t_tabout_line>需要赋值的字段赋值给另外一个字段符号<t_tabout_field>，通过把实际值赋值给<t_tabout_field>达到赋值给工作区<t_tabout_line>的某个字段，然后把工作区的值APPEND到内表中，赋值的语法：ASSIGN COMPONENT XXXX OF STRUCTURE <t_tabout_line> TO <t_tabout_field>。

6．最后就跟普通的ALV显示一样处理了，把内表<t_tabout>的数据通过ALV函数显示出来。

（注：ALV显示函数REUSE_ALV_GRID_DISPLAY）注1：对于使用DATA d_ref TYPE REF TO DATA来声明的数据参考变量，程序如果要访问数据参考变量指定的数据，你首先要将数据参考变量赋值给一个字段符号FIELD-SYMBOLS （程序是不能直接通过数据参考变量来访问的）。

如果数据参考变量为初始化状态，sy-subrc 就返回４。

将数据参考变量赋值给一个字段符号FIELD-SYMBOLS的语法：ASSIGN d_ref->* TO <FIELD-SYMBOLS> 。

注2：数据参考变量TYPE REF TO DATA、字段符号FIELD-SYMBOL的概念。

此图说明了为什么程序不能直接访问数据参考变量，只能先把数据参考变量赋值给字段符号，通过访问字段符号的值来间接的访问数据参考变量的值，或者可以使用numref->*来访问。

修改数据参考变量的值也是如此。

数据参考变量的地址值ABAP/4技术资料——动态ASSIGN1、字段的动态分配如果仅在运行时才知道要分配给字段符号的数据对象名称，请使用下列ASSIGN 语法ASSIGN (<f>) TO <FS>，这个语句将名称包含在<f> 中的字段分配给字段符号<FS>。

对（<f>）不能指定偏移量。

运行时，系统按下列顺序搜索给定的字段：1. 如果分配是在子程序或功能模块中执行的，系统将在局部数据的子程序或功能模块中搜索字段。

2. 如果分配是在子程序或功能模块之外执行的，或者在其中未找到字段，则系统将在程序的全局数据中搜索字段。

3. 如果在全局数据中未发现此字段，系统将在表工作区中搜索，该表工作区是指当前程序组的主程序中TABLES语句声明的表工作区。

程序组由主程序和包含外部子程序的定义的所有程序组成，这些外部子程序被主程序调用（包括被嵌套的程序）。

由于这种搜索对响应时间有负面效应，只有绝对必要时，才可使用动态ASSIGN。

如果在运行之前只知道分配的表工作区，则可以使用在表工作区的动态分配中所描述的ASSIGN 语句的变量。

如果搜索成功并且字段可分配给字段符号，则SY-SUBRC 设为0，否则，返回4。

为安全起见，动态ASSIGN 之后总要检查SY-SUBRC 的值，以避免字段符号指向未定义区域。

假设主程序SAPMZTST 如下：PROGRAM SAPMZTST.TABLES SBOOK.SBOOK-FLDATE = SY-DA TUM.PERFORM FORM1(MYFORMS1).假设还调用两个程序MYFORMS1 和MYFORMS2：PROGRAM MYFORMS1.FORM FORM1.PERFORM FORM2(MYFORMS2).ENDFORM.和PROGRAM MYFORMS2.FORM FORM2.DATA NAME(20) V ALUE 'SBOOK-FLDATE'.FIELD-SYMBOLS <FS>.ASSIGN (NAME) TO <FS>.IF SY-SUBRC EQ 0.WRITE / <FS>.ENDIF.ENDFORM.执行SAPMZTST 之后，输出显示如下：08.02.1995该示例中，程序组由SAPMZTST、MYFORMS1 和MYFORMS2 组成。

在MYFORMS2 中定义字段符号<FS>。

动态ASSIGN 语句之后，指向主程序SAPMZTST 中声明的表工作区的组件FLDATE。

用静态ASSIGN 语句，这是不可能的。

换句话说，不能用SBOOK-FLDATE替代(NAME)，因为语法检查时将导致错误。

2、表工作区的动态分配如果运行之前知道要将表工作区分配给字段符号，但不知道表工作区的名称，请使用动态ASSIGN 语句的下列变量：语法ASSIGN TABLE FIELD (<f>) TO <FS>. 系统仅在表工作区中搜索要分配给字段符号的数据对象，该表工作区是由当前程序组的主程序中TABLES 语句声明的。

即，系统仅执行在动态ASSIGN所描述的搜索的第三步。

如果搜索成功，并且可以分配字段给字段符号，则SY-SUBRC 设为0。

否则返回4。

TABLES SBOOK.DA TA: NAME1(20) V ALUE 'SBOOK-FLDATE',NAME2(20) V ALUE 'NAME1'.FIELD-SYMBOLS <FS>.ASSIGN TABLE FIELD (NAME1) TO <FS>.WRITE: / 'SY-SUBRC:', SY-SUBRC.ASSIGN TABLE FIELD (NAME2) TO <FS>.WRITE: / 'SY-SUBRC:', SY-SUBRC.输出如下：SY-SUBRC: 0SY-SUBRC: 4在第一个ASSIGN 语句中，系统发现表工作区SBOOK 和SY-SUBRC的组件FLDATE 被设为0。

第二个ASSIGN 语句中，系统没有发现字段NAME1，因为它只被DA TA 语句声明，而不是被TABLES 语句声明。

在这种情形，SY-SUBRC 返回4。

将字段符号分配给其它字段符号，除了使用数据对象的名称外，还可以将字段符号分配给ASSIGN 语句的所有变量中的字段符号。

*&---------------------------------------------------------------------**& Report YTEST **& **&---------------------------------------------------------------------**& 动态ALV显示例子： **& **&---------------------------------------------------------------------*REPORT ytest.TABLES: sflight.DATA: t_sflight LIKE TABLE OF sflight WITH HEADER LINE.DATA: BEGIN OF t_connid OCCURS 0,connid LIKE sflight-connid,END OF t_connid.DATA: i_fieldcat LIKE TABLE OF lvc_s_fcat,w_fieldcat LIKE LINE OF i_fieldcat.FIELD-SYMBOLS: <t_output> TYPE STANDARD TABLE.PARAMETERS: p_carrid LIKE sflight-carrid.START-OF-SELECTION.PERFORM sub_calc_column.PERFORM sub_generate_itab.PERFORM sub_display.*&---------------------------------------------------------------------**& Form sub_calc_column*&---------------------------------------------------------------------** 1、取数并计算动态列*----------------------------------------------------------------------*FORM sub_calc_column .SELECT *FROM sflightINTO CORRESPONDING FIELDS OF TABLE t_sflightWHERE carrid = p_carrid.LOOP AT t_sflight.t_connid-connid = t_sflight-connid.COLLECT t_connid.ENDLOOP.ENDFORM. " sub_calc_column*&---------------------------------------------------------------------**& Form sub_generate_itab*&---------------------------------------------------------------------** 2、生成动态列表，并填充数据*----------------------------------------------------------------------*FORM sub_generate_itab .DATA: ep_table TYPE REF TO data,w_table TYPE REF TO data,p_connid(4).FIELD-SYMBOLS: <w_output> TYPE ANY,<fields_name>.DEFINE append_fieldcat.w_fieldcat-fieldname = &1.w_fieldcat-datatype = &2.w_fieldcat-intlen = &3.w_fieldcat-decimals = &4.w_fieldcat-just = &5.append w_fieldcat to i_fieldcat.clear: w_fieldcat.END-OF-DEFINITION.append_fieldcat 'CARRID' 'CHAR' '3' '' 'L'.LOOP AT t_connid.append_fieldcat t_connid-connid 'CURR' '13' '2' 'R'.ENDLOOP.* 注：这里的EXPORTING、IMPORTING相对于程序来说，it_fieldcatalog是程序的输出参数，ep_table是程序得到的参数；* 对于类方法来说it_fieldcatalog是输入参数，ep_table是输出参数（进到方法里可以看到it_fieldcatalog是EXPORTING* 参数，ep_table是IMPORTING参数）CALL METHOD cl_alv_table_create=>create_dynamic_tableEXPORTINGit_fieldcatalog = i_fieldcatIMPORTINGep_table = ep_table.ASSIGN ep_table->* TO <t_output>.CREATE DATA w_table LIKE LINE OF <t_output>.ASSIGN w_table->* TO <w_output>.LOOP AT t_sflight.MOVE-CORRESPONDING t_sflight TO <w_output>.READ TABLE t_connid WITH KEY connid = t_sflight-connid.* 把结构<w_output>的字段名为“t_sflight-connid的值”的数据参考变量赋值给字段符号（Field sysmbol，指针）* 通过访问指针<fields_name>来访问数据参考变量的值，同理，也可以改变指针的值来修改数据参考变量的值。