How To use Data Referenece ...

*-----------------------------------------------------------------------
*
* 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.