Pegar apenas nome do arquivo no SYSTEM-DIALOG GET-FILE

Boa tarde amigos,

Estou com uma dificuldade, como faço para pegar apenas o nome do arquivo nesta função SYSTEM-DIALOG GET-FILE variavel...

a variavel so me tras o caminho completo.

Obrigado.

Código:

DEFINE VARIABLE procname AS CHARACTER NO-UNDO.
DEFINE VARIABLE OKpressed AS LOGICAL INITIAL TRUE.

Main:
REPEAT:
    SYSTEM-DIALOG GET-FILE procname
        TITLE      "Choose Procedure to Open ..."
        FILTERS    "Source Files (*.txt)"   "*.txt",
                   "All Files (*.*)"   "*.*"
        MUST-EXIST
        USE-FILENAME
        UPDATE OKpressed.
     
    IF OKpressed = TRUE THEN
        MESSAGE procname SKIP
                ENTRY(NUM-ENTRIES(procname,"~\"),procname,"~\")
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    ELSE     
        LEAVE Main.           
END.

Legal, e como colocar isso em duas variaveis separadas ?

Código:

DEFINE VARIABLE arquivo   AS CHARACTER   NO-UNDO.
DEFINE VARIABLE caminho   AS CHARACTER   NO-UNDO.
DEFINE VARIABLE procname  AS CHARACTER NO-UNDO.
DEFINE VARIABLE OKpressed AS LOGICAL INITIAL TRUE.

Main:
REPEAT:
    SYSTEM-DIALOG GET-FILE procname
        TITLE      "Choose Procedure to Open ..."
        FILTERS    "Source Files (*.txt)"   "*.txt",
                   "All Files (*.*)"   "*.*"
        MUST-EXIST
        USE-FILENAME
        UPDATE OKpressed.
    
    IF OKpressed = TRUE THEN DO:
        ASSIGN arquivo = ENTRY(NUM-ENTRIES(procname,"~\"),procname,"~\")
               caminho = ENTRY(1,procname,arquivo).
        MESSAGE procname SKIP
                arquivo SKIP
                caminho
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    ELSE DO:
        LEAVE Main.          
    END.
END.