Progress - help

estoy desarrollando un programa en progress 91e, y no ce como ejecutar el boton guardar

DEF var name as char no-undo.
DEF var bPicked as logical no-undo.

System-dialog get-file
Name
Filters "*.*" "*.*" /* Filter */
Default-extension "*.*" /* default-extensions */
Title "Guardar Como..."
CREATE-TEST-FILE
ASK-OVERWRITE
Save-as
Update bPicked.

if bPicked then
cDESTINO = name .
DISPLAY CDESTINO WITH FRAME {&FRAME-NAME}.

espero que te funcione prueba a ver que tal