Cobol - programacion panels

programacion panels

Publicado por roger (13 intervenciones) el 05/10/2008 02:14:44

quisiera q me envien algunos ejem de programacion en panels

Valora esta pregunta

Responder

Publicado por Alejandro (300 intervenciones) el 08/09/2023 22:19:08

Claro, Roger, aquí tienes algunos ejemplos de programación en panels usando Cobol:

Ejemplo 1: Definir un panel simple en Cobol

IDENTIFICATION DIVISION.

PROGRAM-ID. EjemploPanel1.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Panel1.

   05 Pantalla1 PIC X(80) VALUE SPACES.

01 Respuesta PIC X(1) VALUE SPACE.

01 IndicadorRespuesta PIC X(1) VALUE SPACE.

SCREEN SECTION.

01 PantallaInicial.

   05 BLANK SCREEN.

   05 LINE 2 COLUMN 1 VALUE "Bienvenido al Panel 1".

   05 LINE 4 COLUMN 1 VALUE "Presione 'S' para continuar o 'Q' para salir:".

   05 LINE 5 COLUMN 1 PIC X(1) TO Respuesta.

PROCEDURE DIVISION.

DISPLAY PantallaInicial.

ACCEPT Respuesta.

IF Respuesta = 'S' THEN

    MOVE "Usted eligió continuar." TO Pantalla1

ELSE IF Respuesta = 'Q' THEN

    MOVE "Usted eligió salir." TO Pantalla1

ELSE

    MOVE "Opción no válida." TO Pantalla1

END-IF.

DISPLAY Pantalla1.

STOP RUN.

Ejemplo 2: Crear un panel interactivo en Cobol

IDENTIFICATION DIVISION.

PROGRAM-ID. EjemploPanel2.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Panel2.

   05 Pantalla2 PIC X(80) VALUE SPACES.

01 Respuesta2 PIC X(1) VALUE SPACE.

01 IndicadorRespuesta2 PIC X(1) VALUE SPACE.

SCREEN SECTION.

01 PantallaInicio.

   05 BLANK SCREEN.

   05 LINE 2 COLUMN 1 VALUE "Bienvenido al Panel 2".

   05 LINE 4 COLUMN 1 VALUE "Seleccione una opción:".

   05 LINE 6 COLUMN 1 VALUE "1 - Opción A".

   05 LINE 7 COLUMN 1 VALUE "2 - Opción B".

   05 LINE 8 COLUMN 1 VALUE "Q - Salir".

   05 LINE 9 COLUMN 1 PIC X(1) TO Respuesta2.

PROCEDURE DIVISION.

DISPLAY PantallaInicio.

ACCEPT Respuesta2.

EVALUATE Respuesta2

    WHEN '1' DISPLAY "Usted seleccionó la Opción A."

    WHEN '2' DISPLAY "Usted seleccionó la Opción B."

    WHEN 'Q' DISPLAY "Saliendo del programa."

    WHEN OTHER DISPLAY "Opción no válida."

END-EVALUATE.

STOP RUN.

Estos son solo ejemplos simples de programación en panels con Cobol. Puedes personalizarlos y expandirlos según tus necesidades.

Valora esta respuesta

Comentar