  PROCEDURE [INLINE] dfp$uncomplement_gfn
    (    gfn: ost$binary_unique_name;
     VAR uncomplemented_gfn: ost$binary_unique_name);

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