HP3000-L Archives

February 1995, 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:
"Paul H. Christidis" <[log in to unmask]>
Reply To:
Date:
Thu, 2 Feb 1995 14:38:10 PST
Content-Type:
text/plain
Parts/Attachments:
text/plain (65 lines)
Sorry for re-posting this, but I'm still having problems with replying to
the list
 
 
>Subject: Purge PRIV Files
>Author:  Kostas Hairopoulos <[log in to unmask]> at CCGATE
>Date:    2/1/1995 5:08 AM
 
 
>I am trying to purge a stand alone PRIV file. Could someone please
>remind me the correct file equation and command syntax to do this?
>There must be a couple of ways (Store, Fcopy etc.)
 
 
>Thank's in advance,
>K. Hairopoulos
>Software Engineer
>[log in to unmask]
 
Kosta try the following:
 
1. Use listf -3 on the file to find out the actual value of the 'PRIV'
   file code.
        :LISTF I0038,-3
        ********************
        FILE: I0038.DATA....
 
        FILE CODE : -400                FOPTIONS: BINARY,FIXED....
        BLK FACTOR: 1                   CREATOR : MGR
        ...
 
        VOLCLASS  : MPEXL_SYSTEM_VOLUME_SET:DISC
 
2. Issue a file equation such as:
        FILE A=I0038;DEL
 
3. Using the following DSCOPY syntax (an error will occur but the file
        will be deleted):
 
        DSCOPY *A;$NULL;FCODE=-400
 
        :DSCOPY *A;$NULL;FCODE=-400
          Source file: I0038.DATA.....
          Target file: $NULL
          UNABLE TO ACCESS TARGET FILE/DEVICE.  (NS/NFTERR 48)
 
          END OF SUBSYSTEM
        :LF I0@,2
         LISTF I0@,2
         NO FILES FOUND IN FILE-SET (CIWARN 431)
 
There is also a way by using 'DBDRIVER.PUB.SYS' but I cannot remember at
the moment how. (I think though that DBDRIVER can only purge what are
referred as image 'I' files).
 
Regards
 
===================== [log in to unmask] =====================
|   .--.---. .--.                       |                             |
|      /   )/   ) Paul H. Christidis    | "I am not young enough to   |
|     /----/      Hughes Aircraft Co.   |  know everything"           |
|    /    /       (714) 732-7114        |  --J. M. Barrie             |
|.__/    (__.)                          |                             |
===================== [log in to unmask] =====================

ATOM RSS1 RSS2