|----|--------------------------|---------------------------------------------------|
| | 函数 | Result |
| 1 | GET_USER_NAME | CLY |
| 2 | GET_COMPUTER_NAME | CLY_PC_HP |
| 3 | GET_IP_ADDRESS | 192.168.0.103 |
| 4 | GET_DESKTOP_DIRECTORY | C:\Users\CLY\Desktop |
| 5 | DIRECTORY_GET_CURRENT | C:\Users\CLY\Documents\SAP\SAP GUI |
| 6 | GET_SAPGUI_WORKDIR | C:\Users\CLY\Documents\SAP\SAP GUI |
| 7 | GET_UPLOAD_DOWNLOAD_PATH | C:\Users\CLY\Documents\SAP\SAP GUI\ |
| 8 | GET_SAPGUI_DIRECTORY | C:\Users\CLY\AppData\Local\SAP\SAP GUI\TMP |
| 9 | GET_SAPGUI_DIRECTORY | C:\Program Files\SAP\FrontEnd\SAPGUI |
| 10 | GET_WINDOWS_DIRECTORY | C:\WINDOWS |
| 11 | GET_SYSTEM_DIRECTORY | C:\WINDOWS\SYSTEM32 |
| | | |
*&---------------------------------------------------------------------*
*& Report YCLY_P03
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YCLY_P03.
START-OF-SELECTION.
DATA: LV_str21 TYPE STRING VALUE 'C:'.
DATA: LV_str22 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DRIVE_TYPE
EXPORTING
DRIVE = LV_str21
CHANGING
DRIVE_TYPE = LV_str22
EXCEPTIONS
CNTL_ERROR = 1
BAD_PARAMETER = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
"LV_STR21 GET_DRIVE_TYPE C: FIXED
DATA: LV_str31 TYPE STRING VALUE 'C:'.
DATA: LV_str32 TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_FREE_SPACE_FOR_DRIVE
EXPORTING
DRIVE = LV_str31
CHANGING
FREE_SPACE = LV_str32
EXCEPTIONS
CNTL_ERROR = 1
GET_FREE_SPACE_FAILED = 2
ERROR_NO_GUI = 3
WRONG_PARAMETER = 4
NOT_SUPPORTED_BY_GUI = 5
OTHERS = 6.
"LV_STR31 GET_FREE_SPACE_FOR_DRIVE C: 2147483647
DATA: LV_str41 TYPE FILETABLE.
DATA: LV_str42 TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_GUI_VERSION
CHANGING
VERSION_TABLE = LV_str41
RC = LV_str42
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.
"LV_STR41 [4x1(2048)]Standard Table
"1 8000
"2 1
"3 13
"4 2275550
"LV_STR42 0
DATA: LV_str61 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_LF_FOR_DESTINATION_GUI
CHANGING
LINEFEED = LV_str61
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STR61 GET_LF_FOR_DESTINATION_GUI ##
DATA: LV_str71 TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_PLATFORM
RECEIVING
PLATFORM = LV_str71
EXCEPTIONS
ERROR_NO_GUI = 1
CNTL_ERROR = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STR71 GET_PLATFORM 14
DATA: LV_strA1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_GUI_PROPERTIES
CHANGING
STREAM = LV_strA1
EXCEPTIONS
CNTL_ERROR = 1
GET_GUI_PROPERTIES_FAILED = 2
ERROR_NO_GUI = 3
WRONG_PARAMETER = 4
NOT_SUPPORTED_BY_GUI = 5
OTHERS = 6.
"LV_STRA1 GET_GUI_PROPERTIES
"LV_STRA1 <AvailableFeatures>
" <component>
" <toolbar>
" <StretchStructure win = 'X' plat = ' ' web = ' ' />
" <AlignRight win = 'X' plat = ' ' web = ' ' />
" <SetFocusButton win = 'X' plat = ' ' WEB = ' ' />
" </TOOLBAR>
" </COMPONENT>
DATA: LV_strd1 TYPE ABAP_ENCODING.
DATA: LV_strd2 TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SAPLOGON_ENCODING
CHANGING
FILE_ENCODING = LV_strd1
RC = LV_strd2
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
CANNOT_INITIALIZE_GLOBALSTATE = 4
OTHERS = 5.
"LV_STRD1 GET_SAPLOGON_ENCODING 8404
"LV_STRD2 0
**********************************************************************
DATA: LV_strk1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_USER_NAME
CHANGING
USER_NAME = LV_strk1
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_strk1 GET_USER_NAME CLY
DATA: LV_str91 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_COMPUTER_NAME
CHANGING
COMPUTER_NAME = LV_str91
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STR91 GET_COMPUTER_NAME CLY_PC_HP
DATA: LV_str51 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_IP_ADDRESS
RECEIVING
IP_ADDRESS = LV_str51
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STR51 GET_IP_ADDRESS 192.168.0.103
**********************************************************************
DATA: LV_str11 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_DESKTOP_DIRECTORY
CHANGING
DESKTOP_DIRECTORY = LV_str11
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STR11 GET_DESKTOP_DIRECTORY C:\Users\CLY\Desktop
DATA: LV_str81 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_GET_CURRENT
CHANGING
CURRENT_DIRECTORY = LV_str81
EXCEPTIONS
DIRECTORY_GET_CURRENT_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
"LV_STR81 DIRECTORY_GET_CURRENT C:\Users\CLY\Documents\SAP\SAP GUI
DATA: LV_strc1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SAPGUI_WORKDIR
CHANGING
SAPWORKDIR = LV_strc1
EXCEPTIONS
GET_SAPWORKDIR_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 4
OTHERS = 5.
"LV_STRC1 GET_SAPGUI_WORKDIR C:\Users\CLY\Documents\SAP\SAP GUI
DATA: LV_strg1 TYPE STRING.
DATA: LV_strg2 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_UPLOAD_DOWNLOAD_PATH
CHANGING
UPLOAD_PATH = LV_strg1
DOWNLOAD_PATH = LV_strg2
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
GUI_UPLOAD_DOWNLOAD_PATH = 4
UPLOAD_DOWNLOAD_PATH_FAILED = 5
OTHERS = 6.
"LV_STRG1 GET_UPLOAD_DOWNLOAD_PATH C:\Users\CLY\Documents\SAP\SAP GUI\
"LV_STRG2 C:\Users\CLY\Documents\SAP\SAP GUI\
DATA: LV_strf1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_TEMP_DIRECTORY
CHANGING
TEMP_DIR = LV_strf1
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STRF1 GET_SAPGUI_DIRECTORY C:\Users\CLY\AppData\Local\SAP\SAP GUI\tmp
DATA: LV_strb1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SAPGUI_DIRECTORY
CHANGING
SAPGUI_DIRECTORY = LV_strb1
EXCEPTIONS
CNTL_ERROR = 1
NOT_SUPPORTED_BY_GUI = 2
ERROR_NO_GUI = 3
OTHERS = 4.
"LV_STRB1 GET_SAPGUI_DIRECTORY C:\Program Files\SAP\FrontEnd\SAPGUI
DATA: LV_strki1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_WINDOWS_DIRECTORY
CHANGING
WINDOWS_DIRECTORY = LV_strki1
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STRK1 GET_WINDOWS_DIRECTORY C:\WINDOWS
DATA: LV_stre1 TYPE STRING.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_SYSTEM_DIRECTORY
CHANGING
SYSTEM_DIRECTORY = LV_stre1
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
OTHERS = 4.
"LV_STRE1 GET_SYSTEM_DIRECTORY C:\WINDOWS\system32
CL_GUI_CFW=>UPDATE_VIEW( ).
BREAK-POINT.