How to create a directory on the presentation server

REPORT ZVENKATTEST.

parameters: p_dir type rlgrap-filename .

at selection-screen on value-request for p_dir .

CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'P_DIR'
IMPORTING
FILE_NAME = p_dir
.
start-of-selection .

CALL FUNCTION 'GUI_CREATE_DIRECTORY'
EXPORTING
DIRNAME = p_dir
EXCEPTIONS
FAILED = 1
OTHERS = 2
.

write:/ 'the directory' , p_dir , 'created successfully '.