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

Cobol - Ejemplo de Pantalla

Volver
Nuevo Tema
<<>>
 
Vista:

Ejemplo de Pantalla

Publicado por Michel Castle (1 intervención) el 06/06/2001 00:26:46
Necesito urgente un ejemplo de cobol que trabaje con pantallas desplegables, si alguien me puede ayudar por favor escribame a mi correo
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

Ejemplo de programa con pantalla desplegable

Publicado por Alejandro (300 intervenciones) el 04/09/2023 17:46:10
Por supuesto, aquí tienes un ejemplo de un programa COBOL que utiliza una pantalla desplegable (dropdown list) para que el usuario seleccione una opción. Este ejemplo asume que estás trabajando en un entorno que admite pantallas interactivas, como CICS o un sistema similar. Asegúrate de ajustar el código según tus necesidades y el entorno específico en el que estás trabajando.

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
IDENTIFICATION DIVISION.
PROGRAM-ID. EjemploDesplegable.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Opciones-Desplegable.
   05 Num-Opciones PIC 9 VALUE 3.
   05 Opcion-Seleccionada PIC 9.
   05 Opcion1 PIC X(20) VALUE 'Opción 1'.
   05 Opcion2 PIC X(20) VALUE 'Opción 2'.
   05 Opcion3 PIC X(20) VALUE 'Opción 3'.
 
SCREEN SECTION.
01 Pantalla-Desplegable.
   05 BLANK SCREEN.
   05 LINE 1 COLUMN 1 VALUE 'Seleccione una opción:'.
   05 LINE 2 COLUMN 1 DISPLAY Opciones-Desplegable.
 
PROCEDURE DIVISION.
   DISPLAY SCREEN Pantalla-Desplegable.
 
   ACCEPT Opcion-Seleccionada FROM Opciones-Desplegable.
 
   PERFORM Procesar-Opcion.
 
   DISPLAY 'La opción seleccionada fue: ' Opcion-Seleccionada.
 
   STOP RUN.
 
Procesar-Opcion.
   IF Opcion-Seleccionada = 1
       DISPLAY 'Has seleccionado la Opción 1'.
   ELSE IF Opcion-Seleccionada = 2
       DISPLAY 'Has seleccionado la Opción 2'.
   ELSE IF Opcion-Seleccionada = 3
       DISPLAY 'Has seleccionado la Opción 3'.
   ELSE
       DISPLAY 'Selección no válida'.
   END-IF.

En este ejemplo, hemos creado una pantalla simple que muestra tres opciones en un desplegable. El usuario puede seleccionar una opción, y el programa COBOL procesará la selección y mostrará un mensaje en función de la opción elegida.

Asegúrate de adaptar el código según tus necesidades específicas y las características 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