7/22/2019 Vetor Quebra Cobol

1/20

14 VETORES14.1 Exemplos de declarao e alocao das variveis

Exemplo 1TABELA-SIGLAS-UF-VALIDAS

A C A L A P A M B A C E D F E S G O M A M T M S M G P A P B P R P E P I R J R N R S R O R R S C S P S E T O

SIGLA-OK (27)...

SIGLA-OK (2)SIGLA-OK (1)

01 TABELA-SIGLAS-UF-VALIDAS. 05 FILLER PIC X(02) VALUE AC. 05 FILLER PIC X(02) VALUE AL. 05 FILLER PIC X(02) VALUE AP. 05 FILLER PIC X(02) VALUE AM. 05 FILLER PIC X(02) VALUE BA. 05 FILLER PIC X(02) VALUE CE. 05 FILLER PIC X(02) VALUE DF. 05 FILLER PIC X(02) VALUE ES. 05 FILLER PIC X(02) VALUE GO. 05 FILLER PIC X(02) VALUE MA. 05 FILLER PIC X(02) VALUE MT. 05 FILLER PIC X(02) VALUE MS. 05 FILLER PIC X(02) VALUE MG. 05 FILLER PIC X(02) VALUE PA. 05 FILLER PIC X(02) VALUE PB. 05 FILLER PIC X(02) VALUE PR. 05 FILLER PIC X(02) VALUE PE. 05 FILLER PIC X(02) VALUE PI. 05 FILLER PIC X(02) VALUE R. 05 FILLER PIC X(02) VALUE R!. 05 FILLER PIC X(02) VALUE RS. 05 FILLER PIC X(02) VALUE RO. 05 FILLER PIC X(02) VALUE RR. 05 FILLER PIC X(02) VALUE SC. 05 FILLER PIC X(02) VALUE SP. 05 FILLER PIC X(02) VALUE SE. 05 FILLER PIC X(02) VALUE TO.01 TABELA-SIGLAS-UF-VALIDAS-R REDEFI!ES

TABELA-SIGLAS-UF-VALIDAS. 05 SIGLA-OK PIC X(02 OCCURS 27.

Outra forma de fazer tais declaraes :

01 TABELA-SIGLAS-UF-VALIDAS. 05 FILLER PIC X(2") VALUE ACALAPAMBACEDFESGOMAMTMS. 05 FILLER PIC X(2") VALUE MGPAPBPRPEPIRR!RSRORRSC. 05 FILLER PIC X(0#) VALUE SPSETO.01 TABELA-SIGLAS-UF-VALIDAS-R REDEFI!ES

TABELA-SIGLAS-UF-VALIDAS. 05 SIGLA-OK PIC X(02) OCCURS 27.

1

7/22/2019 Vetor Quebra Cobol

2/20

Exemplo 2

TABELA-UF-E-NOME

A C A C R E A L A L A G O A S A P A M A P A . . . .

01 TABELA-UF-E-!OME. 05 FILLER PIC X(21) VALUE ACACRE. 05 FILLER PIC X(21) VALUE ALALAGOAS. 05 FILLER PIC X(21) VALUE APAMAPA. 05 FILLER PIC X(21) VALUE AMAMA$O!AS. 05 FILLER PIC X(21) VALUE BABA%IA.

05 FILLER PIC X(21) VALUE CECEARA. 05 FILLER PIC X(21) VALUE DFDISTRITO FEDERAL. 05 FILLER PIC X(21) VALUE ESESPIRITO SA!TO. 05 FILLER PIC X(21) VALUE GOGOIAS. 05 FILLER PIC X(21) VALUE MAMARA!%AO. 05 FILLER PIC X(21) VALUE MTMATO GROSSO. 05 FILLER PIC X(21) VALUE MSMATA GROSSO DO SUL. 05 FILLER PIC X(21) VALUE MGMI!AS GERAIS. 05 FILLER PIC X(21) VALUE PAPARA. 05 FILLER PIC X(21) VALUE PBPARAIBA. 05 FILLER PIC X(21) VALUE PRPARA!A. 05 FILLER PIC X(21) VALUE PEPER!AMBUCO. 05 FILLER PIC X(21) VALUE PIPIAUI. 05 FILLER PIC X(21) VALUE RRIO DE A!EIRO. 05 FILLER PIC X(21) VALUE R!RIO GRA!DE DO !ORTE.

05 FILLER PIC X(21) VALUE RSRIO GRA!DE DO SUL. 05 FILLER PIC X(21) VALUE RORO!DO!IA. 05 FILLER PIC X(21) VALUE RRRORAIMA. 05 FILLER PIC X(21) VALUE SCSA!TA CATARI!A. 05 FILLER PIC X(21) VALUE SPSAO PAULO. 05 FILLER PIC X(21) VALUE SESERGIPE. 05 FILLER PIC X(21) VALUE TOTOCA!TI!S.01 TABELA-UF-E-!OME-R REDEFI!ES

TABELA-UF-E-!OME. 05 UF-E-!OME OCCURS 27. 10 SIGLAUF PIC X(02). 10 !OMEUF PIC X(1&).

A tabela ter 567 bytes; ela ser composta por 27 campos deomiados !"#$#%O&$ ' cada (ual com 21 bytes' alocados ase)uite se(u*cia:SIGLAUF (1)NOMEUF (1)

SIGLAUF (2)

NOMEUF (2)

...

SIGLAUF (27)

NOMEUF (27)

2

UF-E-!OME (1)UF-E-!OME (2)

SIGLAUF (1)

!OMEUF (1)

SIGLAUF (2)

!OMEUF (2)

7/22/2019 Vetor Quebra Cobol

3/20

7/22/2019 Vetor Quebra Cobol

4/20

10 FILLER PIC X(1&) VALUE PER!AMBUCO. 10 FILLER PIC X(1&) VALUE PIAUI. 10 FILLER PIC X(1&) VALUE RIO DE A!EIRO. 10 FILLER PIC X(1&) VALUE RIO GRA!DE DO !ORTE. 10 FILLER PIC X(1&) VALUE RIO GRA!DE DO SUL. 10 FILLER PIC X(1&) VALUE RO!DO!IA. 10 FILLER PIC X(1&) VALUE RORAIMA. 10 FILLER PIC X(1&) VALUE SA!TA CATARI!A. 10 FILLER PIC X(1&) VALUE SAO PAULO. 10 FILLER PIC X(1&) VALUE SERGIPE. 10 FILLER PIC X(1&) VALUE TOCA!TI!S.

01 TABELA-UF-E-!OME-R REDEFI!ESTABELA-UF-E-!OME.

05 SIGLA-UF PIC X(02) OCCURS 27. 05 !OME-UF PIC X(1&) OCCURS 27.

A tabela ter 567 bytes : 5, referetes aos 27 campos de 2 bytes cada -deomiados ./0A#!" mais 51+ referetes aos 27

campos de 13 bytes cada -deomiados %O&$#!"; tais campos ser4o alocados da se)uite forma:SIGLAUF (1)

SIGLAUF (2)

...

SIGLAUF (27)NOMEUF (1)

NOMEUF (2)

...

NOMEUF (27)

Exemplo 4

TABELA-AGENCIAS

0 0 0 0 1 0 5 3 5 6 0 0 0 5 6 0 5 3 0 0 . . . . 0 6 7 0 0 ! 1 " ! 0 0 1 1 1 0 ! 0 3

01 TABELA-AGE!CIAS. 05 DADOS-AGE!CIA OCCURS 500. 10 COD-AGE PIC &(5). 10 TDD-CO!TAS PIC &(5). 10 TDD-CO!TAS-I!ATIVAS PIC &(5). 10 TDD-CO!TAS-ATIVAS PIC &(5).

A tabela ter 1 bytes alocados a se)uite forma e se(u*cia: 5 elemetos de 2 bytes cada -deomiados AO.#

A0$%/A' e compostos cada (ual por , sub#campos : O#A0$' 89#O%9A.' 89#O%9A.#/%A9/A. e89#O%9A. A9/A.