ABAP笔记

　　ABAP程序开发，经常会遇到报表开发需求。使用ABAP的Report类型程序开发报表十分便利，用很少的代码就可以快速开发出一个报表。这种报表需求，抛开各种细枝末节，都可以归结为“三步走”：1、选择屏幕；2、OPEN SQL；3、结果呈现。一般情况下，在编写报表之前，都是知道取数的表是哪个表的，但是，如果想要让用户输入取数的表，然后再从这个表里把所有数据都取出来，呈现在屏幕上，这样的需求，涉及到动态编程。因为报表运行前，并不知道会从哪个数据表里取数据，也就无法参照声明出用来存放数据的结构和内表，只有用户输入表名，点击报表运行以后，才会知道所需要的内表的结构信息，这些信息，需要动态的获取，并动态的声明出所需的内表，然后动态的取出数据存放在这个内表中，最后呈现在屏幕上。

 REPORT zm_test01.
 "选择屏幕提取一个用户输入的字符串
  DEFAULT 'sflight'.
 "r_dataob是一个数据引用，data类型。
 "<f_tb>为字段符号。可以指向任何内表。
 DATA r_dataob TYPE REF TO data.
 FIELD-SYMBOLS <f_tb> TYPE ANY TABLE.
 "错误处理用来处理用户输入的字符串不是数据字典里的内表的情况
 TRY .
     "定义错误类型
     DATA r_err TYPE REF TO cx_sy_create_data_error.
     "这里是关键，指向名称为用户输入的p_name的内表指针
     CREATE DATA r_dataob TYPE TABLE OF (p_name).
   CATCH cx_sy_create_data_error INTO r_err. "捕捉定义的错误类型
     DATA err_txt TYPE string.
     err_txt = r_err->get_text( ).
     WRITE: '不存在的表', err_txt.
     "使用EXIT关键字结束程序，从而下面的代码就不会继续执行了，
     "否则虽然捕捉到了错误，但是程序还会继续向下运行
     EXIT.
 ENDTRY.
 "将指针解引用，解引用后为其指向的内表，然后将字段符号<f_tb>指向这个内表
 "此时字段符号才会有值
 "之后需要用这个内表，只需要使用字段符号即可
 ASSIGN r_dataob->* TO <f_tb>.
 "在这个select语句中，p_name为用户输入的取数据的表，而<f_tb>字段符号为根据用户输入的字符串动态生成的内表。
 "注意在select语句中可以使用字段符号，但是不能直接把解引用放进来。也就是说，字段符号是很有必要的。
 SELECT * FROM (p_name) INTO TABLE <f_tb>.
 "使用savl快速构建报表简单呈现
 DATA r_alv_tb TYPE REF TO cl_salv_table.
 DATA r_alv_funclist TYPE REF TO cl_salv_functions_list.
 TRY.
     CALL METHOD cl_salv_table=>factory
       IMPORTING
         r_salv_table = r_alv_tb
       CHANGING
         t_table      = <f_tb>.
   CATCH cx_salv_msg .
 ENDTRY.
 r_alv_funclist = r_alv_tb->get_functions( ).
 r_alv_funclist->set_all( ).
 r_alv_tb->display( ).