anchor.diff:      ;
   
   procedure_spec
  -    : PROCEDURE procedure_name ('(' parameter ( ',' parameter )* ')')? ';' 
  +    : PROCEDURE identifier ('(' parameter ( ',' parameter )* ')')? ';' 
       ;
   
   function_spec
  -    : FUNCTION function_name ('(' parameter ( ',' parameter)* ')')? RETURN type_spec (DETERMINISTIC)? (RESULT_CACHE)? ';' 
  +    : FUNCTION identifier ('(' parameter ( ',' parameter)* ')')? RETURN type_spec (DETERMINISTIC)? (RESULT_CACHE)? ';' 
       ;
   
   package_obj_body
  
positive.code:     | create_function_body
      | create_procedure_body
      | create_package
  
  //  | create_index //TODO
  //  | create_table //TODO
  
negative.code:     ;
  
  exception_declaration 
      : identifier EXCEPTION ';'
      ;
  
  pragma_declaration
  