diff options
Diffstat (limited to 'copy/cepis-address.cpy')
| -rw-r--r-- | copy/cepis-address.cpy | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/copy/cepis-address.cpy b/copy/cepis-address.cpy new file mode 100644 index 0000000..b1e6c35 --- /dev/null +++ b/copy/cepis-address.cpy @@ -0,0 +1,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". |