diff --git a/CobXmlSupport/GenCobCode.cs b/CobXmlSupport/GenCobCode.cs
index ea01e87..3f98732 100644
--- a/CobXmlSupport/GenCobCode.cs
+++ b/CobXmlSupport/GenCobCode.cs
@@ -1219,7 +1219,7 @@ namespace CobXmlSupport
                     //------------- move from --------------
                     if (cr.MoveCode.Length > 1 && cr.MoveCode != " ")
                     {
-                        if (cr.MoveCode.ToUpper().Contains("MOVE")) {}
+                        if (cr.MoveCode.ToUpper().Contains("MOVE") || (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO"))) { }
                         else genExtMoves.CodeShower.Text += "MOVE ";
                         genExtMoves.CodeShower.Text += cr.MoveCode;
                     }
@@ -1237,7 +1237,10 @@ namespace CobXmlSupport
                     genExtMoves.CodeShower.Text += "\r\n           " + adjustIf(adj) + " *> #" + cr.FieldName + "#";
 
                     //------------- move to ---------------
-                    genExtMoves.CodeShower.Text += "\r\n           " + adjustIf(adj) + "TO " + cr.FieldName;
+                    genExtMoves.CodeShower.Text += "\r\n           " + adjustIf(adj);
+                    if (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO")) {}
+                    else genExtMoves.CodeShower.Text += "TO ";
+                    genExtMoves.CodeShower.Text += "\r\n           " + adjustIf(adj) + cr.FieldName;
                     genExtMoves.CodeShower.Text = checkForOccurs(indexNames, cr, genExtMoves.CodeShower.Text, ref occParRows, ref slask, false, adj);
                     while (crTmp.LevelParent != null)
                     {
@@ -1249,6 +1252,10 @@ namespace CobXmlSupport
                     {
                         genExtMoves.CodeShower.Text += " (" + occParRows + " )";
                     }
+                    if (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO")) {
+                        genExtMoves.CodeShower.Text += "\r\n        " + adjustIf(adj) + "END-STRING " ;
+                    }
+
                     if (chkMvToDisp.Checked)
                     {
                         occParRows = "";