根据名字获取结构DATA: STRUCTTYPE TYPE REF TO CL_ABAP_STRUCTDESCR.STRUCTTYPE ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( 'SPFLI' ).根据变量获取结构DATA: DATATYPE TYPE REF TO CL_ABAP_ELEMDESCR,      W_CHAR TYPE CHAR5.DATATYPE ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( W_CHAR ).自定义数值结构DATA: ELEMTYPE TYPE REF TO CL_ABAP_ELEMDESCR.ELEMTYPE ?= CL_ABAP_ELEMDESCR=>GET_I( ).ELEMTYPE ?= CL_ABAP_ELEMDESCR=>GET_C( 20 ).定义动态长度的字符串DATA: W_C10 TYPE CHAR10 VALUE 'HB',      W_C20 TYPE CHAR20,      W_CNT TYPE I.W_CNT = STRLEN( W_C10 ).DATA: DREF  TYPE REF TO DATA,      CTYPE TYPE REF TO CL_ABAP_ELEMDESCR.FIELD-SYMBOLS:      
     
      .CTYPE = CL_ABAP_ELEMDESCR=>GET_C( W_CNT ).CREATE DATA DREF TYPE HANDLE CTYPE.ASSIGN DREF->* TO 
      
       .*ASSIGN DREF->* TO 
       
         CASTING TYPE HANDLE CTYPE.
        
          = W_C10(W_CNT).CONCATENATE '***' 
         
           '***' INTO W_C20 RESPECTING BLANKS.WRITE W_C20.动态读取系统表数据PARAMETERS P_NAME TYPE TABNAME.DATA: LR_STRUC  TYPE REF TO CL_ABAP_STRUCTDESCR,      LR_DATA   TYPE REF TO CL_ABAP_DATADESCR,      LR_TABLE  TYPE REF TO CL_ABAP_TABLEDESCR,      DYN_TABLE TYPE REF TO DATA,      DYN_WA    TYPE REF TO DATA.FIELD-SYMBOLS: 
          
            TYPE STANDARD TABLE, 
           
             TYPE ANY.LR_STRUC ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_NAME( P_NAME ).LR_TABLE ?= CL_ABAP_TABLEDESCR=>CREATE( P_LINE_TYPE = LR_STRUC ).*ASSIGN DYN_WA->* TO 
            
              CASTING TYPE HANDLE LR_STRUC.*ASSIGN DYN_TABLE->* TO 
             
               CASTING TYPE HANDLE LR_TABLE.CREATE DATA DYN_WA TYPE HANDLE LR_STRUC.CREATE DATA DYN_TABLE TYPE HANDLE LR_TABLE.ASSIGN DYN_WA->* TO 
              
               .ASSIGN DYN_TABLE->* TO 
               
                .SELECT * INTO CORRESPONDING FIELDS OF TABLE 
                
                  UP TO 100 ROWS FROM (P_NAME).*CALL METHOD LR_TABLE->GET_TABLE_LINE_TYPE* RECEIVING* P_DESCR_REF = LR_DATA* .CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_STRUCTURE_NAME = P_NAME TABLES T_OUTTAB = 
                 
                   EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2.IF SY-SUBRC <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.动态定义表结构TYPES: BEGIN OF TYP_PERSON, NAME TYPE CHAR10, SEX TYPE CHAR1, AGE TYPE I, END OF TYP_PERSON.DATA: ST_PERSON TYPE TYP_PERSON, TR_TABLE TYPE REF TO CL_ABAP_TABLEDESCR, TR_STRUCT TYPE REF TO CL_ABAP_STRUCTDESCR, TR_TYPE TYPE REF TO CL_ABAP_TYPEDESCR, FS_TABLE TYPE REF TO DATA, FS_STRUCT TYPE REF TO DATA, TD_COMP TYPE CL_ABAP_STRUCTDESCR=>COMPONENT_TABLE, TH_COMP LIKE LINE OF TD_COMP.FIELD-SYMBOLS: 
                  
                    TYPE STANDARD TABLE, 
                   
                     TYPE ANY.TR_STRUCT ?= CL_ABAP_STRUCTDESCR=>DESCRIBE_BY_DATA( ST_PERSON ).TD_COMP = TR_STRUCT->GET_COMPONENTS( ).CALL METHOD CL_ABAP_STRUCTDESCR=>CREATE EXPORTING P_COMPONENTS = TD_COMP* P_STRICT = TRUE RECEIVING P_RESULT = TR_STRUCT .CALL METHOD CL_ABAP_TABLEDESCR=>CREATE EXPORTING P_LINE_TYPE = TR_STRUCT RECEIVING P_RESULT = TR_TABLE .CREATE DATA FS_STRUCT TYPE HANDLE TR_STRUCT.CREATE DATA FS_TABLE TYPE HANDLE TR_TABLE.ASSIGN FS_STRUCT->* TO 
                    
                     .ASSIGN FS_TABLE->* TO 
                     
                      .动态读取表结构TYPES: BEGIN OF TYP_PERSON, NAME TYPE CHAR10, SEX TYPE CHAR1, AGE TYPE I, END OF TYP_PERSON.DATA: TH_PERSON TYPE TYP_PERSON, TD_PERSON TYPE TABLE OF TYP_PERSON.PERFORM FRM_SWAP_TABLE TABLES TD_PERSON.*&---------------------------------------------------------------------**& Form FRM_SWAP_TABLE*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** -->PTD_PERSON text*----------------------------------------------------------------------*FORM FRM_SWAP_TABLE TABLES PTD_PERSON.DATA: FS_TABLE TYPE REF TO DATA, FS_STRUCT TYPE REF TO DATA, TR_TABLE TYPE REF TO CL_ABAP_TABLEDESCR, TR_STRUCT TYPE REF TO CL_ABAP_STRUCTDESCR, TR_TYPE TYPE REF TO CL_ABAP_TYPEDESCR.FIELD-SYMBOLS: 
                      
                        TYPE STANDARD TABLE, 
                       
                         TYPE ANY.TR_STRUCT ?= CL_ABAP_TABLEDESCR=>DESCRIBE_BY_DATA( P_DATA = PTD_PERSON ).CREATE DATA FS_STRUCT TYPE HANDLE TR_STRUCT.ASSIGN FS_STRUCT->* TO 
                        
                         .CREATE DATA FS_TABLE LIKE TABLE OF 
                         
                          .ASSIGN FS_TABLE->* TO 
                          
                           .ENDFORM. " FRM_SWAP_TABLE