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

Cobol - comunication seccion

Volver
Nuevo Tema
<<>>
 
Vista:

comunication seccion

Publicado por Jose Toro (1 intervención) el 19/02/2001 17:03:57
Necesito un ejemplo usando comunication seccion en una aplicacion, se agradece la respuesta
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 Communication Section

Publicado por Alejandro (300 intervenciones) el 04/09/2023 16:48:08
Aquí tienes un ejemplo de cómo usar una sección de comunicación (Communication Section) en una aplicación 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. EjemploComunicacion.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Mensaje-Entrada PIC X(50).
01 Mensaje-Salida  PIC X(50).
01 LongitudMensaje PIC 9(3).
 
COMMUNICATION SECTION.
01 ArchivoComunicacion.
   05 RECORDS VARYING IN SIZE FROM 1 TO 50 DEPENDING ON LongitudMensaje.
   05 Mensaje PIC X(50).
 
PROCEDURE DIVISION.
Inicio.
   DISPLAY "Ingrese un mensaje (máximo 50 caracteres): ".
   ACCEPT Mensaje-Entrada.
   MOVE FUNCTION LENGTH (Mensaje-Entrada) TO LongitudMensaje.
 
   WRITE Mensaje-Entrada FROM ArchivoComunicacion (1:LongitudMensaje)
       AFTER ADVANCING 1 RECORD
       INVALID KEY
           DISPLAY "Error al escribir en el archivo de comunicación."
       END-WRITE.
 
   DISPLAY "Mensaje escrito en el archivo de comunicación."
 
   READ Mensaje-Salida FROM ArchivoComunicacion
       INVALID KEY
           DISPLAY "Error al leer el archivo de comunicación."
       END-READ.
 
   DISPLAY "Mensaje leído desde el archivo de comunicación: " Mensaje-Salida.
 
   STOP RUN.

Este programa COBOL solicita al usuario que ingrese un mensaje, lo almacena en un archivo de comunicación y luego lo lee desde el mismo archivo. La Communication Section se utiliza para definir la estructura del archivo de comunicación. Asegúrate de ajustar el tamaño del campo Mensaje en la sección de comunicación según tus necesidades.

Recuerda que la implementación específica de la sección de comunicación puede variar según el sistema o compilador COBOL que estés utilizando. Este ejemplo es genérico y puede requerir ajustes según tu entorno de desarrollo.
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