*-----------------------------------------------------------------------
*
* Company XXX Company Limited
*
* ProgrameName: ZZW_DATA_REFERENCE
*
* Author: Lilo.Zhu
*
* Date: 10/08/2007
*
* Description: Practice ABAP Data Reference.
*
*-----------------------------------------------------------------------
REPORT ZZW_DATA_REFERENCE .
Types:
Begin Of Struc_1,
A Type i,
B type ref to sflight,
C type P,
End Of Struc_1.
Data: S1 Type Struc_1.
Types:
Begin Of Struc_2,
X(10) Type C,
Y Type ref to struc_1,
Z type i,
End Of Struc_2.
Data: S2 Type Struc_2,
R2 Type ref to Struc_2.
s1-A = 11.
If S1-A > 10.
Create data s1-b.
S1-B->Carrid ='LH'.
S1-B->Paymentsum = 1000.
EndIf.
create data s2-y.
create data s2-y->b.
S2-X = '100'.
s2-Y->A = 200.
s2-Y->*-A = 200. "same as s2-Y->A
s2-Y->B->Fldate = Sy-Datum.
Write: / s2-Y->A,
s2-Y->*-A,
s2-Y->B->Fldate.
本文介绍了一个使用ABAP编程语言进行数据引用的具体实践案例。通过定义不同类型的数据结构,并展示如何在这些结构间创建引用,包括如何初始化数据及访问结构内的元素。此外,还演示了条件语句下数据结构的动态创建过程。
1353

被折叠的 条评论
为什么被折叠?



