ABAP笔记

1.

on change of g_s_organ-bwkey.
clear                  g_flag_ok.
select single * from t001k
where bwkey eq g_s_organ-bwkey.
if sy-subrc is initial.
select single * from t001
where bukrs eq t001k-bukrs.
if sy-subrc is initial.
move 'X' to  g_flag_ok.
endif.
endif.
endon.