Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » archivos de cobol

Cobol - archivos de cobol

Volver
Nuevo Tema
<<>>
 
Vista:

archivos de cobol

Publicado por titi (2 intervenciones) el 07/09/2001 23:58:11
porfavor alguien que se la pueda con control de reservas de cobol es archivos gracias al que se la pudo y de nada al que no de pudo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Control de reservas y archivos

Publicado por Alejandro (300 intervenciones) el 04/09/2023 18:38:44
Entiendo que estás buscando ayuda con el control de reservas en COBOL y archivos. COBOL es un antiguo lenguaje de programación que se utiliza principalmente en aplicaciones empresariales heredadas, como sistemas de reservas. Para trabajar con archivos en COBOL, es fundamental comprender cómo se manejan los archivos secuenciales y cómo se pueden realizar operaciones de lectura y escritura en ellos.

Aquí hay un ejemplo simple de cómo podrías abrir un archivo en COBOL:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
IDENTIFICATION DIVISION.
PROGRAM-ID. Control-Reservas.
 
DATA DIVISION.
FILE SECTION.
FD Reservas-File.
01 Reserva-Record.
   05 Nombre-Cliente   PIC X(30).
   05 Fecha-Reserva    PIC X(10).
   05 Habitacion       PIC 9(3).
   05 Tarifa           PIC 9(5).
 
WORKING-STORAGE SECTION.
01 WS-Status           PIC X(2).
 
PROCEDURE DIVISION.
   OPEN INPUT Reservas-File.
   READ Reservas-File INTO Reserva-Record
       AT END DISPLAY "Fin de archivo."
   END-READ.
 
   PERFORM UNTIL WS-Status = 'NO'
       DISPLAY "Cliente: " Nombre-Cliente
       DISPLAY "Fecha de reserva: " Fecha-Reserva
       DISPLAY "Habitación: " Habitacion
       DISPLAY "Tarifa: " Tarifa
 
       READ Reservas-File INTO Reserva-Record
           AT END MOVE 'NO' TO WS-Status
       END-READ
   END-PERFORM.
 
   CLOSE Reservas-File.
 
   STOP RUN.

Este es solo un ejemplo muy básico para abrir y leer un archivo en COBOL. El control de reservas en un sistema real sería más complejo y requeriría una estructura de datos más sofisticada y lógica de negocio. Además, necesitarás manejar las operaciones de escritura para agregar, modificar o eliminar reservas en el archivo según sea necesario.

Ten en cuenta que COBOL es un lenguaje antiguo y no es tan común en la programación moderna.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar