USE 58
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 37 INTO CODDITTA=CODDITTA
END

DESCRIPTION
BEGIN
  58->* "Quadro A3 770"
  45->* "Anagrafica dei dipendenti"
  9->* "Ditte"
  206@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 11
  CARATTERE "X"
  INIZIO_POS 3 3
  FINE_POS 130
  GRID "+++++++++-|"
END

SECTION HEADER FIRST 23

STRINGA 1 
BEGIN
  KEY "CODICE FISCALE"
  PROMPT 55 8  ""
  FIELD 206@->COFI
END

STRINGA 13
BEGIN
 KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
 PROMPT 88 8 ""
END

NUMERO 14
BEGIN
 KEY "NUM. FOGLIO"
 PROMPT 123 8 ""
END

NUMERO 15 
BEGIN
 KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
 PROMPT 55 13 ""
 PICTURE "###.###"
 FIELD 37->CONSBASOCC
END

NUMERO 16
BEGIN
 KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
 PROMPT 55 14 ""
 PICTURE "###.###"
 FIELD 37->LAVDIPCIN
END

DATA 17
BEGIN
 KEY "PERIODO D'IMPOSTA (DAL)"
 PROMPT 95 14 ""
 FORMAT "1442 "          
 FIELD 37->PIMPINI
END

DATA 18
BEGIN
 KEY "PERIODO D'IMPOSTA (AL)"
 PROMPT 115 14 ""
 FORMAT "1442 "
 FIELD 37->PIMPFINE
END

END

SECTION HEADER ODD 5
// Header pagine successive
END


SECTION BODY ODD 6

STRINGA 1
BEGIN
 KEY "COD.FIS"
 PROMPT 10 1 ""
 FIELD 45->CODFI
END

STRINGA 2
BEGIN
 KEY "COGNOME"
 PROMPT 42 1 ""
 FIELD 45->COGNOME
END

STRINGA 3
BEGIN
 KEY "NOME"
 PROMPT 79 1 ""
 FIELD 45->NOME
END

DATA 4
BEGIN
 KEY "DATA NASCITA"
 PROMPT 114 1 ""
 FIELD 45->DATANA
 FORMAT "1444-"
END

STRINGA 5
BEGIN
 KEY "SESSO"
 PROMPT 128 1 ""
 FIELD 45->SESSO
END

STRINGA 6
BEGIN
 KEY "COMUNE DI NASCITA"
 PROMPT 10 3 ""
 FIELD 45->COMUNENA
END

STRINGA 7
BEGIN
 KEY "PROV DI NASCITA"
 PROMPT 47 3 ""
 FIELD 45->PROVNA
END

DATA 8
BEGIN
 KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
 PROMPT 10 5 ""
 FIELD 58->DIRAPTI
 FORMAT "1444-"
 PICTURE "## ^ ##^^^##"
END

NUMERO 9
BEGIN
 KEY "NUMERO GIORNI IN INCREMENTO"
 PROMPT 34 5 ""
 PICTURE "######"
 FIELD 58->NGINC15
END

NUMERO 10
BEGIN
 KEY "REDDITO CORRISPOSTO"
 PROMPT 42 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 58->REDCOR16
END

NUMERO 11
BEGIN
 KEY "NUMERO GIORNI IN INCREMENTO"
 PROMPT 68 5 ""
 PICTURE "######"
 FIELD 58->NGINC17
END

NUMERO 12
BEGIN
 KEY "REDDITO CORRISPOSTO"
 PROMPT 76 5 ""
 PICTURE "###.###.###.###^^^"
 FIELD 58->REDCOR18
END

END

SECTION FOOTER LAST 4

STRINGA 2
BEGIN
 KEY "FIRMA"
 PROMPT 83 4 ""
 FIELD 206@->RAGSOC
END

END

END