源代码摘录如下。

 is_subtottxt_info = ls_subtot_info
               ip_subtot_line = lr_data
             改变中
               c_subtottxt = l_subtottxt。
           ls_lvc_data-value = l_subtottxt。


           将ls_lvc_data附加到ct_lvc_data。
         万一。


 ****************************************
 *每个Fieldcat条目的列
 ****************************************
         ls_lvc_data-value =空间。
         清除ls_lvc_data-style。
         在it_fcat_local处循环，分配
                 其中技术名称为" X"，no_out名称为" X"。
           如果l_invisible eq'X'。
             清除l_invisible。
             如果 -do_sum是初始的。
               继续。
             其他。
               清除ls_lvc_data-col_pos。
             万一。
           万一。


           将1加到ls_lvc_data-col_pos。


           分配组件-字段名
                            结构到的值。
           如果sy-subrc ne 0。
             讯息x000（0k）。
           万一。


 * ...平均工作
           如果 -do_sum等于'C'。
 *初始化平均结果和输入
              = 0。
             清除l_entries。


 *从fieldcatalog检索单位
             为分配空间。
             如果不是，则 -cfieldname为初始名称。
               分配组件 -cfieldname
                      结构到的值。
             万一。
             如果不是 -qfieldname是初始的。
               分配组件 -qfieldname
                      结构到的值。
             万一。