Cobol - Ejemplo de un Menu Realizado en Acucobol para linu

 
Vista:

Ejemplo de un Menu Realizado en Acucobol para linu

Publicado por julio anibal madera (1 intervención) el 01/02/2007 16:21:22
estoy buscando un ejemplo de un programa que se utilice como menu de opciones creado en acucobol bajo linux.

gracias anticipadas.
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 de menú de opciones en AcuCOBOL bajo Linux

Publicado por Alejandro (299 intervenciones) el 07/09/2023 00:05:14
Julio, aquí tienes un ejemplo simple de un programa en AcuCOBOL que funciona como un menú de opciones en un entorno de Linux. En este ejemplo, el programa muestra un menú de tres opciones y ejecuta una acción correspondiente a la opción seleccionada por el usuario:

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
IDENTIFICATION DIVISION.
       PROGRAM-ID. MenuProgram.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 Choice PIC X.
 
       SCREEN SECTION.
       01 MainMenu.
          05 BLANK SCREEN.
          05 CENTER 'MENU DE OPCIONES' LINE 3 COL 10.
          05 CENTER '1. Opción 1' LINE 5 COL 10.
          05 CENTER '2. Opción 2' LINE 6 COL 10.
          05 CENTER '3. Salir' LINE 7 COL 10.
          05 CENTER 'Elija una opción (1/2/3): ' LINE 10 COL 10.
 
       PROCEDURE DIVISION.
       Main-Loop.
           DISPLAY MainMenu.
           ACCEPT Choice.
 
           EVALUATE Choice
               WHEN '1'
                   PERFORM Option-1
               WHEN '2'
                   PERFORM Option-2
               WHEN '3'
                   DISPLAY 'Saliendo del programa...'
                   EXIT PROGRAM
               WHEN OTHER
                   DISPLAY 'Opción no válida. Intente de nuevo.'
           END-EVALUATE
           GO TO Main-Loop.
 
       Option-1.
           DISPLAY 'Opción 1 seleccionada.'
           PERFORM Pause.
 
       Option-2.
           DISPLAY 'Opción 2 seleccionada.'
           PERFORM Pause.
 
       Pause.
           DISPLAY 'Presione Enter para continuar...'
           ACCEPT Choice.

En este programa de ejemplo:

1. Se muestra un menú con tres opciones numeradas (1, 2 y 3) y se le pide al usuario que ingrese su elección.

2. Se utiliza la estructura `EVALUATE` para determinar qué acción realizar según la opción seleccionada.

3. Hay dos acciones de ejemplo (`Option-1` y `Option-2`) que simplemente muestran un mensaje en pantalla. Puedes personalizar estas acciones según tus necesidades.

4. Después de cada acción, se muestra un mensaje para pausar y esperar a que el usuario presione Enter antes de volver al menú principal.

Puedes agregar más opciones y acciones según sea necesario para tu aplicación de menú. Este es solo un ejemplo básico para que te ayude a comenzar.
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