ABAP动态生成内表的几种方法

1、ABAP动态生成内表的几种方法1. 使用modify(p_tabname)from<dyn_wa>.的时候，一定要确定要更新的字段是不是系统表的关键字段，如果是关键字段的话，需要先删除这条记录，delete(p_tabname)from<dyn_wa>.再进行modify,因为modify进行更新的时候如果不存在就新增，这点一定要注意。2. 如果使用UPDATES行更新，对于非主键字段的改变还是可以的，但是对于主键字段，只能用MODIFYT。直接对SAP数据做UPDAT和MODIFY是很危险的，不到万不得已，最好不要做这些操作。如果万一出问题，会很严重的。这里就不用更新

2、和删除程序作为测试程序了，直接做一个动态内表ALV显示的测试程序,道理和更新与删除差不多，希望对有这方面需求的朋友有所帮助！3. 最近从同事程序中发现另一种创建动态内表的简便方法，附3中为测试代码觉得这个方法更简单些附1：REPORTZCL_TEST026.TYPE-POOLS:abap.PARAMETERSp_nameTYPEtabname.DATAlt_tableTYPETABLEOFdfies."字段结构表DATAls_tableTYPEdfies.DATAlr_strucTYPEREFTOcl_abap_structdescr.DATAlr_tableTYPEREFTOcl_

3、abap_tabledescr.DATAlr_typeTYPEREFTOcl_abap_typedescr.DATAlr_dataTYPEREFTOcl_abap_datadescr.DATAlt_compTYPEabap_component_tab.DATAls_compLIKELINEOFlt_comp.DATAdyn_waTYPEREFTOdata.DATAdyn_tableTYPEREFTOdata.DATAl_stringTYPEstring.FIELD-SYMBOLS:<dyn_table>TYPESTANDARDTABLE,<dyn_wa>TYPEANY.

4、*1.获取表中的字段结构CALLFUNCTION'DDIF_NAMETAB_GET'EXPORTINGtabname=p_nameTABLESdfies_tab=lt_tableEXCEPTIONSnot_found=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.LOOPATlt_tableINTOls_table.CONCATENATEls_table-tabname'-'ls

5、_table-fieldnameINTOl_string.ls_comp-name=ls_table-fieldname.*读取字段类型CALLMETHODcl_abap_datadescr=>describe_by_nameEXPORTINGp_name=l_stringRECEIVINGp_descr_ref=lr_typeEXCEPTIONStype_not_found=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msg

6、v4.ENDIF.ls_comp-type?=lr_type.APPENDls_compTOlt_comp.CLEARls_comp.ENDLOOP.*根据字段目录创建动态结构类型CALLMETHODcl_abap_structdescr=>createEXPORTINGp_components=lt_compRECEIVINGp_result=lr_struc.*根据动态结构创建动态内表类型CALLMETHODcl_abap_tabledescr=>createEXPORTINGp_line_type=lr_strucRECEIVINGp_result=lr_table.*参照动

7、态结构类型和动态内表类型创建内表与工作区CREATEDATAdyn_waTYPEHANDLElr_struc.CREATEDATAdyn_tableTYPEHANDLElr_table.指定内表与工作区到字段符号ASSIGNdyn_wa->*TO<dyn_wa>.ASSIGNdyn_table->*TO<dyn_table>.*从动态表中取数到动态内表中SELECT*INTOCORRESPONDINGFIELDSOFTABLE<dyn_table>UPTO100ROWSFROM(p_name).*显示内表中的数据CALLFUNCTION'

8、REUSE_ALV_GRID_DISPLAY'EXPORTINGi_structure_name=p_nameTABLESt_outtab=<dyn_table>EXCEPTIONSprogram_error=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.附2：REPORTZCL_TEST027.TYPE-POOLS:abap.PARAMETERSp_nameTYPEtabname.DATA

9、:d_refTYPEREFTOdata,lt_alv_catTYPETABLEOFlvc_s_fcat,ls_alv_catLIKELINEOFlt_alv_cat.DATA:lt_tableLIKETABLEOFdntab.DATA:ls_tableTYPEdntab.FIELD-SYMBOLS:<dyn_table>TYPEtable,<dyn_wa>TYPEANY,<dyn_field>TYPEANY.*取出表结构的字段目录CALLFUNCTION'NAMETAB_GET'EXPORTINGlangu=sy-langutabname=p

10、_nameTABLESnametab=lt_tableEXCEPTIONSno_texts_found=1.*根据取出的字段目录生成参考字段目录LOOPATlt_tableINTOls_table.ls_alv_cat-fieldname=ls_table-fieldname.ls_alv_cat-ref_table=p_name.ls_alv_cat-ref_field=ls_table-fieldname.APPENDls_alv_catTOlt_alv_cat.CLEARls_alv_cat.ENDLOOP.*内表创建CALLMETHODcl_alv_table_create=>c

11、reate_dynamic_tableEXPORTINGit_fieldcatalog=lt_alv_catIMPORTINGep_table=d_ref.*指定生成的内表到字段符号ASSIGNd_ref->从动态表中取数到动态内表中SELECT*INTOCORRESPONDINGFIELDSOFTABLE<dyn_table>UPTO100TO<dyn_table>.ROWSFROM(p_name).*显示内表中的数据CALLFUNCTION'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_structure_name=p_n

12、ameTABLESt_outtab=<dyn_table>EXCEPTIONSprogram_error=1OTHERS=2.IFsy-subrc<>0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.附3：REPORTZCL_TEST028.PARAMETERSp_nameTYPEtabname.DATA:dyn_tableTYPEREFTOdata.DATA:dyn_waTYPEREFTOdata.FIELD-SYMBOLS:<dyn_t

13、able>TYPEtable,<dyn_wa>TYPEANY.*创建动态表结构CREATEDATAdyn_tableTYPETABLEOF(p_name).*创建动态内表ASSIGNdyn_table->创建动态工作区结构CREATEDATAdyn_waLIKELINEOF<dyn_table>.TO<dyn_table>.创建动态工作区ASSIGNdyn_wa->*TO<dyn_wa>.*从动态表中取数到动态内表中SELECT*INTOCORRESPONDINGFIELDSOFTABLE<dyn_table>UPTO100ROWSFROM(p_name).*对取出数据进行处理LOOPAT<dyn_table>assigning<dyn_wa>."内表数据处理ASSIGNCOMPONENT'KBSTAT'OFSTRUCTURE<dyn_wa>TO<kbstat>.ASSIGNCOMPONENT'KFRST'OFSTRUCTURE<dyn_wa>TO<kfrst>.ENDLOOP.*显示内表中的数据CALLFUNCTION'REUSE_ALV_GR