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

Cobol - Programa

Volver
Nuevo Tema
<<>>
 
Vista:

Programa

Publicado por Daniel Mendoza (4 intervenciones) el 10/07/2001 04:49:43
Hola espero que me puedan ayudar a desarrollar este problema "Un programa en cobol con todas las divisiones que permita dar mantenimiento a los clientes de una empresa Inversiones Internacionales, S.A., con los siguientes reguistros del clientes: código, nombre, dirección, telefono, limite, saldo, debe tener un menú y de este llamar a los procemientos de insertar consultar modificar y eliminar ademas de una opción para salir porfavor ayudenmen a desarrollar este problema que es uno de los que me falta
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

Mantenimiento de Clientes para Inversiones Internacionales, S.A.

Publicado por Alejandro (299 intervenciones) el 04/09/2023 17:52:51
Aquí tienes un ejemplo de un programa COBOL que te permitirá llevar a cabo las operaciones de insertar, consultar, modificar y eliminar registros de clientes para Inversiones Internacionales, S.A.:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
IDENTIFICATION DIVISION.
PROGRAM-ID. Mantenimiento-Clientes.
DATA DIVISION.
 
WORKING-STORAGE SECTION.
01 Clientes-Temporales.
   05 Codigo       PIC 9(4).
   05 Nombre       PIC X(30).
   05 Direccion    PIC X(50).
   05 Telefono     PIC X(15).
   05 Limite       PIC 9(9)V99.
   05 Saldo        PIC 9(9)V99.
 
01 Opcion         PIC X.
 
01 Salir           PIC X VALUE 'N'.
 
01 Registro-Encontrado PIC X VALUE 'N'.
 
01 Respuesta       PIC X.
 
01 Cliente-Buscado.
   05 Codigo-Buscar PIC 9(4).
 
01 Menu.
   05 Lin1 PIC X(30) VALUE '1. Insertar cliente'.
   05 Lin2 PIC X(30) VALUE '2. Consultar cliente'.
   05 Lin3 PIC X(30) VALUE '3. Modificar cliente'.
   05 Lin4 PIC X(30) VALUE '4. Eliminar cliente'.
   05 Lin5 PIC X(30) VALUE '5. Salir'.
   05 Lin6 PIC X(30) VALUE 'Seleccione una opcion:'.
 
PROCEDURE DIVISION.
 
Iniciar-Programa.
   DISPLAY '*** Mantenimiento de Clientes ***'.
   PERFORM Mostrar-Menu UNTIL Salir = 'S'.
 
Mostrar-Menu.
   DISPLAY Menu.
   ACCEPT Opcion.
   PERFORM Elegir-Opcion.
 
Elegir-Opcion.
   EVALUATE Opcion
       WHEN '1'
           PERFORM Insertar-Cliente
       WHEN '2'
           PERFORM Consultar-Cliente
       WHEN '3'
           PERFORM Modificar-Cliente
       WHEN '4'
           PERFORM Eliminar-Cliente
       WHEN '5'
           MOVE 'S' TO Salir
       WHEN OTHER
           DISPLAY 'Opcion invalida. Seleccione nuevamente.'.
 
Insertar-Cliente.
   DISPLAY 'Ingrese los datos del cliente:'.
   ACCEPT Codigo, Nombre, Direccion, Telefono, Limite, Saldo.
   DISPLAY 'Cliente ingresado correctamente.'.
 
Consultar-Cliente.
   DISPLAY 'Ingrese el codigo del cliente a consultar:'.
   ACCEPT Codigo-Buscar.
   PERFORM Buscar-Cliente.
   IF Registro-Encontrado = 'S'
       DISPLAY 'Cliente encontrado:' Codigo, Nombre, Direccion, Telefono, Limite, Saldo
   ELSE
       DISPLAY 'Cliente no encontrado.'.
 
Buscar-Cliente.
   PERFORM Buscar-Registro
   IF Registro-Encontrado = 'S'
       MOVE 'S' TO Registro-Encontrado
   ELSE
       MOVE 'N' TO Registro-Encontrado.
 
Buscar-Registro.
   READ Clientes-Temporales
   AT END
       MOVE 'N' TO Registro-Encontrado
   NOT AT END
       IF Codigo = Codigo-Buscar
           MOVE 'S' TO Registro-Encontrado
       END-IF.
 
Modificar-Cliente.
   DISPLAY 'Ingrese el codigo del cliente a modificar:'.
   ACCEPT Codigo-Buscar.
   PERFORM Buscar-Cliente.
   IF Registro-Encontrado = 'S'
       DISPLAY 'Cliente encontrado. Ingrese los nuevos datos:'.
       ACCEPT Nombre, Direccion, Telefono, Limite, Saldo.
       DISPLAY 'Cliente modificado correctamente.'
   ELSE
       DISPLAY 'Cliente no encontrado.'.
 
Eliminar-Cliente.
   DISPLAY 'Ingrese el codigo del cliente a eliminar:'.
   ACCEPT Codigo-Buscar.
   PERFORM Buscar-Cliente.
   IF Registro-Encontrado = 'S'
       DISPLAY '¿Esta seguro que desea eliminar este cliente? (S/N):'.
       ACCEPT Respuesta.
       IF Respuesta = 'S'
           DELETE Clientes-Temporales
           DISPLAY 'Cliente eliminado correctamente.'
       ELSE
           DISPLAY 'Operacion de eliminacion cancelada.'
       END-IF
   ELSE
       DISPLAY 'Cliente no encontrado.'.
 
STOP RUN.

Este programa en COBOL te permite realizar operaciones básicas de mantenimiento de clientes, como insertar, consultar, modificar y eliminar registros. Asegúrate de adaptarlo según tus necesidades específicas y los requisitos de tu entorno de desarrollo COBOL.
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