‎2007 Apr 17 4:14 PM
‎2007 Apr 17 4:16 PM
Steal from <b>Rich Heilman</b> -:P Sorry Rich -;)
report zrich_0001.
type-pools: icon.
data: switch.
selection-screen begin of block b1 with frame title text-001.
selection-screen pushbutton 5(20) gocfg user-command gocfg.
selection-screen end of block b1.
start-of-selection.
at selection-screen output.
if switch = 'X'.
clear switch.
* Write pushbutton text
write icon_red_light as icon to gocfg.
concatenate gocfg 'Red Light' into gocfg
separated by space.
else.
switch =
'X'.
write icon_Green_light as icon to gocfg.
concatenate gocfg 'Green Light' into gocfg
separated by space.
endif.
Greetings,
Blag.
‎2007 Apr 17 4:16 PM
‎2007 Apr 17 4:16 PM
Steal from <b>Rich Heilman</b> -:P Sorry Rich -;)
report zrich_0001.
type-pools: icon.
data: switch.
selection-screen begin of block b1 with frame title text-001.
selection-screen pushbutton 5(20) gocfg user-command gocfg.
selection-screen end of block b1.
start-of-selection.
at selection-screen output.
if switch = 'X'.
clear switch.
* Write pushbutton text
write icon_red_light as icon to gocfg.
concatenate gocfg 'Red Light' into gocfg
separated by space.
else.
switch =
'X'.
write icon_Green_light as icon to gocfg.
concatenate gocfg 'Green Light' into gocfg
separated by space.
endif.
Greetings,
Blag.
‎2007 Apr 17 4:18 PM
‎2007 Apr 17 4:17 PM