ABAP FIELD-SYMBOLS指针

***定义一个指向变量类型的指针
DATA : L_STR  TYPE STRING  VALUE  'HELLO SAP!' .
FIELD-SYMBOLS :<STR>  TYPE STRING .
ASSIGN L_STR  TO <STR> .
WRITE :L_STR ,<STR> .


***将内表的值动态赋值给指针
DATA :LT_MARA  LIKE  STANDARD  TABLE  OF MARA  WITH  HEADER  LINE .
FIELD-SYMBOLS :<TAB>  TYPE  ANY ,
              <FIELD>  TYPE  ANY .

SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_MARA  UP  TO  5  ROWS  FROM MARA .

   LOOP  AT LT_MARA .
     ASSIGN LT_MARA  TO <TAB> .
     WHILE SY -SUBRC  =  0 .
       ASSIGN  COMPONENT SY - INDEX  OF  STRUCTURE <TAB>  TO <FIELD> .
       WRITE : / <FIELD> .
     ENDWHILE .
   ENDLOOP .

**动态获取内表中指定字段的

DATA :LT_T552A  LIKE T552A .
DATA :L_DATE  TYPE D ,
     L_FIELD  TYPE STRING ,
     L_DAY ( 2 ) .
FIELD-SYMBOLS :<FIELD>  TYPE  ANY .
DATA : FIELD  TYPE STRING .

SELECT  SINGLE *  INTO CORRESPONDING  FIELDS  OF LT_T552A  FROM T552A  WHERE ZEITY  =  '2'  AND MOSID  =  '28'
                                                                       AND KJAHR  =  '2011'  AND MONAT  =  '01' .
  L_DAY  =  '20110101' .
   WHILE L_DATE <=  '20110101' .
    L_DAY  = L_DATE+6 ( 2 ) .
     CONCATENATE  'TPR'  L_DAY  INTO L_FIELD .
     ASSIGN L_FIELD  TO <FIELD> .

     ASSIGN  COMPONENT L_FIELD  OF  STRUCTURE LT_T552A  TO <FIELD> .

     WRITE : /  '日期：'  ,L_DATE ,  '日变量：' ,<FIELD> .
    L_DATE  = L_DATE +  1 .
     ENDWHILE .