
{ COMMON DECK FMDTTI }

  CONST
    fmc$number_of_tapes = 16;

  TYPE
    fmt$tape_transfer_info = array [1 .. fmc$number_of_tapes] of
          fmt$tape_transfer_entry;

  TYPE
    fmt$tape_transfer_entry = record
      sfid: gft$system_file_identifier,
      vsn: rmt$external_vsn,
      flag1: boolean,
      flag2: boolean,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc rmd$volume_declarations
?? POP ??
