Chamar a janela de Diálogo do Salvar e do Abrir?

Qual é o código para Chamar a janela de Diálogo do Salvar e do Abrir?

Maicon, bom dia.

Segue abaixo o de abrir:

Código:

def var c-nome-arquivo          as char no-undo.        
def var l-pressionado-arq-csv   as log no-undo.
        
        
        system-dialog get-file c-nome-arquivo
            title   "Localizar Arquivo..."
            filters "Arquivos de Planilhas CSV (*.csv)" "*.csv",
                    "Arquivos Documento Texto TXT (*.txt)" "*.txt",
                    "Todos os Arquivos (*.*)" "*.*"
        must-exist
        use-filename
        update l-pressionado-arq-csv.
          
        if l-pressionado-arq-csv = true then do:

            MESSAGE 'c-nome-arquivo' c-nome-arquivo
                VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
        end.
        else do:
            MESSAGE 'Nenhum arquivo foi escolhido para ser importado.'
                VIEW-AS ALERT-BOX INFO BUTTONS OK.
            return no-apply.
    
        end.  

Ok
Obrigado

Se alguém tiver o código do Salvar
Agradeço

SYSTEM-DIALOG GET-FILE character-field [ FILTERS name filespec [ , name filespec ] ... [ INITIAL-FILTER filter-num ] ] [ ASK-OVERWRITE ] [ CREATE-TEST-FILE ] [ DEFAULT-EXTENSION extension-string ] [ INITIAL-DIR directory-string ] [ MUST-EXIST ] [ RETURN-TO-START-DIR ] [ SAVE-AS ] [ TITLE title-string ] [ USE-FILENAME ] [ UPDATE logical-variable ] [ IN WINDOW window ]


este é o comando no help do open edge ...
tem a clausula save-as ali no meio ...

entao

system-dialog get-file c-nome-arquivo
title "Localizar Arquivo..."
filters "Arquivos de Planilhas CSV (*.csv)" "*.csv",
"Arquivos Documento Texto TXT (*.txt)" "*.txt",
"Todos os Arquivos (*.*)" "*.*"
SAVE-AS
must-exist
use-filename
update l-pressionado-arq-csv.