HP3000-L Archives

June 1999, Week 3

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:
Tim Ericson <[log in to unmask]>
Reply To:
Tim Ericson <[log in to unmask]>
Date:
Wed, 16 Jun 1999 10:48:00 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (46 lines)
Hello everyone!

Arthur Frank wrote:
>
> 1.  Is there a way I could use FINFO to determine whether or not
> a file that exists (returns TRUE from FINFO("filename",0)) is a
> temp file or permanent file?

From http://www.denkor.com/hp3000/command_files/:

http://www.denkor.com/hp3000/command_files/XEQs/fdomain.txt

PARM file
# FDOMAIN.XEQ - DISPLAY A FILE'S DOMAIN.
# Tim Ericson, Leonard S. Berkowitz & Paul Gobes
IF FINFO ("!file","EXISTS") THEN
    IF (FINFO ("!file","FOPTIONS") ) BAND 2 = 2 THEN
        ECHO !file is TEMPORARY
    ELSEIF (FINFO ("!file","FOPTIONS") ) BAND 1 = 1 THEN
        ECHO !file is PERMANENT
    ENDIF
ELSE
    ECHO !file does not exist.
ENDIF

> 2.  Is there some way I could make a temporary file permanent
> *without* SAVEing it  (i.e. can I copy the temp file to a
> permanent file, leaving the temp file alone)?

:COPY TEMPFILE NEWFILE
:SAVE NEWFILE

hth!

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HP3000s since 1983!      Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+

ATOM RSS1 RSS2