ITPub博客

首页 > Linux操作系统 > Linux操作系统 > at new 前要加move.....to....

at new 前要加move.....to....

原创 Linux操作系统 作者:103104521 时间:2011-03-30 09:39:46 0 删除 编辑

 

DATABEGIN OF gs_lfa1,

  lifnr LIKE lfa1-lifnr,
  ebeln LIKE ekko-ebeln,
  bukrs LIKE ekko-bukrs,
      END OF gs_lfa1.

DATA: gt_lfa1 LIKE TABLE OF gs_lfa1,
      gw_lfa1 LIKE gs_lfa1.

SELECT lifnr ebeln bukrs FROM ekko
  INTO TABLE gt_lfa1
  WHERE ebeln > 4500006374
    AND ebeln < 4500006390.

SORT gt_lfa1 BY lifnr.

LOOP AT gt_lfa1 INTO gw_lfa1.

  AT NEW lifnr.
    WRITE:/10 gw_lfa1-lifnr, 20 gw_lfa1-ebeln, 40 gw_lfa1-bukrs.
    WRITE:/ 'The next is new lifnr.'.

  ENDAT.
ENDLOOP.

 

这个程序运行出来字段变成*的。

下面的程序是在at new 之前用了move 的。这样运行出来就没有*了

 DATABEGIN OF gs_lfa1,
        lifnr LIKE lfa1-lifnr,
        ebeln LIKE ekko-ebeln,
        bukrs LIKE ekko-bukrs,
      END OF gs_lfa1.

DATA: gt_lfa1   LIKE TABLE OF gs_lfa1,
      gw_lfa1   LIKE gs_lfa1,
      gw_output LIKE gs_lfa1.

SELECT lifnr ebeln bukrs FROM ekko
  INTO TABLE gt_lfa1
  WHERE ebeln > 4500006374
    AND ebeln < 4500006390.

SORT gt_lfa1 BY lifnr.

LOOP AT gt_lfa1 INTO gw_lfa1.

  MOVE gw_lfa1 to gw_output.      "这里用move

  AT NEW lifnr.
    WRITE:/10 gw_output-lifnr, 20 gw_output-ebeln, 40 gw_output-bukrs.
    WRITE:/ 'The next is new lifnr.'.

  ENDAT.
ENDLOOP.

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

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

注册时间:2011-03-30

  • 博文量
    18
  • 访问量
    21152