Cobol Foro - [Sintaxis] Archivos Multiusuarios

Cita:

Citación del post de jmeza (Mensaje 4678)

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

Código COBOL:

           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:

Código COBOL:

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

Analisar comandos: LOCK MODE AUTOMATIC WITH LOCK ON RECORD.

Código COBOL:

    OPEN INPUT / I-O        
    READ  
    WRITE / REWRITE
    LOCK / UNLOCK

Mas havia muito mais a explicar.
File Handling | zingCOBOL