DATA: lt_vtab  TYPE  filetable,
      lt_vinfo TYPE file_table,
      rc       TYPE i.

CALL METHOD cl_gui_frontend_services=>get_gui_version
  CHANGING
    version_table            = lt_vtab
    rc                       = rc
  EXCEPTIONS
    get_gui_version_failed   = 1
    cant_write_version_table = 2
    gui_no_version           = 3
    cntl_error               = 4
    error_no_gui             = 5
    not_supported_by_gui     = 6
    OTHERS                   = 7.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.


read table lt_vtab into lt_vinfo index 1.
write:/ 'SAP GUI' , lt_vinfo.
read table lt_vtab into lt_vinfo index 4.
write:/ 'SAP GUI build' , lt_vinfo.
read table lt_vtab into lt_vinfo index 3.
write:/ 'SAP GUI patch' , lt_vinfo.