Archivos Multiusuarios

[jmeza]

Hola, consulta, cual seria la forma para definir la Select y FD en sistema multiusuarios que no produzca conflicto de lectura o grabación cuando dos usuarios o mas trabajan en el mismo programa.

Un saludo

[Joseg]

Hola, consulta, cual seria la forma para definir la Select y FD en sistema multiusuarios que no produzca conflicto de lectura o grabación cuando dos usuarios o mas trabajan en el mismo programa.

Un saludo


SELECT FARQUIVO ASSIGN TO "ARQUIVO.DAT"
ORGANIZATION INDEXED
ACCESS DYNAMIC
RECORD KEY FIRSTKEY
STATUS WSTATUS
LOCK MODE AUTOMATIC WITH LOCK ON RECORD.

FD FARQUIVO
01 REGISTO ...



Várias possibilidades:

OPEN INPUT FARQUIVO ---> Não produz conflicto
ou

OPEN I-O FARQUIVO
READ FARQUIVO WITH NO LOCK ... ---> Não produz conflicto

Teste escrita:

WRITE REGISTO
IF WSTATUS(1:1) NOT = "0"
DISPLAY "ERROR"
END-IF


Analisar comandos: LOCK MODE AUTOMATIC WITH LOCK ON RECORD.
OPEN INPUT / I-O
READ
WRITE / REWRITE
LOCK / UNLOCK

Mas havia muito mais a explicar.
File Handling | zingCOBOL (http://cobol.404i.com/content/file-handling)