  PROCEDURE [INLINE] fmi$put_job_routing_label
    (    job_label_size: jmt$system_label_info_length;
         route_info: ^SEQ ( * );
     VAR cycle_description: ^fmt$cycle_description;
     VAR status: ost$status);

    ALLOCATE cycle_description^.job_routing_label:
          [[REP job_label_size OF cell]] IN osv$job_pageable_heap^;
    IF cycle_description^.job_routing_label = NIL THEN
      osp$set_status_abnormal (amc$access_method_id, ose$job_pageable_full,
            'JOB PAGEABLE FULL in put_job_routing_label', status);
      RETURN; {----->
    IFEND;
    cycle_description^.job_routing_label^ := route_info^;
    cycle_description^.job_routing_label_length := job_label_size;

  PROCEND fmi$put_job_routing_label;

?? PUSH (LISTEXT := ON) ??
*copyc jmt$system_label_info_length
*copyc fmt$cycle_description
*copyc ose$heap_full_exceptions
*copyc osp$set_status_abnormal
*copyc ost$status
*copyc osv$job_pageable_heap
?? POP ??

