[Info-vax] Moving UAF records from Cluster to Cluster

[Thomas Wirt]

On 7/26/2011 1:42 PM, Gotfryd Smolik wrote:
> On Tue, 26 Jul 2011, Thomas Wirt wrote:
>
>> I am migrating from a VMS Alpha cluster to a new VMS IA64 cluster. I
>> would like to be able to move individual accounts/records from one
>> cluster to the other. Is there a tool that would allow me to move or
>> export/import a user
>
> Sure.
> Carefully used EDIT and CONVERT/MERGE (see further).
>
> But... ONE user?
> Copy the old UAF and:
>
> $ open in OLDUAF.DAT
> $ open/read/write/share=write out SYSUAF ! if logical exists
> $! or SYS$SYSTEM:SYSUAF.DAT or in the "proper" location, if other
> $ read in/index=0/key=SYSTEM record
> $ show symbol record
> $! and for the expected username:
> $ read in/index=0/key=the_username record
> $ write/symbol out line
>
> At end:
> $ close in
> $ close out
>
> For tens of records you may preselect data with "something",
> including:
>
> $ SEARCH OLDUAF.DAT "the ",wanted,names/form=passall/out=sel.tmp
> review, b.ex. with SEARCH sel.tmp/form=nonull "", and further
> "load" with a:
> $ CONVERT/MERGE sel.tmp SYSUAF
>
> You can even EDIT/TPU the old sysuaf, the saved output will
> be of course a "flat" (sequential) file, but that is perfect
> for CONVERT/MERGE. Be aware, not modify anything, except
> deleting whole line(s).
> Have hope you know what is "system password" record :D
> (and delete it of course from the "moved" list)
>
> Of course, you are aware that the *identifiers* (including
> the granting list) are saved separatelly?
>
> Best regards, Gotfryd
> (years ago here ;))

This was very helpful!  Using this I have written a couple of scripts to 
do this and the rights for a user.

$!UAF.com
$ if p1 .eqs. "" then exit
$ open in testUAF.DAT
$! open/read/write/share=write out adduaf.dat ! if logical exists
$ open/read/write/share=write out sysuaf ! if logical exists
$! or SYS$SYSTEM:SYSUAF.DAT or in the "proper" location, if other
$! read in/index=0/key=SYSTEM record
$! show symbol record
$!exit
$! and for the expected username:
$ read in/index=0/key='p1' record
$! write/symbol sys$output line
$ write/symbol out record
$ close in
$ close out

$! Rights.com
$ if p1 .eqs. "" then exit
$ open in test_RIGHTSLIST.DAT
$ open/read/write/share=write out RIGHTSLIST ! if logical exists
$! or SYS$SYSTEM:SYSUAF.DAT or in the "proper" location, if other
$! read in/index=2/key=SCHED_PROD record
$! show symbol record
$!goto end
$! and for the expected username:
$ read in/index=2/key='p1' record
$ show symbol record
$! write/symbol sys$output record
$ write/symbol out record
$end:
$ close in
$ close out

Thanks for the help.
-- 

Thomas Wirt
Operations Manager, IS Dept.
Kittle's Home Furnishings
Indianapolis, IN