Clipper/FiveWin - ...Programita en RED

Que tal amigos clipperos.

Les escribo para ver si me pueden facilitar un pequeño programa en clipper pero en ambiente RED, ya que voy a hacer uno pero necesito saber como hacer los bloqueos de registros y de tablas...

solo necesito que me digan como hacer altas, bajas, cambios y consultas particulares y general.

solo con tres campos , no importa lo que necesito saber es como bloquear y donde van las instrucciones

esperando contar con su ayuda, reciban u saludo

Jose Manuel:

Abrir bases de datos con SHARE

USE Mibase NEW SHARE

Cuando modificas un registro de tu base:

IF RLOCK()
Mibase->Campo1:=Variable1
Mibase->Campo2:=Variable2
ENDIF
UNLOOK

Cuando agregas un registro de tu base:

IF RLOCK()
DBAPPEND()
Mibase->Campo1:=Variable1
Mibase->Campo2:=Variable2
ENDIF
UNLOOK

Para bloquear toda la base utiliza FLOCK()

Los comandos ZAP, PACK y REINDEX solo sirven en forma EXCLUSIVE

Espero que te sirve de algo,

Suerte

Ya que tu aplicacion correra en red. para que las actualizaciones de un terminal se reflejen inmediatamente en todos los demas terminales y actulice los indices inmediatamente, antes de desbloquear el registro con UNLOCK debes usar la sentencia COMMIT para la escritura fisica del registro.