USE 90
JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
GRID ""
END
SECTION HEADER ODD 3
STRINGA 1 15
BEGIN
KEY "Cognome e nome"
PROMPT 1 2 "Cognome e nome"
END
STRINGA 2 15
BEGIN
KEY "Indirizzo"
PROMPT 37 2 "Indirizzo"
END
STRINGA 3 15
BEGIN
KEY "Indirizzo"
PROMPT 59 2 "Localita'"
END
STRINGA 4 14
BEGIN
KEY "Telefono abit."
PROMPT 96 2 "Telefono abit."
END
STRINGA 5 10
BEGIN
KEY "Data nascita"
PROMPT 111 2 "Data nasc."
END
STRINGA 6 10
BEGIN
KEY "Cat.don."
PROMPT 122 2 "Categorie"
END
END 
SECTION BODY ODD 1
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 35 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 20 2
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 37 1 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 59 1 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 30 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 65 1 ""
END
STRINGA 10 14
BEGIN
KEY "Telefono abitazione"
PROMPT 96 1 ""
FIELD 90->TELABI
END
DATA 11 10
BEGIN
KEY "Data nascita"
PROMPT 111 1 ""
FIELD 90->DATANASC
END
STRINGA 12 2
BEGIN
KEY "Cat. don."
PROMPT 122 1 ""
FIELD 90->CATDON
END
STRINGA 13 2
BEGIN
KEY "Cat. NON don. 1"
PROMPT 125 1 ""
FIELD 90->CATNOND1
END
STRINGA 14 2
BEGIN
KEY "Cat. NON don. 2"
PROMPT 128 1 ""
FIELD 90->CATNOND2
END
END 
SECTION FOOTER ODD 3
STRINGA 1 10
BEGIN
KEY "Niente"
PROMPT 1 1 "---"
END
END 
END