| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1544.1 | Checked with the source? | AIMTEC::WICKS_A | It wasn't supposed to end this way | Thu Oct 01 1992 20:01 | 8 |
| John,
Have you tried contacting the authors of MJU either directly or
via the European ASSETS centre?
Regards,
Andrew.D.Wicks
|
| 1544.2 | Further info/thoughts. | JOCKEY::63953::John-Boy | Glad that the Devil is Red !! | Fri Oct 02 1992 12:01 | 120 |
|
*** Yes - wondered if it was a more general error ***
Andy,
Re. -1. I have contacted Graziella and made her aware of this but I
wondered if it was something `generic' to CM if you get my drift.
It may also be tied in with a problem we had with MJU itself. The original
kit supplied was an English one which obviously failed to install on a
British V3.0 system. Graziella then built us a new kit for British and
it is this one that fails to install, giving the Diskquota problem
mentioned in .0 . One thing that I have asked Graziella for clarification
on is, when you do a backup/list of the .FGN file, it shows that some of the
kit was still pulled from English subdirectories (see end of note). The
problem this gave was when trying to restore, it prompted us for the
application logicals.
For ones such as OA$LIB_BRITISH this was OK as the transalation was supplied.
However, it also asked us for ones such as OA$LIB_ENGLISH which obviously
don't exist on the system so it wasn't clear what we should give as the
transalation. In the end we thought we would try and fool it by making it
the same transalation as for the OA$LIB_BRITISH logical. It didn't complain
- but it didn't work either !! This leads to a couple of further questions;
1. how does the restore application decide what logicals need to be defined
when restoring something as an application ?
2. one thing wwe tried was to unpack the saveset and manually re-build it but
when we did so and tried to restore this one, CM complained that it was
not a valid FGN file. So does storing an application actually put some
special info into the saveset as well.
Given all the above, it still seems to me that this diskquota error is
something more generic. From the list below you will see that VITARA is where
the kit was stored and its only mention is in the header info, so the fact that
some of the underlying directory structure may have been incorrect, I don't
think is relevant.
If anyone can help, I'd be mucho apprecioso.
Thanks,
John
_________________________________________________________________________
Listing of save set(s)
Save set: CM_OA_SAVESET.FGN
Written by: A1_VITARA
UIC: [000001,000014]
Date: 28-SEP-1992 18:20:36.33
Command: BACKUP/NOLOG/COMMENT=CM:V3.0:OA:SITE
VITARA$USER1:[ALLIN1V30_DEV.SITE.OA_STORE...]*.*;0 OA$TEMP:CM_OA_SAVESET.FGN/SAVE
Operating system: VAX/VMS version V5.5
BACKUP version: V5.5
CPU ID register: 0A000006
Node name: _VITARA::
Written on: _VITARA$DKB200:
Block size: 32256
Group size: 10
Buffer count: 17
[ALLIN1V30_DEV.SITE.OA_STORE]BRITISH.DIR;1 1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH]A1MSG.DIR;1 1 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.A1MSG]SITE$SM.A1$MSG;1
470 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH]DO.DIR;1 1 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.DO]SMREORG_JAN.SCP;1
20 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH]FRM.DIR;1 1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]EMPTY_WASTEBASKETS.FRM;1
8 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]SA$SKEDFORM$DEFAULT.FRM;1
9 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]SM_EW_SCHEDULE.FRM;1
6 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]SM_SKEDFORM_DEFAULT.FRM;1
12 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]SM_SKEDFORM_EW.FRM;1
15 28-SEP-1992 18:18
[ALLIN1V30_DEV.SITE.OA_STORE.BRITISH.FRM]SM_SKEDFORM_EW2.FRM;1
2 28-SEP-1992 18:18
[ALLIN1V30_DEV.SITE.OA_STORE]CM$APP.DAT;1 15 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE]CM$AUTH$LOCATIONS.DAT;1 27 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE]CM$ETYPES.DAT;1 147 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE]CM$MAF.DAT;1 33 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE]CM$SITELOG.DAT;1 321 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE]ENGLISH.DIR;1 1 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH]A1MSG.DIR;1 1 18-AUG-1992 17:50
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH.A1MSG]SITE$CM.A1$MSG;1
8 18-AUG-1992 17:50
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH]FRM.DIR;1 1 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH.FRM]CM$STORE$BASE$FIND.FRM;1
19 18-AUG-1992 17:31
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH.FRM]CM$STORE$BASE$OPTIONS.FRM;1
50 18-AUG-1992 17:55
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH.FRM]CM$STORE$SITE$FIND.FRM;1
17 18-AUG-1992 17:32
[ALLIN1V30_DEV.SITE.OA_STORE.ENGLISH.FRM]CM$STORE$SITE$OPTIONS.FRM;1
54 18-AUG-1992 17:55
[ALLIN1V30_DEV.SITE.OA_STORE]SHARE.DIR;1 1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE]BLP.DIR;1 1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.BLP]EW_CLEAN_FOLDER.BLP;1
1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.BLP]EW_CLEAN_FOLDER_BATCH.BLP;1
1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE]DO.DIR;1 1 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.DO]EW_CLEAN_FOLDER_REPORT.SCP;1
6 28-SEP-1992 18:16
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.DO]SMREORG.SCP;1 12 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.DO]SM_CLEAN_FOLDER.SCP;1
5 28-SEP-1992 18:17
[ALLIN1V30_DEV.SITE.OA_STORE.SHARE.DO]SM_SKEDSCRIPT_EW.SCP;1
13 28-SEP-1992 18:18
Total of 34 files, 1281 blocks
End of save set
|
| 1544.3 | Need BACKUP Comment! | IOSG::PYE | Graham - ALL-IN-1 Sorcerer's Apprentice | Fri Oct 02 1992 14:46 | 6 |
| Note the comment in the BACKUP header - The absence of this is what is
stopping CM restoring your rebuilt version:
BACKUP/NOLOG/COMMENT=CM:V3.0:OA:SITE
Graham
|
| 1544.4 | Problem found and fixed | SIOG::T_REDMOND | Thoughts of an Idle Mind | Fri Oct 02 1992 16:15 | 18 |
| OK. I see the problem.
The saveset was created on the CM development system. The problem came
into play because the storage area was populated with some other
elements left over after another package had been produced. The moral
of the story is to always use the DS option to delete the contents of
the storage area before packaging an application. That forces CM to
only create sub-directories for the elements (and thus areas) which you
want to package, rather than anything that's hanging around at the
time.
I have produced a new version of the saveset and sent ASSETS some mail
about it. I'll also contact the author of .0 off-line.
GAP's point in .3 about the /COMMENT is very important. CM uses the
backup comment to make sure that it knows that the saveset is OK.
Tony
|
| 1544.5 | 2 Backup COMMENTs | CESARE::EIJS | All in 1 Piece | Thu Oct 15 1992 13:20 | 15 |
|
Hi,
In addition to Graham's reply, there are 2 possible comments:
/COMMENT=CM:V3.0:OA:SITE
/COMMENT=CM:V3.0:OA:BASE
Depending on the type of elements your packaging it's using Site/Base.
Furtheron, the value 'OA' might vary depending on the application your
packaging.
Ciao,
Simon
|
| 1544.6 | Some questions regarding .0) | CESARE::EIJS | All in 1 Piece | Thu Oct 15 1992 14:21 | 25 |
|
Hi John,
A few questions:
1) What ALL-IN-1 version are you running (I assume V3.0, but which
BaseLevel)
2) Which ALL-IN-1 languages are installed
3) What is the value of CM$APP.SITEROOTCODE["OA"]
The reasons:
Re 1): We've had the problem you described but was fixed for BL122
(File CM_RESTORE_DISPLAY_DETAILS.SCP)
Re 2): The A1MJUV30_BRITISH.FGN is supposed to be restored under
ALL-IN-1/British, not any other language. If not, than that will
explain the fact it's asking you to define the logicals (MJU
uses existing logicals of the BRITISH application area)
Re 3): This information is temporarily used for definition of the
SITEROOTCODE.
Ciao,
Simon
|
| 1544.7 | Simon's still catching up with old topics | SIOG::T_REDMOND | Thoughts of an Idle Mind | Thu Oct 15 1992 18:09 | 13 |
| Simon,
The problem was caused by the inclusion of some ENGLISH language
elements in the original MJU/British saveset. This goes to show that
you should always delete the storage area before beginning to store
elements for an application. Because the saveset included the English
stuff CM looked for ENGLISH when it attempted to restore the
application.
After the saveset was rebuild (with CM) to include only BRITISH and
SHARE elements the problem went away...
Tony
|
| 1544.8 | Still interested in answer for question 1 | CESARE::EIJS | All in 1 Piece | Fri Oct 16 1992 17:29 | 18 |
| 1544.9 | I got the same unexpected quota problem | TAKEOF::ERNI | Ursula Erni | Tue Dec 08 1992 18:29 | 140 |
| Hi,
I also wanted to restore an application on another system. I did not have the
mixture with the languages! And still, I got the same message:
Error occured in module:
Displaying restore details on area
(CM_RESTORE_DISPLAY_DETAILS.SCP) on area
Error details:
---> Unexpected quota problem returned. Please inform your
ALL-IN-1 Manager
The device I would like to install the application is A1DISK:. The device i
packaged the application was OA_DISK:.
I think there is something wrong with a logical. In the trace file I found:
*******************************************************************************
![SYMBOL] Symbol = #CM_TMP_LOCATION = .ROOTCODE, Value = OA_DISK:[ALLIN1]
![SYMBOL] Symbol = #CM_TABLE_DISK, Value =
![SYMBOL] Symbol = OA$TABLE:#CM_TABLE_DISK.%FIRST[], Value =
![SYMBOL] Symbol = "", Value =
![SYMBOL] Symbol = #CM_TMP_DISK, Value = OA_DISK:
![SYMBOL] Symbol = #CM_TABLE_DISK, Value =
![SYMBOL] Symbol = #CM_TABLE_DISK = #CM_TABLE_DISK #COMMA1 #CM_TMP_DISK, Value =
! OA_DISK:
![SYMBOL] Symbol = #CM_RESTORE_CALC_SPACE = "FOR " #CM_TYPE_FORM ":LANGUAGE WITH
! .LANGUAGE == #CM_TMP_AREA DO " "GET OA$FUNCTION = ""COMPUTE #CM
! _TMP_SPACE = #CM_TMP_SPACE + "" .FILE_SIZE", Value = FOR CM$STOR
! E$SDC:LANGUAGE WITH .LANGUAGE == #CM_TMP_AREA DO GET OA$FUNCTION
! = "COMPUTE #CM_TMP_SPACE = #CM_TMP_SPACE + " .FILE_SIZE
![SYMBOL] Symbol = OA$TABLE:#CM_TABLE_DISK_SPACE.%FIRST[], Value =
![SYMBOL] Symbol = #CM_TMP_DISK = OA$DIR_PARSE:.DEV[#CM_TMP_LOCATION], Value =
! OA_DISK:
![SYMBOL] Symbol = #CM_DISK, Value = OA_DISK:
![SYMBOL] Symbol = "", Value =
![SYMBOL] Symbol = #CM_KOR = ":ID_ENTRY", Value = :ID_ENTRY
![SYMBOL] Symbol = #CM_DISK, Value = OA_DISK:
![SYMBOL] Symbol = #CM_DEVICE = FILE$.DEVICE[#CM_DISK], Value = OA_DISK:
![SYMBOL] Symbol = #CM_DISKQUOTA_KEY = #CM_DEVICE " " #CM_VMSUSR, Value = OA_DIS
! K: OA$PRVAPP
![SYMBOL] Symbol = #CM_DISKQUOTA_KEY, Value = OA_DISK: OA$PRVAPP
![SYMBOL] Symbol = #CM_DISKQUOTA_STATUS = DISKQUOTA$:ID_ENTRY.STATUS[#CM_DISKQUO
! TA_KEY], Value = 66
![SYMBOL] Symbol = #CM_DISKQUOTA_STATUS, Value = 66
![SYMBOL] Symbol = 70, Value = 70
![SYMBOL] Symbol = #CM_DISKQUOTA_STATUS, Value = 66
![SYMBOL] Symbol = 52, Value = 52
![SYMBOL] Symbol = #CM_DISKQUOTA_STATUS, Value = 66
![SYMBOL] Symbol = 50, Value = 50
![SYMBOL] Symbol = #CM_DISKQUOTA_STATUS, Value = 66
![SYMBOL] Symbol = 1, Value = 1
![SYMBOL] Symbol = #CM_DISP_MESS = #CM_DISP_MESS2 = CM$_QUO_PROBLEM, Value = Une
! xpected quota problem returned. Please inform your ALL-IN-1 Mana
! ger
*******************************************************************************
Application Restore Details
Application Code: ASS This is a new application
Application saveset:
OA$SITE_DEV_SHARE:ETB_GERMAN.FGN
No of New Areas: 2 No of elements: 14
Root: A1DISK:[ALLIN1]
Siteroot: A1DISK:[ALLIN1.SITE]
Restore Mode: NEW Element Type: BASE
Restore method: FULL Destination: APPLICATION
*******************************************************************************
Listing of save set(s)
Save set: CM_ASS_SAVESET.FGN
Written by: ERNI
UIC: [000200,000006]
Date: 23-NOV-1992 16:14:00.45
Command: BACKUP/NOLOG/COMMENT=CM:V3.0:ASS:BASE
OA_DISK:[ALLIN1.SITE.ASS_STORE...]*.*;0
OA$TEMP:CM_ASS_SAVESET.FGN/SAVE
Operating system: VAX/VMS version A5.5
BACKUP version: V5.5
CPU ID register: 0A000005
Node name: _DMOIS1::
Written on: _DMOIS1$DKA300:
Block size: 32256
Group size: 10
Buffer count: 10
[ALLIN1.SITE.ASS_STORE]ASS_GERMAN.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN]FGN.DIR;1 1 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FGN]ETB_KANTONSABKUERZUNGEN.FGN;1
12 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FGN]ETB_REGION.FGN;1
12 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN]FRM.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FRM]ETB1.FRM;1 7 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FRM]ETB2.FRM;1 2 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FRM]ETB_KANTON.FRM;1
2 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.FRM]ETB_REGION.FRM;1
2 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN]HLP.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.HLP]ETB1.MEM;1 5 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.HLP]ETB1.RNO;1 5 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN]WPL.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_GERMAN.WPL]ETB_HELP.WPL;1 30 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE]ASS_SHARE.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE]COM.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.COM]ETB.COM;1 17 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE]DO.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.DO]ETB.SCP;1 8 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.DO]ETB_INS.SCP;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.DO]ETB_REM.SCP;1 2 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE.ASS_SHARE]FGN.DIR;1 1 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.FGN]ETB.FGN;1 12 23-NOV-1992 15:54
[ALLIN1.SITE.ASS_STORE.ASS_SHARE.FGN]ETB_LOG.FGN;1 1 23-NOV-1992 15:55
[ALLIN1.SITE.ASS_STORE]CM$APP.DAT;1 15 23-NOV-1992 15:51
[ALLIN1.SITE.ASS_STORE]CM$AUTH$LOCATIONS.DAT;1 15 23-NOV-1992 15:51
[ALLIN1.SITE.ASS_STORE]CM$ETYPES.DAT;1 147 23-NOV-1992 15:51
[ALLIN1.SITE.ASS_STORE]CM$MAF.DAT;1 30 23-NOV-1992 15:51
[ALLIN1.SITE.ASS_STORE]CM$SDC.DAT;1 222 23-NOV-1992 15:51
Total of 29 files, 556 blocks
End of save set
*******************************************************************************
Do you have any idea...
Thanks ahead for helping me
Ursi Erni
|
| 1544.10 | What's the value of #CM_RESTORE_SET_MAF | CESARE::EIJS | All in 1 Piece | Wed Dec 09 1992 19:44 | 25 |
|
Hi Ursula,
Can you please perform the following check:
1) Modify CM_RESTORE_DISPLAY_DETAILS.SCP
2) Search for lines:
.IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN
.IF #CM_RESTORE_SET_MAF EQ 0 THEN .GOTO CHANGE_MAF_LOC
3) Modify this to:
.IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN
PROMPT #CM_RESTORE_SET_MAF
.IF #CM_RESTORE_SET_MAF EQ 0 THEN .GOTO CHANGE_MAF_LOC
4) Check the value shown.
You can do this test in a number of ways, but I just need the value of
symbol #CM_RESTORE_SET_MAF
Ciao,
Simon
|
| 1544.11 | Workaround for .9) | CESARE::EIJS | All in 1 Piece | Thu Dec 10 1992 12:23 | 193 |
|
Hi,
The cause of the problem described in .9 is:
- Restore Base application
- All entries in CM$MAF (and CM$APP) exist
(CM shows you a form in which you only have to enter 'Restore method:'
and 'Destination:' (form CM$RESTORE$DETAILS).)
First question: Is the 'assumption' made above correct? Are you
restoring a Base application?
If so, a problem exists in CM_RESTORE_DISPLAY_DETAILS.SCP. The
attached Script fixes the problems to work around it. It explicitely
defines #CM_RESTORE_APP_ROOT to be the value of the existing Application
Root directory, and this value is written also to the temporary data set
CM$STORE$MAF which is used to calculate the diskquota. All records in
the data set are changed, even if they already exist in CM$MAF.
Hope this helps.
Simon
!+
! CM_RESTORE_DISPLAY_DETAILS.SCP
!+
.LABEL START
GET #CM_STATUS = 0
GET #CM_RESTORE_MODULE = CM$_TRN_DISP2
GET #CM_RESTORE_ERROR = CM$_TRN_RES_ERR
GET #CM_RESTORE_APP_ROOT = ""
.IF #CM_RESTORE_MODE EQS "UPDATE" THEN -
GET #CM_RESTORE_MANAGER = CM$APP.MANAGER[#CM_RESTORE_APP_CODE] \-
GET #CM_RESTORE_APP_ROOT = CM$APP.ROOTCODE[#CM_RESTORE_APP_CODE] \-
GET #CM_RESTORE_APP_SITEROOT = CM$APP.SITEROOTCODE[#CM_RESTORE_APP_CODE] \-
FORM CM$RESTORE$DETAILS /FIELDS = RES_METHOD,RES_DES
.IF #CM_RESTORE_MODE EQS "NEW" THEN -
GET #CM_RESTORE_MANAGER = "" \-
FORM CM$RESTORE$DETAILS /FIELDS = -
RES_ROOT,RES_SITEROOT,MANAGER,RES_METHOD,RES_DES
.IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN
.IF #CM_RESTORE_SET_MAF EQ 0 THEN .GOTO CHANGE_MAF_LOC
WRITE CHANGE CM$STORE$APP %KEY = #CM_RESTORE_APP_CODE, -
ROOTCODE = #CM_RESTORE_APP_ROOT \-
WRITE CHANGE CM$STORE$MAF %KEY = #CM_MAF_STORE_KEY, -
ROOTCODE = #CM_RESTORE_APP_ROOT
.IF #CM_RESTORE_MANAGER NES "" THEN -
WRITE CHANGE CM$STORE$APP %KEY = #CM_RESTORE_APP_CODE, -
MANAGER = #CM_RESTORE_MANAGER
WRITE CHANGE CM$STORE$APP %KEY = #CM_RESTORE_APP_CODE, -
SITEROOTCODE = #CM_RESTORE_APP_SITEROOT
!+
! SE 19-Dec-1991
! When SITEROOT values in CM$MAF and CM$APP can be different, the following
! outcommented code should be used instead of the code in use now
!
! FOR CM$RESTORE$AREA$DEF DO -
! GET #CM_RESTORE_AREA_DEF = .%KEY\\-
! FORM CM$RESTORE$AREA$DEF/MODE=CHANGE/ONCE/SAVE = #CM_RESTORE_AREA_DEF\\-
! IFEXIT
!
! .IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN2
!
FOR CM$RESTORE$AREA$DEF DO -
GET #CM_RESTORE_AREA_DEF = .%KEY\\-
WRITE CHANGE CM$RESTORE$AREA$DEF %KEY = #CM_RESTORE_AREA_DEF, -
SITEROOT = #CM_RESTORE_APP_SITEROOT
!-
!+
! Make sure all records in CM$STORE$MAF have the right values for the
! ROOT and SITEROOT
!
! FOR CM$RESTORE$AREA$DEF DO -
! GET #CM_RESTORE_MAF_TMP = .AREA\\-
! GET_SYMBOL #CM_RESTORE_MAF_TMP,#CM_MAF_SUBCODE,"_"\\-
! GET #CM_RESTORE_DEF_SITEROOT = .SITEROOT\\-
! GET #CM_MAF_STORE_KEY = #CM_RESTORE_APP_CODE:4 #CM_RESTORE_MAF_TMP:10\\-
! WRITE CHANGE CM$STORE$MAF %KEY = #CM_MAF_STORE_KEY, -
! SITEROOTCODE = #CM_RESTORE_DEF_SITEROOT
! .GOTO CHECK_DUP_REC
!-
.LABEL CHANGE_MAF_LOC
FOR CM$STORE$MAF DO -
GET #CM_MAF_STORE_KEY = .%KEY \\-
WRITE CHANGE CM$STORE$MAF %KEY = #CM_MAF_STORE_KEY, -
ROOTCODE = #CM_RESTORE_APP_ROOT, -
SITEROOTCODE = #CM_RESTORE_APP_SITEROOT
.LABEL CHECK_DUP_REC
.IF #CM_RESTORE_SET_REC EQ 0 THEN .GOTO CHECK_NEW_LOGS
FOR CM$RESTORE$RECEIVE$DEF DO -
GET #CM_RESTORE_RECEIVE_DEF = .%KEY\\-
FORM CM$RESTORE$RECEIVE$DEF/MODE=CHANGE/ONCE/SAVE = #CM_RESTORE_RECEIVE_DEF\\-
IFEXIT
.IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN3
FOR CM$RESTORE$RECEIVE$DEF DO -
GET #CM_RESTORE_MAF_TMP = .AREA\\-
GET_SYMBOL #CM_RESTORE_MAF_TMP,#CM_MAF_SUBCODE,"_"\\-
GET #CM_MAF_STORE_KEY = #CM_RESTORE_APP_CODE:4 #CM_RESTORE_MAF_TMP:10\\-
WRITE CHANGE CM$STORE$MAF %KEY = #CM_MAF_STORE_KEY, -
RECEIVE_AREA = .RECEIVE_AREA
.LABEL CHECK_NEW_LOGS
!+
! 10-Jan-1992 SE
!
.IF #CM_RESTORE_SET_LOG EQ 0 THEN .GOTO SET_NEW_LOGS
!-
FOR CM$RESTORE$LOG$DEF DO -
GET #CM_RESTORE_LOG_DEF = .%KEY\\-
FORM CM$RESTORE$LOG$DEF/MODE=CHANGE/ONCE/SAVE = #CM_RESTORE_LOG_DEF\\-
IFEXIT
.IF OA$FORM_DISPOSE NE 2 THEN .GOTO EXIT_SCREEN4
!+
! 10-Jan-1992 SE lmc
!
.LABEL SET_NEW_LOGS
FOR CM$RESTORE$LOG$DEF DO -
GET #CM_RES_LOG_LOC = .LOGICAL ":" \\-
GET #CM_RES_LOG_DEF = .DEFINITION \\-
FOR CM$STORE$AUTH$LOCATIONS DO -
GET #CM_RES_NEW_AUTH_KEY = .%KEY \\\\-
.IF .LOCATION = #CM_RES_LOG_LOC THEN -
WRITE CHANGE CM$STORE$AUTH$LOCATIONS %KEY = #CM_RES_NEW_AUTH_KEY,-
SITE_TRANS = #CM_RES_LOG_DEF \\\\-
.IF .BASE_LOCATION = #CM_RES_LOG_LOC THEN -
WRITE CHANGE CM$STORE$AUTH$LOCATIONS %KEY = #CM_RES_NEW_AUTH_KEY,-
BASE_TRANS = #CM_RES_LOG_DEF
!-
.LABEL CHECK_QUOTAS
GET #CM_STATUS = 0
DO CM_RESTORE_CHECK_QUOTA
.IF #CM_STATUS NE 1 THEN .GOTO ERROR_QUOTA
.LABEL DISPLAY_WARNING
GET #CM_STATUS = 0
DO CM_RESTORE_GENERAL_WARNING
.IF #CM_STATUS NE 1 THEN .GOTO ABORT_RESTORE
.EXIT
.LABEL EXIT_SCREEN
GET #CM_RESTORE_ERROR = CM$_TRN_KEY0
GET #CM_STATUS = 0
.EXIT
.LABEL EXIT_SCREEN2
GET #CM_RESTORE_ERROR = CM$_TRN_EXIT1
GET #CM_STATUS = 0
.EXIT
.LABEL EXIT_SCREEN3
GET #CM_RESTORE_ERROR = CM$_TRN_EXIT2
GET #CM_STATUS = 0
.EXIT
.LABEL EXIT_SCREEN4
GET #CM_RESTORE_ERROR = CM$_TRN_EXIT3
GET #CM_STATUS = 0
.EXIT
.LABEL ERROR_QUOTA
GET #CM_RESTORE_ERROR = #CM_QUOTA_ERR
GET #CM_STATUS = 0
.EXIT
.LABEL ABORT_RESTORE
GET #CM_RESTORE_ERROR = CM$_TRN_EXIT
GET #CM_STATUS = 0
.EXIT
!
! Author: Aidan O'Leary
!
! Modified by: | Date: | Reason:
!-----------------------------------------------------------------------------
! Aidan O'Leary | 24-Nov-1989 04:55pm | Element created, please state
! | | modifications down here
|
| 1544.12 | Your CM_RESTORE_DISPLAY_DETAILS.SCP is working | TAKEOF::ERNI | Ursula Erni | Sat Dec 19 1992 17:02 | 15 |
| Hi Simon
Thank's a lot for the script. My application is now installed.
I'd like to get some add-ons to the restore function:
By mistake I entered the device instead of the logical in the fields
DISK_LOCATION and CUSTOM_AREA in dataset CM$SDC. You can imagine, that I could
not restore this element. In the restore_application_report I got:
Copy failed DUA2:[ERNI.A1.ASS_STORE.ASS_SHARE.FGN]ETB.FGN to
OA_DISK:[ALLIN1.LIB_ASS_SHARE]etb.exe
--> Error: Base file OA_DISK:[ALLIN1.LIB_ASS_SHARE]etb.exe not accessible <--
|
| 1544.13 | Missing quota again | BERN01::MAURERF | Isn't your mouse looking for cheese? | Fri Feb 05 1993 17:54 | 16 |
| Hi Simon,
I am still in trouble with quota. This week I tried to restore
new application on customer system. I previously installed the K701,
then I replaced the script you mentionned on .11. I then performed the
restore operation with the quota error, when leaving the site location
field on the form cm$restore$details. Looking around, i found that
#cm_vmsusr was oa$prvapp and that the disquota$ dsab was returning
error 72 (VMS user name not found), then I checked the quota, it was
much enough quota for oa$prvapp. On the next try, I just desable the
quota without success. At the end, as the customer was becoming
nervous, I removed the quota checking and my application found his
place on the target disk. Dou you maybe have some more hints on this
problem or should we definitly don't use quota checking?
Felix
|
| 1544.14 | Right devices anyway? | UTES09::EIJS | Simon Eijs @Utrecht, 7838-2558 | Tue Feb 09 1993 15:18 | 24 |
|
Hi Felix,
Can you please modify CM_RESTORE_CHECK_QUOTA.SCP and change the
following from:
FOR OA$TABLE:#CM_TABLE_UNIQUE_DISK DO -
GET #CM_TMP = .%KEY\\-
GET_SYMBOL #CM_TMP,#CM_TMP1," "\\-
GET #CM_DISK = #CM_TMP1\\GET #CM_LIMIT = #CM_TMP\\-
to:
FOR OA$TABLE:#CM_TABLE_UNIQUE_DISK DO -
GET #CM_TMP = .%KEY\\-
GET_SYMBOL #CM_TMP,#CM_TMP1," "\\-
GET #CM_DISK = #CM_TMP1\\GET #CM_LIMIT = #CM_TMP\\-
PROMPT #CM_DISK \\-
and check if the disk dispolayed exists on node you're restoring on.
Ciao,
Simon
|
| 1544.15 | More on quota problem | BERN01::MAURERF | Isn't your mouse looking for cheese? | Thu Feb 11 1993 11:22 | 18 |
| Hi Simon,
I didn't apply your patch, but I got more information yesterday on this
problem. I was on a customer site restoring a new application. As
ALL-IN-1 was asking for authorized location, I interrupted the
restoration process (with keypad 0) and then defined my logicals (which
I forget before). On the second try I got the quota problem. Then I
commented out quota checking on CM_RESTORE_DISPLAY_DETAILS.SCP and the
next restore pass went ok. I had one more application to restore and
before retoring the next application area, I deleted the modified
CM_RESTORE_DISPLAY_DETAILS.SCP. The following application restore has
been ok too.
This means that the restoration process leaves some informations
somewhere, which are not deleted when interrupted. Is this right? Is
your patch fixing this problem?
Felix
|