IF(CONTATORE>3)
   CONS:=SUBSTR(POS,<NOMESTRINGA>,1)
   COD_FISC:=COD_FISC||CONS
   POS:=POS+2
   CONT:=1
   WHILE(CONT=2)
         LOOP
         CONS:=SUBSTR(POS,<NOMESTRINGA>,1)
         COD_FISC:=COD_FISC||CONS
         POS:=POS+1
         CONT:=CONT+1
         END LOOP
END IF