隔山打牛之通过FIELD-SYMBOLS取得另一个程序数据

REPORT  z_barry_test_fm_fs   .

TABLES: spfli.
DATA dbcnt TYPE sy-dbcnt.
DATA: itab TYPE spfli_tab.

SELECT * FROM spfli INTO TABLE itab UP TO 2 ROWS.
dbcnt = sy-dbcnt.
CALL FUNCTION 'Z_BARRY_TEST'.

*******************************************

FUNCTION z_barry_test.
*"----------------------------------------------------------------------
*"*"Local interface:
*"----------------------------------------------------------------------

*单个变量
  DATA: field(50).
  FIELD-SYMBOLS: .
  field = '(Z_BARRY_TEST_FM_FS)dbcnt'.
  ASSIGN (field) TO .
  WRITE .

*内表
  DATA: itab TYPE spfli.
  FIELD-SYMBOLS: TYPE spfli_tab.
  field = '(Z_BARRY_TEST_FM_FS)ITAB[]'.
  ASSIGN (field) TO .
  LOOP AT INTO itab.
    WRITE: / itab-carrid, itab-connid.
  ENDLOOP.

ENDFUNCTION.