HP3000-L Archives

October 2002, 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: Deleting All But The Last n Names in a Fileset
From:
David N Lukenbill <[log in to unmask]>
Reply To:
David N Lukenbill <[log in to unmask]>
Date:
Wed, 30 Oct 2002 11:24:08 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (122 lines) 
I think Tracy is right about that.

   %BUILD LAST3;REC=-80,,F,ASCII;DISC=3;CIR
   %FILE LAST3,OLD;ACC=APPEND
   %LISTF FILE@,6;NOPAGEHEAD > *LAST3
   %RESET LAST3
   %PURGE FILE@-^LAST3;YES

David N. Lukenbill
Computer Sciences Corporation





                    "Johnson,
                    Tracy"               To:     [log in to unmask]
                    <Tracy.Johnso        cc:
                    n                    Subject:     Re: [HP3000-L] Deleting All But The Last n Names in a Fileset
                    @MSIUSA.COM>
                    Sent by:
                    HP-3000
                    Systems
                    Discussion
                    <HP3000-L


                    02/10/30
                    09:05 AM
                    Please
                    respond to
                    "Johnson,
                    Tracy"






This sounds like it would purge the last 3 files,
instead of retaining them.

BT
NNNN
Tracy Johnson
MSI Schaevitz Sensors

> -----Original Message-----
> From: Tom of Bunyon [mailto:[log in to unmask]]
> Sent: Wednesday, October 30, 2002 1:47 AM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] Deleting All But The Last n Names in a Fileset
>
>
> Write the names to a circular file with just enough room for
> three records.
> When done, this file will only contain the last three file names:
>
>
>    %BUILD LAST3;REC=-80,3,F,ASCII;DISC=3;CIR
>    %FILE O=LAST3,OLD;ACC=OUT
>    %LISTF FILE###+FILE???,6;*O
>    %REPEAT
>    %  YESPURGE ![R]
>    %FORRECS R=LAST3,OLD
>
>
> "Larry Barnes" <[log in to unmask]> wrote in message
> news:3dbebb70$3@skycache-news.fidnet.com...
> > Try:
> >
> > PURGE FILE0##
> > PURGE FILEA##
> >
> > -----Original Message-----
> > From: Johnson, Tracy [mailto:[log in to unmask]]
> > Sent: Tuesday, October 29, 2002 8:38 AM
> > To: [log in to unmask]
> > Subject: [HP3000-L] Deleting All But The Last n Names in a Fileset
> >
> >
> > I'm looking for an elegant way to PURGE all
> > but the last 'n' files in a fileset?
> >
> > FILE001  <---- want to purge this.
> > FILE002  <---- want to purge this.
> > FILE003  <---- want to purge this.
> > FILE010  <---- want to purge this.
> > FILEA00  <---- want to purge this.
> > FILEXYZ  <---- want to keep this.
> > FILEXZZ  <---- want to keep this.
> > FILEZZZ  <---- want to keep this.
> >
> >
> > I know I could read a LISTF into a file and
> > manipulate the filenames into a JOB stream
> > for PURGEing.  (It just doesn't seem elegant.)
> >
> > MPEX is available.
> >
> > BT
> > NNNN
> > Tracy Johnson
> > MSI Schaevitz Sensors
> >
> > * To join/leave the list, search archives, change list settings, *
> > * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> >
> > * To join/leave the list, search archives, change list settings, *
> > * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> >
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.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