
  VAR
    bav$rms_library_reference: [XREF] record
      entry_point: pmt$program_name,
      object_library: string (33),
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc pmt$program_name
?? POP ??
