*&---------------------------------------------------------------------*
*& Report ZTLXJ_112801
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTLXJ_112801.
DATA: SUM type I,
NUM1 Like SUM,
NUM2 Like SUM.
SUM = 0.
NUM1 = 100. NUM2 = 200.
PERFORM ADD USING NUM1 NUM2 CHANGING SUM.
WRITE: / NUM1, NUM2, SUM. "SUM 由 0 变成 300
FORM ADD USING VALUE(NUM1) value(NUM2) CHANGING SUM.
SUM = NUM1 + NUM2.
NUM1 = 600.
ENDFORM.