  PROCEDURE [INLINE] dfp$assign_terminated_gfn
    (    complemented_gfn: ost$binary_unique_name;
     VAR terminated_gfn: ost$binary_unique_name);

    terminated_gfn := complemented_gfn;
    terminated_gfn.serial_number := UPPERVALUE(terminated_gfn.serial_number);
    terminated_gfn.model_number := UPPERVALUE(terminated_gfn.model_number);
  PROCEND dfp$assign_terminated_gfn;
?? PUSH (LISTEXT := ON) ??
*copyc ost$binary_unique_name
?? POP ??

