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:
Randy Medd <[log in to unmask]>
Reply To:
Randy Medd <[log in to unmask]>
Date:
Wed, 2 Nov 2005 08:15:56 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (64 lines)
Brian Donaldson wrote:
 
> Finally, I tried zeroes in the foptions and %300 in the aoptions and
> ouila(!) -- success, the file opened successfully!

I may be a bit out of practice, but an FOPTIONS value of all zeros
specifies a new file, _not_ a previously existing file.  The AOPTIONS
value of %300 (specifying shared read access) won't really matter
given that we're not opening the old file.

I'll _bet_ this works for all file types - it should.  The trick will
be in attempting to read the file, which should return a quick EOF.

To the best of my recollection, one can't open these files with FOPEN.
I've done what Brian's trying to do (opening an input HPSPOOL file)
using HPFOPEN, in SPLash!:

   ...
   EQUATE
      HPFOPEN'FORMAL'DESIG = 2,
      HPFOPEN'DOMAIN       = 3,
      HPFOPEN'CCTL         = 7,
      HPFOPEN'DFEQ         = 9,
      HPFOPEN'COPY         = 17,
      HPFOPEN'ASCII        = 53;
   DOUBLE
      D'FILE'NUM:=0D,
      D'ERR'NUM:=0D,
      D'YES:=1D,
      D'PERM:=1D;
   BYTE ARRAY
      B'FILE'NAME(0:41);
   ...
   MOVE B'FILE'NAME:="_I123.IN.HPSPOOL_";
   GETPRIVMODE;
   HPFOPEN(D'FILE'NUM, D'ERR'NUM,
           [32/HPFOPEN'FORMAL'DESIG]D, B'FILE'NAME,
           [32/HPFOPEN'DFEQ]D, D'YES,
           [32/HPFOPEN'CCTL]D, D'YES,
           [32/HPFOPEN'ASCII]D, D'YES,
           [32/HPFOPEN'DOMAIN]D, D'PERM,
           [32/HPFOPEN'COPY]D, D'YES);
   GETUSERMODE;
   ...

Oh, and I believe you'll need either SM or OP capability to do this,
too.

-- 
--------------------------
Randy Medd
CalAmp Solutions, Inc.
492 Ninth Street, Suite 310
Oakland, CA 94607-4098
Email: [log in to unmask]
510.987.7700 main
510.903.4065 direct
510.987.7009 fax
www.calamp.com
www.telalert.com 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2