
  VAR
    clv$open_pos_in_handle: [READ]
          array [amt$open_position] of char := [
{ AMC$OPEN_NO_POSITIONING } 'A',
{ AMC$OPEN_AT_BOI         } 'B',
{ AMC$OPEN_AT_BOP         } 'A',
{ AMC$OPEN_AT_EOI         } 'E'];


