ABAP-Note001

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