blob: b1e6c35db027f052da7b05516ccf712c8a2c4dff (
plain)
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
36
37
38
39
40
41
|
*> ---------------------------------------------------------------------
*> Address layout without its 01 level, so the same definition serves
*> both the standalone record and the elements of the batch table.
*>
*> Include it under an 01 (or under a table entry) and replace the three
*> tags: the field-name prefix and the two level numbers. cepis.cpy does
*> exactly that, twice.
*>
*> Every text field is a fixed-width PIC X. A value longer than its field
*> is truncated on the right and the record is flagged; the sizes below
*> are the documented limits and are repeated in the README.
*> ---------------------------------------------------------------------
:L1: :P:-CEP PIC X(8).
:L1: :P:-CEP-MASKED PIC X(9).
:L1: :P:-LOGRADOURO PIC X(120).
:L1: :P:-COMPLEMENTO PIC X(120).
:L1: :P:-UNIDADE PIC X(80).
:L1: :P:-BAIRRO PIC X(100).
:L1: :P:-LOCALIDADE PIC X(100).
:L1: :P:-UF PIC X(2).
:L1: :P:-ESTADO PIC X(60).
:L1: :P:-REGIAO PIC X(30).
:L1: :P:-IBGE PIC X(10).
:L1: :P:-GIA PIC X(10).
:L1: :P:-DDD PIC X(4).
:L1: :P:-SIAFI PIC X(10).
:L1: :P:-TRUNCATED PIC X.
88 :P:-WAS-TRUNCATED VALUE "Y".
88 :P:-NOT-TRUNCATED VALUE "N".
:L1: :P:-GEO.
:L2: :P:-GEO-PRESENT PIC X.
88 :P:-GEO-KNOWN VALUE "Y".
88 :P:-GEO-ABSENT VALUE "N".
:L2: :P:-GEO-LAT PIC S9(3)V9(6)
SIGN IS LEADING SEPARATE.
:L2: :P:-GEO-LON PIC S9(3)V9(6)
SIGN IS LEADING SEPARATE.
:L2: :P:-GEO-RAIO-M PIC 9(9).
:L2: :P:-GEO-PRECISAO PIC X(16).
88 :P:-GEO-PRECISE VALUE "logradouro".
88 :P:-GEO-CITY-WIDE VALUE "localidade".
|