USE 90
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT
JOIN 97 INTO CODMED==CODMED
JOIN CTD ALIAS 700 INTO CODTAB==CATDON
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 94 INTO CODICE==CODICE
JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN

END
DESCRIPTION
BEGIN
  90->* "Soggetti Sezioni AVIS"
  100@->* "Localita' postali"
  200@->* "TCS"
  300@->* "GAZ"
  100@->* "LCP"
  500@->* "Comune di nascita"
  501@->* "Comuni di domicilio"
  600@->* "Tabella benemerenze"
  96->* "Sezioni AVIS"
  97->* "Medici"
  94->* "Benemerenze"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT ""
  SIZE
  GRID ""
END

SECTION BODY ODD 24

STRINGA 1 25
BEGIN
 KEY "Cognome"
 PROMPT 3 1 "Cognome "
 FIELD 90->COGNOME
END

STRINGA 2 25
BEGIN
 KEY "Nome"
 PROMPT 41 1 "Nome "
 FIELD 90->NOME
END

STRINGA 3 50
BEGIN
 KEY "Comune di nascita"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,5|COPY,5
 FIELD 500@->DENCOM
END

STRINGA 4 5
BEGIN
 KEY "Provincia di nascita"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,5
 FIELD 500@->PROVCOM
END

STRINGA 5 55
BEGIN
 KEY "Comune e provincia di nascita"
 PROMPT 3 3 "Nato a  "
END

DATA 6 18
BEGIN
 KEY "Data nascita"
 PROMPT 48 3 "Data di nascita "
 FIELD 90->DATANASC
 FORMAT "1444-"
END

STRINGA 7 15
BEGIN
  PROMPT 3 5 "Professione "
END

STRINGA 26 6
BEGIN
  KEY "Prompt sesso"
  PROMPT 66 5 "Sesso "
END

LISTA 8 
BEGIN
 KEY "Sesso"
 PROMPT 72 5 "Sesso "
 FIELD 90->SESSO
 ITEM "0|?"
 ITEM "1|M"
 ITEM "2|F"
 ITEM "9|?"
END

STRINGA 9 30
BEGIN
 KEY "Comune"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,11|COPY,11
 FIELD 501@->DENCOM
END

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

STRINGA 11 55 
BEGIN
 KEY "Com. e Prov."
 PROMPT 3 7 "Residente a "
END

STRINGA 12 30 
BEGIN
 KEY "Indirizzo"
 PROMPT 3 9 "Indirizzo   "
 FIELD 90->DOM_INDIR
END

STRINGA 13 25
BEGIN
   KEY "Telefono abitazione"
   PROMPT 3 11 "Tel.: ab. "
   FIELD 90->TELABI
END

STRINGA 14 25
BEGIN
   KEY "Telefono lavoro"
   PROMPT 30 11 "lav. "
   FIELD 90->TELLAV
END

STRINGA 15 25
BEGIN
   KEY "Telefono altri"
   PROMPT 51 11 "altro "
   FIELD 90->TELALT
END

STRINGA 16 12
BEGIN
  KEY "Sezione"
  PROMPT 3 13 "Sez./Sot. "
  FIELD 90->CODSEZ
END

STRINGA 17 3
BEGIN
  KEY "Sottogruppo"
  PROMPT 15 13 "/"
  FIELD 90->CODSOT
END

NUMERO 18 8
BEGIN
   KEY "Codice soggetto"
   PROMPT 50 13 "Cod. sezione"
   FIELD 90->CODICE
END

STRINGA 19 25
BEGIN
   KEY "Numero libretto sanitario"
   PROMPT 3 15 "Tessera SSN "
   FIELD 90->TESSSSN
END

STRINGA 20 25
BEGIN
   KEY "Codice fiscale"
   PROMPT 35 15 "Codice fiscale "
   FIELD 90->CF
END

STRINGA 21 15
BEGIN
   KEY "Gruppo sanguigno"
   PROMPT 3 17 "AB0 "
   FIELD 90->GRUPPOAB0
END

STRINGA 22 15
BEGIN
   KEY "Rh/AntiD"
   PROMPT 17 17 "Rh "
   FIELD 90->RHANTID
END

STRINGA 23 15
BEGIN
   KEY "Fenotipo Rh"
   PROMPT 29 17 "Fenotipo Rh "
   FIELD 90->FENOTIPORH
END

STRINGA 24 15
BEGIN
   KEY "Kell"
   PROMPT 52 17 "Kell "
   FIELD 90->KELL
END

STRINGA 25 15
BEGIN
   KEY "Du"
   PROMPT 64 17 "Du "
   FIELD 90->DU
END

END   // FINE SECTION BODY

END   // END FORM