How to split the pathname and filename

REPORT


parameters:p_file like rlgrap-filename .

data: PATHNAME type char50 ,
FILENAME type char50 .

at selection-screen on value-request for p_file .

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

CALL FUNCTION '/SAPDMC/LSM_PATH_FILE_SPLIT'
EXPORTING
PATHFILE = p_file
IMPORTING
PATHNAME = PATHNAME
FILENAME = FILENAME
.

write:/ 'PATHNAME IS : ' ,PATHNAME .
write:/ 'FILENAME IS : ' ,FILENAME .