diff --git a/in/in0200.cpp b/in/in0200.cpp
index 20e90c359..fac24afcd 100755
--- a/in/in0200.cpp
+++ b/in/in0200.cpp
@@ -195,7 +195,9 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
     put(rec.get_real("AMMLIRE"), 43, 13, _ndec);
     put(rec.get_real("AMMVALUTA"), 56, 13);
     put(rec.get_char("NATURA"), 69);
-    put(rec.get("NOMENCL"), 70, 8, "Z");
+    put(rec.get("NOMENCL").mid(0,4), 70, 4, "Z");  //il campo viene spezzato in 3 pezzi
+    put(rec.get("NOMENCL").mid(4,2), 74, 2, "Z");
+    put(rec.get("NOMENCL").mid(6,2), 76, 2, "Z");
     if (ic._freq == 'M')
     {
       put(rec.get_real("MASSAKG"), 78, 10, 0);
@@ -228,7 +230,9 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
       put(rec.get_real("AMMLIRE"), 49, 13, _ndec);
       put(rec.get_real("AMMVALUTA"), 62, 13);
       put(rec.get_char("NATURA"), 75);
-      put(rec.get("NOMENCL"), 76, 8, "Z");
+      put(rec.get("NOMENCL").mid(0,4), 76, 4, "Z");  //il campo viene spezzato in 3 pezzi
+      put(rec.get("NOMENCL").mid(4,2), 80, 2, "Z");
+      put(rec.get("NOMENCL").mid(6,2), 82, 2, "Z");
       if (ic._freq == 'M')
         put(rec.get_real("VALSTAT"), 84, 13, _ndec);
       else
@@ -241,7 +245,9 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
     put(rec.get("PIVA"), 31, 12);
     put(rec.get_real("AMMLIRE"), 43, 13, _ndec);
     put(rec.get_char("NATURA"), 56);
-    put(rec.get("NOMENCL"), 57, 8, "Z");
+    put(rec.get("NOMENCL").mid(0,4), 57, 4, "Z");  //il campo viene spezzato in 3 pezzi
+    put(rec.get("NOMENCL").mid(4,2), 61, 2, "Z");
+    put(rec.get("NOMENCL").mid(6,2), 63, 2, "Z");
     if (ic._freq == 'M')
     {
       put(rec.get_real("MASSAKG"), 65, 10);
@@ -272,7 +278,9 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
       put(rec.get("SEGNORETT"), 48, 1);
       put(rec.get_real("AMMLIRE"), 49, 13, _ndec);
       put(rec.get("NATURA"), 62, 1);
-      put(rec.get("NOMENCL"), 63, 8, "Z");
+      put(rec.get("NOMENCL").mid(0,4), 63, 4, "Z");  //il campo viene spezzato in 3 pezzi
+      put(rec.get("NOMENCL").mid(4,2), 67, 2, "Z");
+      put(rec.get("NOMENCL").mid(6,2), 69, 2, "Z");
       if (ic._freq == 'M')
         put(rec.get_real("VALSTAT"), 71, 13, _ndec);
       else