tables sscrfields.
type-pools icon.
selection-screen:
begin of screen 500 as window title title,
pushbutton 2(10) but1 user-command cli1,
pushbutton 12(30) but2 user-command cli2
visible length 10,
end of screen 500.
at selection-screen.
case sscrfields.
when 'CLI1'.
...
when 'CLI2'.
...
endcase.
start-of-selection.
title = 'Push button'.
but1 = 'Button 1'.
call function'ICON_CREATE'
exporting
name = icon_information
text = 'Button 2'
info = 'My Quickinfo'
importing
result = but2
exceptions
others = 0.
call selection-screen '0500' starting at 10 10.
评论