Re:
> You can't FOPEN an existing #I file.
...
> You have to call HPFOPEN, foptions = 0, aoptions = %300 (usually),
> and specify the correct privlevel.
Argh! Typo! foptions of 0 is what you should NOT use ... that
opens a new file, not an old file!
And, of course, one doesn't simply pass "foptions" or "aoptions" in
to HPFOPEN :)
double array
ints (0 : 9);
...
for inx := 0 until 9 do
ints (inx) := inx;
...
move filename' := "-I2.IN.HPSPOOL-";
getprivmode;
hpfopen (fid32, status,
2, filename', ! filename
3, ints (3), ! domain 3 = old
13, ints (3), ! exc = SHR
38, ints (2)); ! FILEPRIV
Sorry 'bout that!
Stan
--
Stan Sieler
[log in to unmask]
www.allegro.com/sieler/wanted/index.html
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|