[ABAP] OS-Platform ermitteln

TRY.
    DATA(lv_platform) = cl_gui_frontend_services=>get_platform( ).

    CASE lv_platform.
      WHEN cl_gui_frontend_services=>platform_aix.
        WRITE / 'aix'.
      WHEN cl_gui_frontend_services=>platform_hpux.
        WRITE / 'hpux'.
      WHEN cl_gui_frontend_services=>platform_linux.
        WRITE / 'linux'.
      WHEN cl_gui_frontend_services=>platform_mac.
        WRITE / 'mac'.
      WHEN cl_gui_frontend_services=>platform_macosx.
        WRITE / 'macosx'.
      WHEN cl_gui_frontend_services=>platform_nt351.
        WRITE / 'nt351'.
      WHEN cl_gui_frontend_services=>platform_nt40.
        WRITE / 'nt40'.
      WHEN cl_gui_frontend_services=>platform_nt50.
        WRITE / 'nt50'.
      WHEN cl_gui_frontend_services=>platform_os2.
        WRITE / 'os2'.
      WHEN cl_gui_frontend_services=>platform_solaris.
        WRITE / 'solaris'.
      WHEN cl_gui_frontend_services=>platform_tru64.
        WRITE / 'tru64'.
      WHEN cl_gui_frontend_services=>platform_unknown.
        WRITE / 'unknown'.
      WHEN cl_gui_frontend_services=>platform_windows95.
        WRITE / 'windows95'.
      WHEN cl_gui_frontend_services=>platform_windows98.
        WRITE / 'windows98'.
      WHEN cl_gui_frontend_services=>platform_windowsxp.
        WRITE / 'windowsxp'.
      WHEN OTHERS.
        WRITE / 'Other'.
    ENDCASE.
  CATCH cx_root INTO DATA(e_txt).
    WRITE: / e_txt->get_text( ).
ENDTRY.