HP3000-L Archives

November 2005, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Stan Sieler <[log in to unmask]>
Reply To:
Stan Sieler <[log in to unmask]>
Date:
Thu, 3 Nov 2005 16:28:56 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (39 lines)
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 *

ATOM RSS1 RSS2