host_id

host_id 
      ::= 
      ada_host_id 
      | c_host_id 
      | cobol_host_id 
      | fortran_host_id 
      | mumps_host_id 
      | pascal_host_id 
      | pl1_host_id

[rule list]

This rule is called by

-> embdd_variable_name