Imágenes o logos dinámicos en un SapScript

Programación:
  TYPES: BEGIN OF ty_logo,
*        tdobject TYPE tdobject,
        tdname TYPE  tdobname, "tdname,
*        tdid TYPE tdid,
        tdbtype TYPE tdbtype,
        tdresolut TYPE tdresolut,
  END OF ty_logo.

PERFORM zlogo_get '0300'.

  FORM zlogo_get USING p_bukrs TYPE bukrs.
*
    CASE p_bukrs.
      WHEN '0300'.
        gl_logo-tdname = 'LOGO_0300'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 300.
      WHEN '0200'.
        gl_logo-tdname = 'LG_0200'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN '0400'.
        gl_logo-tdname = 'LOG4EX'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN '0500'.
        gl_logo-tdname = 'LOGONEW'.
        gl_logo-tdbtype = 'BCOL'.
        gl_logo-tdresolut = 200.
      WHEN OTHERS.
    ENDCASE.
*
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window = 'LOGO_SOC'.
*
  ENDFORM.  

En la ventana LOGO_SOC comando /:
BITMAP &GL_LOGO-TDNAME& OBJECT GRAPHICS ID BMAP TYPE &GL_LOGO-TDBTYPE& DPI &GL_LOGO-TDRESOLUT&