*> --------------------------------------------------------------------- *> 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".