HP3000-L Archives

November 2013, 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:
Re: Mpe: Delete all but last 5 records
From:
Barry Lake <[log in to unmask]>
Reply To:
Barry Lake <[log in to unmask]>
Date:
Tue, 19 Nov 2013 07:35:04 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (90 lines) 
On 11/19/13 7:17 AM, Chuck Lowe wrote:
> I was wondering if anyone has a routine either in JCL or MPEX that will keep the last 5 instances of these files.
>
> The 2 file naming conventions are
>
> PT###### and PL######
>
> The ###### represent MMDDHH (month, day, hour). As I said in this case the time frame is not an issue. Keeping the last 5 versions is what I need to do.



Very simple if you're willing to use the POSIX shell. If this needs to 
be done with CI scripting, it's certainly possible, but way more 
complicated. Someone else (Donna?) may chime in with an "entry point" 
command file to do this in "pure" MPE. But here's the shell method:




/BARRY/PUB $ for x in 111510 111512 111514 111523 111601 111619 111705 
111722 ;
do
> touch PT$x
> done
/BARRY/PUB $ callci listfile PT@,2
  PATH= /BARRY/PUB/

  CODE  ------------LOGICAL RECORD-----------  ----SPACE----  FILENAME
          SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

            1B  BA           0 2147483647   1        0  0  *  PT111510
            1B  BA           0 2147483647   1        0  0  *  PT111512
            1B  BA           0 2147483647   1        0  0  *  PT111514
            1B  BA           0 2147483647   1        0  0  *  PT111523
            1B  BA           0 2147483647   1        0  0  *  PT111601
            1B  BA           0 2147483647   1        0  0  *  PT111619
            1B  BA           0 2147483647   1        0  0  *  PT111705
            1B  BA           0 2147483647   1        0  0  *  PT111722


/BARRY/PUB $ callci listfile PT@,6
  /BARRY/PUB/PT111510
  /BARRY/PUB/PT111512
  /BARRY/PUB/PT111514
  /BARRY/PUB/PT111523
  /BARRY/PUB/PT111601
  /BARRY/PUB/PT111619
  /BARRY/PUB/PT111705
  /BARRY/PUB/PT111722
/BARRY/PUB $ callci listfile PT@,6 | tail -5
  /BARRY/PUB/PT111523
  /BARRY/PUB/PT111601
  /BARRY/PUB/PT111619
  /BARRY/PUB/PT111705
  /BARRY/PUB/PT111722
/BARRY/PUB $
/BARRY/PUB $ mkdir save
/BARRY/PUB $ for x in $(callci listfile PT@,6 | tail -5) ; do
> mv $x save
> done
/BARRY/PUB $ ll save
total 0
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111523
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111601
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111619
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111705
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111722
/BARRY/PUB $ ll PT*
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111510
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111512
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111514
/BARRY/PUB $ rm PT*
/BARRY/PUB $ mv save/PT* .
/BARRY/PUB $ ll PT*
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111523
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111601
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111619
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111705
-rw-rw----   1 MGR.BARRY         BARRY          0 Nov 19 07:24 PT111722
/BARRY/PUB $


So... move the last 5 out of the way, delete whatever's left, then move 
the 5 back into place.

Barry

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

ATOM RSS1 RSS2