[Sintaxis] 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