It's possible with this code bellow, but I still don't see the reason to do it....
field-symbols: <any> type any.
at selection-screen output.
loop at screen.
if screen-name cp '*%_APP_%-TO_TEXT'.
assign (screen-name) to <any>.
if sy-subrc eq 0.
<any> = '-'.
endif.
endif.