1、SAP動(dòng)態(tài)生成內(nèi)表結(jié)構(gòu)及其內(nèi)容REPORTzdyn_test.FIELD-SYMBOLS:<dyn_table>TYPESTANDARDTABLE,<dyn_wa>,<dyn_field>.DATA:dy_tableTYPEREFTOdata,dy_lineTYPEREFTOdata,it_structureTYPElvc_t_fcat,wa_structureTYPElvc_s_fcat.START-OF-SELECTION.PERFORMcreate_structure."定義內(nèi)表的結(jié)構(gòu)PERFORMcreate_dynamic_table.&

2、quot;按照定義的內(nèi)表結(jié)構(gòu)，產(chǎn)生一個(gè)內(nèi)表PERFORMwrite_data_to_dyntable."向動(dòng)態(tài)內(nèi)表中寫數(shù)PERFORMoutput_dyntable_data."從動(dòng)態(tài)內(nèi)表中取數(shù)，并寫到屏幕*&*&Formcreate_structure*&*FORMcreate_structure.wa_structure-fieldname='COL1'."第一列列名wa_structure-col_pos=1."表示第一列可心省略，默認(rèn)情況下，第一行對應(yīng)到生產(chǎn)內(nèi)表的第一列，如果指定，則按指定的列順序生成內(nèi)表w

3、a_structure-inttype='C'."數(shù)據(jù)類型wa_structure-intlen=6."長度APPENDwa_structureTOit_structure.wa_structure-fieldname='COL2'."第二列列名wa_structure-col_pos=2."表示第二列可心省略，默認(rèn)情況下，第一行對應(yīng)到生產(chǎn)內(nèi)表的第一列，如果指定，則按指定的列順序生成內(nèi)表wa_structure-inttype=C."數(shù)據(jù)類型wa_structure-intlen=6."長度APPEND

4、wa_structureTOit_structure.wa_structure-fieldname='COL3'."第三列名wa_structure-col_pos=3."表示第三列可心省略，默認(rèn)情況下，第一行對應(yīng)到生產(chǎn)內(nèi)表的第一列，如果指定，則按指定的列順序生成內(nèi)表wa_structure-inttype=C."數(shù)據(jù)類型wa_structure-intlen=6."長度APPENDwa_structureTOit_structure.ENDFORM."create_structure*&*&Formcreate

5、_dynamic_table*&*FORMcreate_dynamic_table.CALLMETHODcl_alv_table_create=>create_dynamic_tableEXPORTINGit_fieldcatalog=it_structureIMPORTINGep_table=dy_table.ASSIGNdy_table->*TO<dyn_table>."用表類型指針<dyn_table>指向數(shù)據(jù)對象的內(nèi)容.ENDFORM."create_dynamic_table*&*&Formwrite_d

6、ata_to_dyntable*&*FORMwrite_data_to_dyntable.DATA:wa_new_lineTYPEREFTOdata.DATA:iTYPEn.DATA:jTYPEn.CREATEDATAwa_new_lineLIKELINEOF<dyn_table>."建立一個(gè)與動(dòng)態(tài)內(nèi)表結(jié)構(gòu)相同的數(shù)據(jù)對象，且數(shù)據(jù)對象為是一個(gè)結(jié)構(gòu)ASSIGNwa_new_line->*TO<dyn_wa>."用<dyn_wa>指針指向該結(jié)構(gòu)DO3TIMES.i=i+1.CLEARj.LOOPATit_structureINTO

7、wa_structure.j=j+1.ASSIGNCOMPONENTwa_structure-fieldnameOFSTRUCTURE<dyn_wa>TO<dynield>."用指針<dynield>指向工作區(qū)<dyn_wa>中的一個(gè)字段，字段名為wa_structure-fieldname.CONCATENATEijINTO<dynield>."給指針指向的字段賦值ENDLOOP.APPEND<dyn_wa>TO<dyn_table>.ENDDO.ENDFORM."write_d

8、ata_to_dyntable*&*&Formoutput_dyntable_data*&*FORMoutput_dyntable_data.LOOPATit_structureINTOwa_structure.WRITE:wa_structure-fieldname(5).ENDLOOP.LOOPAT<dyn_table>INTO<dyn_wa>.WRITE:/.LOOPATit_structureINTOwa_structure.ASSIGNCOMPONENTwa_structure-fieldnameOFSTRUCTURE<dyn_wa>TO<dynield>