Conference iosg::all-in-1

2586.0. "Can't move ONE account" by DECBAH::SCONETTI () Tue Mar 25 1997 12:10

    hereafter the error massage during an MDK option. I have only one
    account with this error. 
    
    Thanks for  support, Thierry
    
$!
$! This command procedure is always run when anybody on the entire system
$! logs in. It is equivalent to LOGIN.COM except that the instructions
$! contained herein are executed everytime anyone on the VMS system
$! logs in to their account.
$!
$! For interactive processes, turn on Control T.  Set the terminal type
$! unless this is a detached DECwindows application or a remote session.
$!
$ MODE = F$MODE()
$ IF MODE .NES. "INTERACTIVE" THEN GOTO NON_INTERACTIVE
$NON_INTERACTIVE:
$!
$! For MicroVAX systems only, use the command MOUNT/NOASSIST.
$!
$ IF (.NOT. F$TRNLNM("SYS$MICROVAX")) THEN GOTO SKIP_MICROVAX_COMMANDS
$ MOU*NT :== MOUNT/NOASSIST
$SKIP_MICROVAX_COMMANDS:
$!
$! Place your site-specific LOGIN commands below
$!
$ SET TER/VT100
%SET-W-NOTSET, error modifying DSA1:
-CLI-E-IVDEVTYPE, invalid device type - specify a mailbox device
$ DPLNS :== @dsa1:[dplns.com]dPLNS_APPLICATION.COM
@SYS$MANAGER:SLS$TAPSYMBOL
$!*  COPYRIGHT (c) 1992 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS.
$!
$!
$! Make an identifier to uniquely define files
$!
$	tag = f$getjpi("","PID")
$	full_success = "1"
$!	
$	admin_id		= P1
$	new_device		= P2 - ":" + ":"
$	data_file		= P3
$	admin_language		= P4 
$	sm_mgr_account_a1	= P5
$!
$! Store current directory
$!
$	save_default = f$environment("DEFAULT")
$!
$! Set Privileges
$!
$! Needs OPER priv to permit sending 'broadcast'messages to the Administrator.
$!
$! Needs SYSNAM privilege to DEFINE executive mode logical names.
$!
$	priv_error = 0
$       curr_priv := READALL,SYSPRV,EXQUOTA,OPER,SYSNAM
$ 	if .not. f$privilege("READALL,SYSPRV,EXQUOTA,OPER,SYSNAM") then -
          priv_error = 1
$!
$	allin1/user=MANAGER/noinit/reenter/language=ENGLISH
	oa$ini_init

%OA-I-COPYRIGHT, � Digital Equipment Corporation 1994. All rights reserved.
	do oa$lib:sm_movedisk
Get the next account
Starting to process ALL-IN-1 username JABERI.AYDA
Disable the VMS account
Check for several ALL-IN-1 accounts sharing a VMS account
VMS account is NOT shared
Check the UAF directory has been set correctly
Compare first element of profile with first of UAF directory
Make spec for moving directories from the UAF entry
Examine quota on source disk
Quota located on source disk
Number of blocks used by account =       9676
Examine quota on destination disk
Make sure drawer files are not locked by anything else...
Use BACKUP to move users files to the new disk
Failed to move that account
Get the next account
All user accounts processed
Build mail boilerplate
Issue mail to Administrator
%EMD-I-USESEND, Send this message when you are ready
%EMD-I-MESSENT, The message has been sent
%EMD-I-PUTINWB, 1 message placed in your Wastebasket
$!
$	if full_success .eqs. "1" then goto finish
$finish:
$	set process/privilege=(READALL,SYSPRV,EXQUOTA,OPER,SYSNAM)
$	set default DISK$USER1:[ALLIN1]
$	save_verify = f$verify(save_verify)
  ALLIN1       job terminated at 25-MAR-1997 13:53:10.06

  Accounting information:
  Buffered I/O count:             474         Peak working set size:    3704
  Direct I/O count:               261         Peak page file size:     27133
  Page faults:                   5465         Mounted volumes:             0
  Charged CPU time:           0 00:00:04.03   Elapsed time:     0 00:01:27.54
    

    There have been considerable changes to movedisk in recent years. By
    the amount and helpfulness of output to the logfile, this looks like an
    early version of ALL-IN-1. Could you tell us the version please? 
    This is one script that you may well be able to replace with a later,
    more reliable version, without upgrading.                       
    
    If you don't want to do this, you need to set trace in sm_movedisk.scp
    to find out more clearly why the job is failing. I can tell you already
    that the place it is failing is in the $BACKUP command that copies the
    files from the source to the destination directory, but we need to trap
    the DCL status that comes out of that command.
    
    DaveT
    

    Dave,
    
    I am using ALL-IN-1 version 3.1 VMS 6.1
    Why do I have this error with this account, only ????
    
    Regards, Thierry

    problem solved by using the V3.2 script.
    davet