ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 通过FIELD-SYMBOLS取得另一个程序数据(转 感谢)

通过FIELD-SYMBOLS取得另一个程序数据(转 感谢)

原创 Linux操作系统 作者:翟毛 时间:2009-07-15 12:26:02 0 删除 编辑

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.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/22116385/viewspace-609209/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2009-07-15

  • 博文量
    5
  • 访问量
    7739