{ Deck:  DFT$IMAGE_FILE_ID
{ This type describes the current image file position for this instance
{ of reference of the image file.

  TYPE
    dft$image_file_id = record
     { p_image_file points to the start of the file.
      p_image_file: ^SEQ ( * ),
      p_image_header: ^dft$image_header,
      operation: dft$image_file_operation,
      { p_current_block_header and p_current_block_seq are
      { initially NIL if reseting
      p_current_block_header: ^dft$image_block_header,
      p_current_block_seq: ^SEQ ( * {one client page} ),
      case client: boolean of
      = TRUE =
        local_file_name: amt$local_file_name,
        file_id: amt$file_identifier,
        p_current_eoi: ^cell,
        allocated_size: ost$segment_length,
      = FALSE { server } =
        { On the server mainframe the image is received from the client
        { into a scratch segment.
        ,
      casend,
    recend;

*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc dft$image_file
*copyc dft$image_file_id
*copyc osd$virtual_address
