简单循环例子
report ZMMR086.
tables: SKA1,SKAT.
data: begin 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.
tables: SKA1,SKAT.
data: begin 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.