> 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
|