DEC Ada Question

DEC Ada Question

[Ken Garlington]

I'm using DEC Ada on VAX/VMS, and I have a problem with SEQUENTIAL_MIXED_IO.
I'm reading and writing a sequential binary file with fixed 512-byte records
(an executable image in Tartan Object File Format.) I can read the file fine,
and I can write a TOFF file OK, except for one small problem: The Tartan tools
that read/write TOFF files expect the end-of-file mark to point to the byte
immediately after the last significant data item in the last physical record.
As a consequence, the EOF mark may point anywhere within the last record, or
immediately after the last byte of the last record. However,
SEQUENTIAL_MIXED_IO _always_ places the EOF mark immediately after the last
byte of the last record. How can I change this behavior? I suspect I will have
to do some kind of RMS call to make this happen, but I can't find the solution
in any of the DEC manuals, so any help would be much appreciated.