lv_fieldname =  screen-name.
    shift lv_fieldname left by 5 places  .

  loop at screen.
*    screen name GS_R-XXXXXXXXXX
    check screen-name+0(5) = `GS_R-`.
    lv_fieldname =  screen-name.
    shift lv_fieldname left by 5 places  .
    read table  gt_scredit into ls_scredit with table key fiename = lv_fieldname.

    modify screen.
  endloop.