abap 调用程序

假如我们调用一个程序select-options

DATA: RSPAR_TAB TYPE TABLE OF RSPARAMS,

        RSPAR_LINE LIKE LINE OF RSPAR_TAB.

  CLEAR:RSPAR_TAB[],RSPAR_LINE.

*RSPAR_LINE-SELNAME = 'SD_SAKNR'.

*        RSPAR_LINE-SIGN = 'I'.

*        RSPAR_LINE-OPTION = 'BT'.

*        RSPAR_LINE-LOW = '1405010000'.

*        RSPAR_LINE-HIGH = '1405020000'.

*        APPEND RSPAR_LINE TO RSPAR_TAB. CLEAR: RSPAR_LINE.

*

*        RSPAR_LINE-SELNAME = 'SD_SAKNR'..

*        RSPAR_LINE-SIGN = 'I'.

*        RSPAR_LINE-OPTION = 'BT'.

*        RSPAR_LINE-LOW = '1404010000'.

*        RSPAR_LINE-HIGH = '1404020000'.

*        APPEND RSPAR_LINE TO RSPAR_TAB. CLEAR: RSPAR_LINE.

*

*        RSPAR_LINE-SELNAME = 'SD_SAKNR'..

*        RSPAR_LINE-SIGN = 'I'.

*        RSPAR_LINE-OPTION = 'BT'.

*        RSPAR_LINE-LOW = '1403010000'.

*        RSPAR_LINE-HIGH = '1403020000'.

*        APPEND RSPAR_LINE TO RSPAR_TAB. CLEAR: RSPAR_LINE.

*

*        RSPAR_LINE-SELNAME = 'SD_BUKRS'..

*        RSPAR_LINE-SIGN = 'I'.

*        RSPAR_LINE-OPTION = 'EQ'.

*        RSPAR_LINE-LOW = '8030'.

*        .

*        APPEND RSPAR_LINE TO RSPAR_TAB. CLEAR: RSPAR_LINE.

*

*        SUBMIT RFITEMGL WITH SELECTION-TABLE RSPAR_TAB

*        VIA SELECTION-SCREEN AND RETURN.

第二种

第三种

使用PERFORM FORM1 IN PROGRAM ('ZMM001')等价于PERFORM FORM1(ZMM001).

使用FIELD-SYMBOLS使用其他程序的数据，

FIELD-SYMBOLS <F1>TYPE ANY.

DATA XX(50).

XX = '(ZMM002)G_DATA'."程序ZMM001中G_DATA的数据

ASSIGN (XX) TO <F1>.

<F1>= 'SDFAS'. "这样就可以将主程序中ZMM001的变量G_DATA的值修改为SDFAS了。

---