ABAP结构体，内表动态创建

*&---------------------------------------------------------------------**& Report ZDYNAMIC_STRUCTER_CREAT*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT ZDYNAMIC_STRUCTER_CREAT.*TYPES:* BEGIN OF MY_TYPE,* EMPLOYEE TYPE STRING,* MANAGER TYPE STRING,* END OF MY_TYPE.DATA : ZSTRING TYPE REF TO CL_ABAP_STRUCTDESCR, MY_TYPE TYPE REF TO CL_ABAP_STRUCTDESCR, LR_TYPE TYPE REF TO CL_ABAP_TYPEDESCR, COMP_TAB TYPE CL_ABAP_STRUCTDESCR=>COMPONENT_TABLE, COMP LIKE LINE OF COMP_TAB, L_STRING TYPE STRING.DATA E_WA TYPE REF TO DATA.DATA E_TABLE TYPE REF TO DATA.DATA MY_TABLE TYPE REF TO CL_ABAP_TABLEDESCR.L_STRING = 'STRING'.*ZSTRING ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( ZSTRING ).CALL METHOD CL_ABAP_DATADESCR=>DESCRIBE_BY_NAMEEXPORTINGP_NAME = L_STRINGRECEIVINGP_DESCR_REF = LR_TYPEEXCEPTIONSTYPE_NOT_FOUND = 1OTHERS = 2.IF SY-SUBRC <> 0.MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.COMP-NAME = 'EMPLOYEE'.COMP-TYPE ?= LR_TYPE.APPEND COMP TO COMP_TAB.COMP-NAME = 'MANAGER'.COMP-TYPE ?= LR_TYPE.APPEND COMP TO COMP_TAB.*MY_TYPE = CL_ABAP_STRUCTDESCR=>CREATE( COMP_TAB ).*TRY.CALL METHOD CL_ABAP_STRUCTDESCR=>CREATE EXPORTING P_COMPONENTS = COMP_TAB* P_STRICT = TRUE RECEIVING P_RESULT = MY_TYPE. .* CATCH CX_SY_STRUCT_CREATION .*ENDTRY.CALL METHOD CL_ABAP_TABLEDESCR=>CREATEEXPORTINGP_LINE_TYPE = MY_TYPERECEIVINGP_RESULT = MY_TABLE.CREATE DATA E_WA TYPE HANDLE MY_TYPE.*E_WA-EMPLOYEE= ''.CREATE DATA E_TABLE TYPE HANDLE MY_TABLE.*APPEND E_WA TO E_TABLE.WRITE:/.**DATA: CODE TYPE TABLE OF STRING,* REP(50) TYPE C.**APPEND 'WRITE / HELLOW WORLD!.' TO CODE.*INSERT REPORT REP FROM CODE.*SUBMIT (REP) AND RETURN.