{ ROUTE_FILE
{
{     The purpose of this procedure is to provide a means by which
{ a CYBIL procedure can route a local file to a system queue.
{
{           ROUTE_FILE (QUEUE_TYPE,LOCAL_FILE_INFO,QUEUE_FILE_INFO,ROUTE_STATUS)
{
{ QUEUE_TYPE: (input) This parameter specifies the destination queue
{             to which the file is to be routed.
{
{ LOCAL_FILE_INFO: (input) This parameter specifies all information
{                  pertinent to local file access.
{
{ QUEUE_FILE_INFO: (input) This parameter communicates all queue file
{                  attributes needed for IRHF routing.
{
{ ROUTE_STATUS: (output) This parameter indicates to the calling
{               procedure the completion status of the route function,
{               i.e. the success or failure of the route.  The
{               following status values may be returned by this
{               request:     unsuccessful
{                            successful
{

 PROCEDURE[XREF] route_file(
   exec_type: rht$irhf_exec_types;
   VAR local_file_info: rht$local_file_info;
   queue_file_info: rht$queue_file_info;
   VAR route_status: rht$function_status);

 PROCEDURE [XREF] request_queue_device ALIAS 'rhprqd' ( lfn: integer);

?? PUSH (LISTEXT := ON) ??
*copyc RHT$FUNCTION_STATUS
?? POP ??
