USE 94
JOIN 90 TO 94 INTO CODICE==CODICE
JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP TO 90 ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN BEN TO 94 ALIAS 600 INTO CODTAB==TIPOBEN

END
DESCRIPTION
BEGIN
   94->* "Benemerenze"
   90->* "Soggetti Sezioni AVIS"
   501@->* "Comune di domicilio"
   100@->* "Localita' postali"
   600@->* "Benemerenze"
END

GENERAL
BEGIN
   OFFSET 0 0
   FONT "Courier New"
   SIZE 11
   GRID ""
END

SECTION BODY ODD 67

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 33 2
BEGIN
   KEY "Cognome e nome"
   PROMPT 51 11 ""
END

STRINGA 4 30
BEGIN
   KEY "Indirizzo"
   FIELD 90->DOM_INDIR
   PROMPT 51 13 ""
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 90->DOM_CAP
   PROMPT 51 15 ""
END

STRINGA 7 30
BEGIN
   KEY "Denominazione localita' o comune"
   FIELD 100@->S0
   FIELD 501@->DENCOM
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE RESET,9|COPY,9
END

STRINGA 8 5
BEGIN
   KEY "Provincia"
   FIELD 501@->PROVCOM
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE APPEND,9
END

STRINGA 9 27 2
BEGIN
   KEY "Loc./Com. e Prov."
   PROMPT 57 15 ""
END

STRINGA 10 30
BEGIN
   KEY "Benemerenza"
   FIELD 600@->S0
   PROMPT 20 35 ""
END

STRING 11 30
BEGIN
 KEY "Presso"
 PROMPT 51 14 ""
 FIELD 90->DOM_DISTRI
END

END

END