
  VAR
    clv$open_position_designator: [XREF, READ] array [amt$open_position] of
          record
      size: 4 .. 5,
      value: string (5),
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc amt$open_position
?? POP ??
