Citación del post de
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
|
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