ABAP 动态内表实例

一、基础知识

 

REPORT ZTEST018.

DATA : BEGIN OF gs_out ,
        day01 type c LENGTH 10,
        day02 type c LENGTH 10 ,
END OF gs_out.

gs_out-day01 = '10'.
gs_out-day02 =  '20'.

FIELD-SYMBOLS:  <fs>       TYPE any .
FIELD-SYMBOLS:  <fs2>       TYPE any .
DATA : p_fieldname  type c LENGTH 20 .
DATA : p_fieldname2  type c LENGTH 20 .

 p_fieldname = 'gs_out-day' && '01' .
 ASSIGN  (p_fieldname)  TO <fs>.
 <fs> = <fs> && '08' .
 WRITE : <fs> .

p_fieldname2 = 'day' && '02' .
ASSIGN COMPONENT p_fieldname2 OF STRUCTURE gs_out TO <fs2>.
<fs2> = <fs2> &&'09'