HP3000-L Archives

October 1996, 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:
Reply To:
Date:
Thu, 3 Oct 1996 01:16:33 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (76 lines)
> Anyone have any opinions on renaming an account?
> Can this be done?
>
> I'm spending lots of time storing & purging; only to restore to a different
> account.
>
> Rich (not quite too much time on my hands) Trapp
> [log in to unmask]
>

starting with mpe/ix 5.0 (c.50.00) you can rename files across account
boundaries.

e.g. rename a.b.c,x.y.z

sure, nonprivileged files only.

sample commandfile (needs improvement and corrections !!!):

parm _source = ' '
parm _target
SETVAR HPAUTOCONT TRUE
continue
purge msgfile,temp  > $null
BUILD msgfile;temp;msg;rec=-80,,f,ascii;disc=80000
FILE msgfile=msgfile,oldtemp
LISTF !_source,6 > *msgfile
SETVAR HPCIERR 0
setvar _xcmd ' '
setvar _l1 0
setvar _nrecs finfo ('msgfile','eof')
WHILE _nrecs > 0  DO
   setvar _nrecs _nrecs - 1
   input _fn1f < msgfile
   setvar _p1 pos('.',_fn1f,1)
   setvar _p2 pos('.',_fn1f,2)
   setvar _p3 pos(' ',_fn1f,1)
   setvar _fn1 lft(_fn1f,pos('.',_fn1f,1)-1)
   setvar _gn1 str(_fn1f,_p1+1,_p2-_p1-1)
   setvar _an1 str(_fn1f,_p2+1,_p3-_p2-1)
   setvar _p1 pos('.','!_target',1)
   setvar _p2 pos(' ','!_target ',1)
   if _p1 = 0
      setvar _gn2 _gn1
   else
      setvar _gn2 str('!_target',1,_p1-1)
   endif
   setvar _an2 str('!_target',_p1+1,_p2-_p1-1)
     setvar hpcierror 0
     setvar _l1 pos(' ',_fn1f,1)-1
     setvar _xcmd 'rename '+str(_fn1f,1,_l1) +    &
                    ','+_fn1 + '.'+_gn2+'.'+_an2
     !_xcmd
     if hpcierr <> 0
        setvar _fn1f str(_fn1f,1,26)
        echo !_xcmd failed
     endif
ENDWHILE
purge msgfile,temp
reset msgfile
deletevar _nrecs
deletevar _xcmd
deletevar _fn1
deletevar _fn1f
deletevar _l1
deletevar _p1
deletevar _p2
deletevar _p3
deletevar _gn1
deletevar _an1
deletevar _gn2
deletevar _an2
SETVAR HPAUTOCONT FALSE

speaking for woki only, not for hp or anyone else

ATOM RSS1 RSS2