  PROCEDURE [INLINE] dfp$complement_gfn
    (    gfn: ost$binary_unique_name;
     VAR complemented_gfn: ost$binary_unique_name);

    complemented_gfn := gfn;
    complemented_gfn.year := gfn.year + 15;
    IF gfn.sequence_number = UPPERVALUE (gfn.sequence_number) THEN
      complemented_gfn.sequence_number := LOWERVALUE (gfn.sequence_number);
    ELSE
      complemented_gfn.sequence_number := gfn.sequence_number + 1;
    IFEND;
  PROCEND dfp$complement_gfn;
?? PUSH (LISTEXT := ON) ??
*copyc osd$unique_name
?? POP ??
