tfoman/CobXml
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

handling of performs and indices the new way

Browse Source
This commit is contained in:
tfoman
2014-12-05 00:12:34 +01:00
parent 29d2057c01
commit 28239d2b53
2 changed files with 53 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CobXmlSupport/GenCobCode.cs
View File

@ -1697,12 +1697,25 @@ namespace CobXmlSupport
qualifieldhlp tmpQlh = new qualifieldhlp(zRow, lIs.Indexes);
qldList.Add(tmpQlh);
}
IndStatus indSt = new IndStatus();
foreach (qualifieldhlp tmpQfh in qldList)
{
if (tmpQfh.indexStrings != null)
{
//obs under development
indSt.handleStatus(tmpQfh.indexStrings);
for (int i = 0; i < indSt.Returns; i++)
{
fromToMoves.CodeShower.Text += "END-PERFORM" + "\r\n";
}
if (indSt.NewInds != null)
{
foreach (string indTxt in indSt.NewInds)
{
fromToMoves.CodeShower.Text += "PERFORM VARYING " + indTxt + " FROM 1 BY 1 UNTIL ??? " + "\r\n";
}
}
//obs under development
fromToMoves.CodeShower.Text += "MOVE " + tmpQfh.ToString();
fromToMoves.CodeShower.Text += "TO " + tmpQfh.ToExpString();
}