lexer prioritizes data item names over function names

gcc/cobol/scan.l

@@ -1737,7 +1737,9 @@ COPY		{
                   ydflval.string = yylval.string = strdup(yytext);
 
                   int token = keyword_tok(null_trim(yylval.string), true);
-                  if( token ) {
+		  auto elem = symbol_field(PROGRAM, 0, yylval.string);
+
+                  if( token && ! elem ) { // not a data item name
                     // If token is an intrinsic, and not in Repository, pretend
                     // it's a name and let the parser sort it out.
                     auto name = intrinsic_function_name(token);