HP3000-L Archives

December 2023, 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: multiple rename / move of files
From:
"Keven Miller (3kG)" <[log in to unmask]>
Reply To:
Keven Miller (3kG)
Date:
Tue, 19 Dec 2023 14:41:05 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (85 lines) 
I wrote this script long ago.

Fox 26:print rengroup.cmd.lab
PARM FILESET, NEWGRP, LEVEL=0

IF !LEVEL=0 THEN
   LISTF !FILESET,6 >LST
   !HPFILE !FILESET, !NEWGRP, 1 <LST
   PURGE LST,TEMP
ELSEIF !LEVEL=1 THEN
   SETVAR DONE FALSE
   SETVAR CNT  0
   WHILE NOT DONE DO
      SETJCW CIERROR=0
      CONTINUE
      INPUT FILE >$NULL
      IF CIERROR <> 0 THEN
         SETVAR DONE TRUE
      ELSE
         SETVAR F FINFO ( FILE, "FNAME" )
         SETVAR A FINFO ( FILE, "ACCOUNT" )
         SETVAR G UPS ( "!NEWGRP" )
         SETJCW CIERROR=0
         IF FINFO ( "!FILE", "VOLUME SET NAME" ) =  &
            FINFO ( "/!A/!G", "VOLUME SET NAME" )   &
         THEN
(24/42) Continue?
            CONTINUE
            RENAME !FILE,!F.!G.!A
         ELSE
            CONTINUE
            COPY !FILE,!F.!G.!A
            IF CIERROR = 0 THEN
               PURGE !FILE
            ENDIF
         ENDIF
         IF CIERROR <> 0 THEN
            SETVAR DONE TRUE
         ELSE
            SETVAR CNT CNT+1
         ENDIF
      ENDIF
   ENDWHILE
   ECHO !CNT files moved to !G.!A
   DELETEVAR DONE, FILE, A, F, CNT, G
ENDIF



:rengroup [log in to unmask], oldlogs


Keven Miller


----- Original Message ----- 
From: "James B. Byrne" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tue 19 Dec 2023 02:35 PM
Subject: [HP3000-L] multiple rename / move of files


>I wish to move a group of similarly named files "LOG9999" from the PUB.SYS
> group to the OLDLOGS.SYS group.  Is the a way to do this without doing 
> each
> file by hand or writing a cli script?
>
> -- 
> ***          e-Mail is NOT a SECURE channel          ***
>        Do NOT transmit sensitive data via e-Mail
>   Unencrypted messages have no legal claim to privacy
> Do NOT open attachments nor follow links sent by e-Mail
>
> James B. Byrne                mailto:[log in to unmask]
> Harte & Lyne Limited          http://www.harte-lyne.ca
> 9 Brockley Drive              vox: +1 905 561 1241
> Hamilton, Ontario             fax: +1 905 561 0757
> Canada  L8E 3C3
>
> * 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