TOP
selection-screen begin of line.
selection-screen comment 1(31) text-002 for field p_week.
parameters : p_week type c length 2.
selection-screen comment 36(40) txt_but
modif id txt.
selection-screen end of line.
at selection-screen output
data : days type t5a4a-dlydy,
lv_date type datum.
gv_week = p_week.
loop at screen.
if screen-group1 = 'TXT'.
screen-intensified = '1'.
* txt_but = '123123'.
days = gv_week * 7.
call function 'RP_CALC_DATE_IN_INTERVAL'
exporting
date = p_date
days = days
months = '00'
signum = '-'
years = '00'
importing
calc_date = lv_date.
txt_but = lv_date.
endif.
modify screen.
endloop.
TOP에서 선언 시 MODIF ID 부여 후, LOOP AT SCREEN에서 해당 그룹으로 잡은 후 TEXT 제어