HP3000-L Archives

July 1998, Week 5

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:
Re: temp or perm file?
From:
Jeff Vance <[log in to unmask]>
Reply To:
Jeff Vance <[log in to unmask]>
Date:
Wed, 29 Jul 1998 10:55:37 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (27 lines) 
On Jul 29,  8:21am, Leonard Berkowitz wrote:
...
> IF FINFO ("file","EXISTS") THEN
>     IF (FINFO ("file","FOPTIONS") ) BAND 2 = 2 THEN
>         PURGE file,TEMP
>     ENDIF
> ENDIF
> IF FINFO ("file","EXISTS") THEN
>     IF (FINFO ("file","FOPTIONS") ) BAND 1 = 1 THEN
>         PURGE file
>     ENDIF
> ENDIF

Less elegant:

  PURGE !file ;temp >$null
  PURGE !file       >$null
  ERRCLEAR

If the file doesn't exist you get a warning (sent to $null) so there
is no need for a CONTINUE.

Jeff Vance, CSY
(note the semicolon before "temp")

--

ATOM RSS1 RSS2