PDA

Ver la Versión Completa : [Sintaxis] Tablas en Cobol


dariodr
21 de abril de 2020, 07:23
Buenas tardes amigos Coboleros, tengo una consulta.
Tengo este enunciado:

Programa que carga una matriz alfanumérica de 80 filas y 2 columnas conteniendo en cada fila un nombre de persona y su numero de teléfono. A continuacion realiza una clasificación ascendente por orden alfabético de nombres y finalmente imprime la lista ordenada de nombres y teléfonos.

La pregunta es: como creo la matriz alfanumerica.
He hecho este trozo de codigo pero se que esta mal.

DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 TABLA-DIR.
02 T-NOMBRES OCCURS 5 TIMES.
03 T-COL PIC 9(7) OCCURS 2 TIMES.

Kuk
21 de abril de 2020, 09:12
dariodr, la estructura de datos debe ser algo así :


WORKING-STORAGE SECTION.
01 TABLA-DIR.
05 TBL-FILAS OCCURS 80 TIMES.
10 TB-NOMBRE PIC X(20).
10 TB-TELEFONO PIC X(20).

dariodr
21 de abril de 2020, 09:55
En ese ejemplo que has puesto la tabla TBL-FILAS es bidimensional, si?
Salu2.

Kuk
21 de abril de 2020, 10:03
dariodr, no que va, es unidimensional ya que sólo hay un OCCURS (o sea no los hay anidados).