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( ).