Initial importv0.1.0

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