screen-intensified = `1`. 

select-options: ssipno for vbak-vbeln,
                saudat for vbak-audat.
select-options: stesno for likp-vbeln,
                swadat for likp-wadat_ist,
                slfart for likp-lfart .
select-options: sfatno for vbrk-vbeln,
                sfkdat for vbrk-fkdat,
                sfkart for vbrk-fkart.

at selection-screen.

at selection-screen output.
 perform f_selscr_color.

start-of-selection.

end-of-selection.SPAN 

form f_selscr_color.

    loop at screen.
    case screen-name.
      when  `%_SSIPNO_%_APP_%-TEXT`
         or `%_SAUDAT_%_APP_%-TEXT`
         or `%_STESNO_%_APP_%-TEXT`
         or `%_SWADAT_%_APP_%-TEXT`
         or `%_SFATNO_%_APP_%-TEXT`
         or `%_SFKDAT_%_APP_%-TEXT` .
        screen-intensified = `1`.
    endcase.
    modify screen.
  endloop.

ENDFORM.