Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL
Fujitsu COBOL Sub-Foro dedicado a Compiladores e IDE-s de Fujitsu.
Noticias y Avisos
Respuesta
 
Herramientas

  #1
Antiguo 14 de diciembre de 2018, 14:49
IDENTIFICATION DIVISION
jmeza
Novato Junior
ENVIRONMENT DIVISION
Avatar de jmeza
DATA DIVISION
Forero desde (Registrado)abril 2017
Chile
UbicaciónCurico Chile
Última Actividad11.12.2019 15:41
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 9
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 3
jmeza is an unknown quantity at this point
Predeterminado Archivos Multiusuarios

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
jmeza no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 14 de diciembre de 2018, 15:40
IDENTIFICATION DIVISION
Joseg
Novato Senior
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad06.12.2019 13:57
PROCEDURE DIVISION
PostsPosts: 168
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 51
Mejores respuestasSoluiones: 9
Medallas recibidas: 1Medallas: Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ReputaciónReputación: 9
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de jmeza Ver Mensaje
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:
  1.            SELECT FARQUIVO ASSIGN TO "ARQUIVO.DAT"
  2.                     ORGANIZATION INDEXED
  3.                     ACCESS DYNAMIC  
  4.                     RECORD KEY FIRSTKEY
  5.                     STATUS WSTATUS
  6.                     LOCK MODE AUTOMATIC WITH LOCK ON RECORD.
  7.  
  8.  FD  FARQUIVO
  9.  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:
  1.      WRITE REGISTO
  2.      IF WSTATUS(1:1) NOT = "0"
  3.          DISPLAY "ERROR"
  4.      END-IF

Analisar comandos: LOCK MODE AUTOMATIC WITH LOCK ON RECORD.
Código COBOL:
  1.     OPEN INPUT / I-O        
  2.     READ  
  3.     WRITE / REWRITE
  4.     LOCK / UNLOCK

Mas havia muito mais a explicar.
File Handling | zingCOBOL
Joseg no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 23:00.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.