Clipper/FiveWin - ABRIR Y CERRAR BASE

COMO PUEDO CREAR UNA FUNCION QUE ABRA Y CIERRE UNA BASE DE DATOS COMO POR EJEMPLO:

oTArch:=Open_Dbf("Archivo")

Close_dbf("Archivo")

pero no se como crear esta funcion, al abrir que me abra tambien los indices

oTArch:=Open_Dbf("Archivo")
cerrar() llamada a la rutina
return

funtion cerrarar
Close_dbf("Archivo")
return