From 302b44948ec605c3c5801d13628e10c488eb4061 Mon Sep 17 00:00:00 2001
From: tfoman <tommy.oman@gmail.com>
Date: Thu, 15 Jan 2015 14:18:59 +0100
Subject: [PATCH] Handle STRING command in user code

---
 CobXmlSupport/GenCobCode.cs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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 = "";