简单循环例子

report  ZMMR086.

tables: SKA1,SKAT.

databegin of ITAB,
  SAKNR like SKA1-SAKNR,
  SAKAN like SKA1-SAKAN,
  ERDAT like SKA1-ERDAT,
  ERNAM like SKA1-ERNAM,
  TXT20 like SKAT-TXT20,
  end of ITAB.

data: ITA like standard table of ITAB with HEADER LINE.

start-of-selection.
  selection-screen begin of block BLK1 with frame title TEXT-002.
  select-options S_SAKNR for SKA1-SAKNR.   "选择范围  select语句后需要用  SK~SAKNR in S_SAKNR.
*  parameter : S_SAKNR like SKA1-SAKNR.    “选择一条数据   select语句后需要用  SK~SAKNR = S_SAKNR.
  selection-screen end of block BLK1.

end-of-selection.
  select SK~SAKNR SK~SAKAN SK~ERDAT SK~ERNAM SKAT~TXT20 into table ITA from SKA1 as SK  join SKAT on SK~MANDT = SKAT~MANDT where SK~SAKNR in S_SAKNR.


 loop at ITA.
  write:/ ITA-SAKNR,ITA-SAKAN,ITA-ERDAT,ITA-ERNAM,SKAT-TXT20.
 endloop.
posted @ 2008-10-24 20:56  elegant  阅读(492)  评论(0编辑  收藏  举报