Add warning for external variable

charleso · Jul 31, 2009 · cc43279 · cc43279
1 parent 27a405f
commit cc43279
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/NacaTrans/src/parser/Cobol/elements/CWorkingEntry.java b/NacaTrans/src/parser/Cobol/elements/CWorkingEntry.java
@@ -367,6 +367,15 @@ else if (tokPic.GetKeyword() == CCobolKeywordList.BLANK)
 					m_BlankWhenValue = ReadTerminal() ;
 				}
 			}
+			else if (tokPic.GetKeyword() == CCobolKeywordList.IS)
+			{
+				bNext = false ;
+				if(GetNext().GetKeyword() == CCobolKeywordList.EXTERNAL)
+				{
+					Transcoder.logWarn(getLine(), "External variable not supported");
+					GetNext();
+				}
+			}
 			else if (tokPic.IsKeyword() && tokPic.GetKeyword()==CCobolKeywordList.OCCURS)
 			{
 				bNext = true ;