153 lines
1.9 KiB
Plaintext
153 lines
1.9 KiB
Plaintext
|
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
|