COBOL - Introdução à tabela
Às vezes, torna-se necessário lidar com grupos de dados compostos por itens semelhantes. Esse grupo é chamado de Tabela ou Matriz. Um array é usado para armazenar itens ou elementos semelhantes. Por exemplo, uma série de totais no armazenamento de trabalho com o mesmo formato.
Uma tabela é uma lista de campos armazenados que são consultados ou referenciados pelo programa. Também elimina a necessidade de entradas separadas para itens de dados repetidos. O uso de tabelas pode ser ilustrado pelo seguinte exemplo
Por exemplo, quando você precisa listar os meses da maneira normal de representá-lo:
01 MONTH-TABLE.
02 MONTH-1 PIC X(9) VALUE 'JANUARY '.
02 MONTH-2 PIC X(9) VALUE 'FEBRAURY '.
02 MONTH-3 PIC X(9) VALUE 'MARCH '.
02 MONTH-4 PIC X(9) VALUE 'APRIL '.
02 MONTH-5 PIC X(9) VALUE 'MAY '.
02 MONTH-6 PIC X(9) VALUE 'JUNE '.
02 MONTH-7 PIC X(9) VALUE 'JULY '.
02 MONTH-8 PIC X(9) VALUE 'AUGUST '.
02 MONTH-9 PIC X(9) VALUE 'SEPTEMBER'.
02 MONTH-10 PIC X(9) VALUE 'OCTOBER '.
02 MONTH-11 PIC X(9) VALUE 'NOVEMBER '.
02 MONTH-12 PIC X(9) VALUE 'DECEMBER '. |
No exemplo acima, o mesmo nome do mês de dados está sendo repetido 12 vezes. Em vez de definir os elementos assim, podemos defini-lo como uma tabela com 12 elementos.
Cada elemento da tabela pode ser referenciado usando um subscrito ou um índice. Agora vamos ver como a tabela pode ser definida em COBOL.
01 MONTH-TABLE.
02 MONTH-NAME PIC X(9) OCCURS 12 TIMES.
|
Esta tabela pode ser tabelas de comprimento fixo e tabelas de comprimento variável. As tabelas ou Arrays são definidos usando OCCURS em COBOL.
Agora vamos olhar para a cláusula Occurs no próximo capítulo.