[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference clusta::acms

Title:	ACMS comments and questions
Notice:	This is not an official software support channel. Kits 5.*
Moderator:	CLUSTA::HALLAN

Created:	Mon Feb 17 1986
Last Modified:	Fri Jun 06 1997
Last Successful Update:	Fri Jun 06 1997
Number of topics:	4179
Total number of notes:	15091

4172.0. "acms 4.1 and cdd 7.0 license problem" by CSC32::J_HENSON (Don't get even, get ahead!) Thu May 22 1997 16:35

acms 4.1, openvms alpha v7.1, cdd 7.0

I have a customer trying to install the combination listed above.  I know
it's not an officially supported combination, and have told the customer
such.  However, he is persistent that I pursue this, so here I am.

When he attempts to install acms, the installation fails because
cdd is not licensed on this system.  He called Oracle, and was told
that CDD 7.0 does not need a license, and won't send him one.  Apparently,
this is the way it's supposed to work, as he is able to run cdo
and do other things with cdd.

Other than the license issue described above, will acms 4.1 work
on openvms alpha v7.1 with cdd 7.0?  Are there some techinical
gotchas that will prevent this from working, or is it simply a
matter of Digital not testing this combination and not being
willing to support it?  Is the customer's only option to upgrade
to acms v6.2?

If not, can the customer temporarily load a license for cdd 6.1 for
the sole purpose of installing acms, and then unload the license
once acms is installed?  Other than the installation, does ACMS
ever check to see if cdd is licensed?

Another issue raised by the customer is if ACMS 4.1 is not supported
on OpenVMS V7.1, why doesn't the installation procedure catch this?

And, last but not least, does acms v4.2 know not to check for a cdd
license?  If not, we're probably going to be seeing a lot of this.

Thanks,

Jerry

P.S.  I don't want to be pushy, but my customer is pushing hard for
an answer asap.

T.R	Title	User	Personal Name	Date	Lines
4172.1	log file	CSC32::J_HENSON	Don't get even, get ahead!	`Thu May 22 1997 16:58`	2570
	FWIW, here's a log of the customer's installation failure. Jerry ====================================================================== From: [email protected][SMTP:[email protected]] Sent: Thursday, May 22, 1997 12:19 PM To: Elin Vaeth Subject: Ted Crane C970521-3743 (Two installs of ACMS; extra info) +--------------------------------------------------------------------------- ---+ \|************************* tedcrane.com ***********************\| \|*********************** AUTHORIZED ACCESS ONLY ***********************\| +--------------------------------------------------------------------------- ---+ Username: site Password: +--------------------------------------------------------------------------- ---+ \|*********************** tedcrane.com ***********************\| \|*********************** AUTHORIZED ACCESS ONLY ************************\| +--------------------------------------------------------------------------- ---+ Last interactive login on Thursday, 22-MAY-1997 13:04:51.34 Last non-interactive login on Thursday, 22-MAY-1997 12:12:03.53 SITE already exists. SITE_2 already exists. SITE_3 already exists. SITE_4 already exists. SITE_5 already exists. SITE_6 already exists. SITE_7 already exists. SITE_8 already exists. SITE_9 already exists. SITE_10 already exists. 22-MAY-1997 14:13:25.77 [1m.LOG Count New Old SYS$LOGIN:<Log File Name> ---------------------------------------------------------------------------- ----[22m 2 - DECW$SM - 1 REBOOT_UCX - 1 UCX$FTPD_STARTUP - 1 UCX$FTPSERVER = = "Ted's Clock" was running. (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ @sys$update:vmsinstal acmsdeva_ dka400:[ACMSDEVA_041.KIT] OpenVMS AXP Software Product Installation Procedure V7.1 It is 22-MAY-1997 at 14:14. Enter a question mark (?) at any time for help. %VMSINSTAL-W-NOTSYSTEM, You are not logged in to the SYSTEM account. %VMSINSTAL-W-ACTIVE, The following processes are still active: Purveyor 0012 Purveyor 0001 UCX$POP_1 UCX$BIND Do you want to continue anyway [NO]? y * Are you satisfied with the backup of your system disk [YES]? y The following products will be processed: ACMSDEVA_ V4.1 Beginning installation of ACMSDEVA_ V4.1 at 14:14 %VMSINSTAL-I-RESTORE, Restoring product save set A ... %VMSINSTAL-I-RELMOVED, Product's release notes have been moved to SYS$HELP. COPYRIGHT (c) 1995, Digital Equipment Corporation. All Rights Reserved. The results of this installation are being logged in: SYS$COMMON:[SYSUPD]ACMS041_INSTALLATION.LOG Installing ACMS V4.1-0, development kit There are four optional parts to the ACMS development kit installation: o ACMS component software o ACMS LSE update o ACMS samples o ACMS Request Interface samples The full installation includes all these parts. To install the ACMS samples or the ACMS Request Interface samples, you must install, or have previously installed, the ACMS component software. * Do you want the full ACMS installation [NO]? y CHECKING INSTALLATION PREREQUISITES ----------------------------------- The following software products are not available, or are below the minimum required version: Product Required Minimum version Current Version -------------------- -------- --------------- --------------- LSE No V4.3 (not available) DECtrace No V2.2 (not available) ACMS Desktop No V2.0 (not available) If products marked as nonrequired are to be used with ACMS, they should be upgraded to at least the minimum version displayed before use. (required and optional software checked) The following product licenses are not registered and loaded: Product license name Producer Version Date Required ------------------------------ -------- ------- ----------- -------- CDD DEC 5.3 17-NOV-1858 Yes LSE (or VAXSET) DEC 17-NOV-1858 No DECTRACE DEC 2.1 17-NOV-1858 No Licenses marked as required must be registered and loaded before this installation can be successfully completed. Licenses marked as not required will not affect the installation, but may cause the Installation Verification Procedure (IVP) to be canceled. For products with a -USER variant, either the unlimited-use or concurrent-use license must be loaded. (product licenses checked) The following images are not installed: Product Image Required Startup Procedure --------------- ------------------------- -------- -------------------- DECtrace VMI$ROOT:[SYSLIB]EPC$FUNC No EPC$STARTUP.COM The images marked as required must be installed before this installation can be successfully completed. These images are usually installed by executing the product's startup procedure. For more information, refer to product specific documentation and the VMS INSTALL Utility Manual. (installed images checked) (privileges checked) (disk space checked) (disk quotas checked) (system parameters checked) (process account quotas checked) //////////////////////////////////////////////////////////////////////// Installation of ACMS is aborting because prerequisites are not met at 14:14 on 22-MAY-1997 //////////////////////////////////////////////////////////////////////// %VMSINSTAL-E-INSFAIL, The installation of ACMSDEVA_ V4.1 has failed. Adding history entry in VMI$ROOT:[SYSUPD]VMSINSTAL.HISTORY VMSINSTAL procedure done at 14:14 (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ [K (site@david0) $ @sys$update:vmsinstal acmsdeva_ dka400:[ACMSDEVA_041.KIT] option K OpenVMS AXP Software Product Installation Procedure V7.1 It is 22-MAY-1997 at 14:15. Enter a question mark (?) at any time for help. %VMSINSTAL-F-INVOPTIONS, To specify options, parameter 3 must be OPTIONS. %VMSINSTAL-F-UNEXPECTED, Installation terminated due to unexpected event. VMSINSTAL procedure done at 14:15 (site@david0) $ [K (site@david0) $ @sys$update:vmsinstal acmsdeva_ dka400:[ACMSDEVA_041.KIT] options K OpenVMS AXP Software Product Installation Procedure V7.1 It is 22-MAY-1997 at 14:15. Enter a question mark (?) at any time for help. %VMSINSTAL-W-NOTSYSTEM, You are not logged in to the SYSTEM account. %VMSINSTAL-W-ACTIVE, The following processes are still active: Purveyor 0012 Purveyor 0001 UCX$POP_1 UCX$BIND * Do you want to continue anyway [NO]? y * Are you satisfied with the backup of your system disk [YES]? y The following products will be processed: ACMSDEVA_ V4.1 Beginning installation of ACMSDEVA_ V4.1 at 14:15 %VMSINSTAL-I-RESTORE, Restoring product save set A ... %VMSINSTAL-I-RELMOVED, Product's release notes have been moved to SYS$HELP. COPYRIGHT (c) 1995, Digital Equipment Corporation. All Rights Reserved. $ KIT_DEBUG := 1 $ acms$reboot = 0 ! No longer any need to reboot during installations. $ ACMS$INSTALL_PLATFORM = F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE") $ IF "ALPHA" .eqs. "ALPHA" $ THEN $ ACMS$INSTALL_PLATFORM = "AXP" $ ACMS$INST_OPPOSITE_PLAT = "/VAX_ONLY" $ ELSE $ ENDIF $ IF (F$LOCATE("A_",VMI$PRODUCT) .NE. F$LENGTH(VMI$PRODUCT)) !"A_" in name $ THEN $ IF ("AXP" .EQS. "VAX") ! VAX platform $ ENDIF $ ELSE ! no "A_" in name $ ENDIF $ IF P1 .EQS. "VMI$_INSTALL" THEN GOTO INSTALL $INSTALL: $ @VMI$KWD:ACMSIDENT.COM $ ACMS$INSTALL_ID == "ACMS041" $ ACMS$INSTALL_VERSION == "ACMS V4.1-0" $ ACMS$INSTALL_TYPE == "DEV" $ ACMS$INSTALLATION_LOG_SPEC == "SYS$COMMON:[SYSUPD]ACMS041_INSTALLATION.LOG" ! globalized for postinstall and ivp $ CLOSE/NOLOG ACMS$INSTALLATION_LOG $ BYTLM_FUDGE = 97248 $ WO "" $ WO "The results of this installation are being logged in:" The results of this installation are being logged in: $ WO " SYS$COMMON:[SYSUPD]ACMS041_INSTALLATION.LOG" SYS$COMMON:[SYSUPD]ACMS041_INSTALLATION.LOG $ WO "" $ OPEN/WRITE ACMS$INSTALLATION_LOG SYS$COMMON:[SYSUPD]ACMS041_INSTALLATION.LOG $ BYTLM_FUDGE = (BYTLM_FUDGE-97056) $!***************************** NOTE ********************************** $! The following should be cross-checked against test installation data and $! the installation guide before each release. $!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv v $! product versions -- Inst. Guide Sections 1.3, Required Operating System $! Components, 1.4, Layered Product Requirements, 2.2 Software Versions $ MIN_VMS_VERSION_VAX = "5.5" $ MIN_VMS_VERSION_AXP = "6.1" $ ! $ MIN_LSE_VERSION_VAX_V5 = "2.3" $ MIN_LSE_VERSION_VAX_V6 = "3.1" $ MIN_LSE_VERSION_AXP_V61 = "4.3" $ MIN_LSE_VERSION_AXP_V62 = "4.3" $ ! $ MIN_RDB_VERSION_VAX_V5 = "4.2" $ MIN_RDB_VERSION_VAX_V6 = "4.2" $ MIN_RDB_VERSION_AXP_V61 = "5.1" $ MIN_RDB_VERSION_AXP_V62 = "5.1" $ ! $ MIN_DECTRACE_VERSION_VAX_V5 = "1.2" $ MIN_DECTRACE_VERSION_VAX_V6 = "1.2" $ MIN_DECTRACE_VERSION_AXP_V61 = "2.2" $ MIN_DECTRACE_VERSION_AXP_V62 = "2.2" $ ! $ MIN_CDD_VERSION_VAX_V5 = "4.2A" $ MIN_CDD_VERSION_VAX_V6 = "5.1" $ MIN_CDD_VERSION_AXP_V61 = "5.3" $ MIN_CDD_VERSION_AXP_V62 = "5.3" $ ! $ MIN_DBMS_VERSION_VAX_V5 = "4.2" $ MIN_DBMS_VERSION_VAX_V6 = "4.3" $ MIN_DBMS_VERSION_AXP_V61 = "5.1" $ MIN_DBMS_VERSION_AXP_V62 = "5.1" $ ! $ MIN_TDMS_VERSION = "1.9A" $ ! $ MIN_DECFORMS_VERSION_VAX_V5 = "1.4" $ MIN_DECFORMS_VERSION_VAX_V6 = "1.4" $ MIN_DECFORMS_VERSION_AXP_V61 = "2.1-007" $ MIN_DECFORMS_VERSION_AXP_V62 = "2.1-007" $ ! $ MIN_DESKTOP_VERSION_VAX_V5 = "1.1A" $ MIN_DESKTOP_VERSION_VAX_V6 = "1.2" $ MIN_DESKTOP_VERSION_AXP_V61 = "2.0" $ MIN_DESKTOP_VERSION_AXP_V62 = "2.0" $! licenses $ ACMS_DEV_LICENSE = "ACMS\DEC\4.0\17-NOV-1858" $ ACMS_RTO_LICENSE = "ACMS-RT\DEC\4.0\17-NOV-1858" $ ACMS_REM_LICENSE = "ACMS-REM\DEC\4.0\17-NOV-1858" $ CDD_LICENSE_VAX_V5 = "CDD\DEC\4.2A\17-NOV-1858" $ CDD_LICENSE_VAX_V6 = "CDD\DEC\5.1\17-NOV-1858" $ CDD_LICENSE_AXP = "CDD\DEC\5.3\17-NOV-1858" $ LSE_LICENSE = "LSE\DEC\2.3\17-NOV-1858" $ VAXSET_LICENSE = "VAXSET\DEC\11.0\17-NOV-1858" $ DECTRACE_LICENSE_VAX = "DECTRACE\DEC\1.2\17-NOV-1858" $ DECTRACE_LICENSE_AXP = "DECTRACE\DEC\2.1\17-NOV-1858" $! $! system parameters -- Inst. Guide Section 2.6, System Parameters $ MIN_CLISYMTBL_VAX = 500 $ MIN_CLISYMTBL_AXP = 500 $ MIN_FREE_GBLPAGES_VAX = 3500 $ MIN_FREE_GBLPAGES_AXP = 6000 $ MIN_GBLPAGFIL_VAX = 2048 $ MIN_GBLPAGFIL_AXP = 2048 $ MIN_FREE_GBLSECTIONS_VAX = 55 $ MIN_FREE_GBLSECTIONS_AXP = 55 $ MIN_IRPCOUNTV_VAX = 100 $ MIN_IRPCOUNTV_AXP = 100 $ MIN_LRPCOUNTV_VAX = 20 $ MIN_LRPCOUNTV_AXP = 20 $ MIN_SRPCOUNTV_VAX = 150 $ MIN_SRPCOUNTV_AXP = 150 $ MIN_PQL_DASTLM_VAX = 20 $ MIN_PQL_DASTLM_AXP = 20 $ MIN_PQL_DBIOLM_VAX = 12 $ MIN_PQL_DBIOLM_AXP = 12 $ MIN_PQL_DDIOLM_VAX = 20 $ MIN_PQL_DDIOLM_AXP = 20 $ MIN_PQL_MDIOLM_VAX = 20 $ MIN_PQL_MDIOLM_AXP = 20 $ MIN_VIRTUALPAGECNT_VAX = 19000 $ MIN_VIRTUALPAGECNT_AXP = 19000 $! $! process quotas -- Inst. Guide Section 2.7, Process Account Quotas $ MIN_ASTLM_VAX = 24 $ MIN_ASTLM_AXP = 24 $ MIN_BIOLM_VAX = 18 $ MIN_BIOLM_AXP = 18 $ MIN_BYTLM_VAX = 32768 $ MIN_BYTLM_AXP = 32768 $ MIN_DIOLM_VAX = 18 $ MIN_DIOLM_AXP = 18 $ MIN_ENQLM_VAX = 2000 $ MIN_ENQLM_AXP = 2000 $ MIN_FILLM_VAX = 200 $ MIN_FILLM_AXP = 200 $ MIN_PRCLM_VAX = 10 $ MIN_PRCLM_AXP = 10 $ MIN_PGFLQUO_VAX = 12800 $ MIN_PGFLQUO_AXP = 12800 $! $! Kit Sizes. $! disk space requirements -- Inst. Guide Section 2.4, Disk Space $! (these are 1.1(actual-usage), rounded up to next highest thousand.) $! (kit sizes are size of full kit installation with all options; adjustment $! sizes are for installation of stated option only) $! $ DEVKIT_PEAK_VAX = 43000 $ DEVKIT_PEAK_AXP = 45000 $ DEVKIT_NET_VAX = 40700 $ DEVKIT_NET_AXP = 28000 $ RTOKIT_PEAK_VAX = 34500 $ RTOKIT_PEAK_AXP = 32000 $ RTOKIT_NET_VAX = 33200 $ RTOKIT_NET_AXP = 22000 $ REMKIT_PEAK_VAX = 23700 $ REMKIT_PEAK_AXP = 22000 $ REMKIT_NET_VAX = 22400 $ REMKIT_NET_AXP = 14000 $ SAMPLE_PEAK_ADJUST_VAX = 1900 $ SAMPLE_PEAK_ADJUST_AXP = 3300 $ SAMPLE_NET_ADJUST_VAX = 1300 $ SAMPLE_NET_ADJUST_AXP = 1500 $ RI_SAMPLE_PEAK_ADJUST_VAX = 2900 $ RI_SAMPLE_PEAK_ADJUST_AXP = 6000 $ RI_SAMPLE_NET_ADJUST_VAX = 2700 $ RI_SAMPLE_NET_ADJUST_AXP = 3900 $ CDD_PEAK_ADJUST_VAX = 6000 $ CDD_PEAK_ADJUST_AXP = 6000 $ CDD_NET_ADJUST_VAX = 3600 $ CDD_NET_ADJUST_AXP = 5500 $ LSE_PEAK_ADJUST_VAX = 600 $ LSE_PEAK_ADJUST_AXP = 6200 $ LSE_NET_ADJUST_VAX = 100 $ LSE_NET_ADJUST_AXP = 600 $ AWD_PEAK_VAX = 2000 ! (this_DEVKIT_PEAK - last_DEVKIT_PEAK)2 $ AWD_PEAK_AXP = 2000 ! (this_DEVKIT_PEAK - last_DEVKIT_PEAK)2 $! installation times -- Inst. Guide Section 2.8, Time Required for Installation $ DEVKIT_TIME_AXP = 7 $ DEVKIT_TIME_VAX = 15 $ DEVIVP_TIME_AXP = 2 $ DEVIVP_TIME_VAX = 3 $ RTOKIT_TIME_AXP = 4 $ RTOKIT_TIME_VAX = 12 $ RTOIVP_TIME_AXP = 2 $ RTOIVP_TIME_VAX = 2 $ REMKIT_TIME_AXP = 2 $ REMKIT_TIME_VAX = 8 $ REMIVP_TIME_AXP = 1 $ REMIVP_TIME_VAX = 1 $! $!Set up appropriate version and quota info. $ VMS_VERS = F$GETSYI("VERSION") $ MAJOR_VMS_VERS = F$EXTRACT(1,1,VMS_VERS) $ MINOR_POSITION = F$LOCATE(".",VMS_VERS) $ MINOR_VMS_VERS = F$EXTRACT(MINOR_POSITION+1,1,VMS_VERS) $ IF ("AXP" .eqs. "VAX") $ ELSE !AXP $ MIN_VMS_VERSION = MIN_VMS_VERSION_AXP $ IF MINOR_VMS_VERS .EQS. 1 $ THEN ! AXP V6.1 VERSIONS $ MIN_LSE_VERSION = MIN_LSE_VERSION_AXP_V61 $ MIN_RDB_VERSION = MIN_RDB_VERSION_AXP_V61 $ MIN_DECTRACE_VERSION = MIN_DECTRACE_VERSION_AXP_V61 $ MIN_CDD_VERSION = MIN_CDD_VERSION_AXP_V61 $ MIN_DBMS_VERSION = MIN_DBMS_VERSION_AXP_V61 $ MIN_DECFORMS_VERSION = MIN_DECFORMS_VERSION_AXP_V61 $ MIN_DESKTOP_VERSION = MIN_DESKTOP_VERSION_AXP_V61 $ ELSE ! AXP V6.2 VERSIONS $ ENDIF $ CDD_LICENSE = CDD_LICENSE_AXP $ DECTRACE_LICENSE = DECTRACE_LICENSE_AXP $! $ MIN_CLISYMTBL = MIN_CLISYMTBL_AXP $ MIN_FREE_GBLPAGES = MIN_FREE_GBLPAGES_AXP $ MIN_GBLPAGFIL = MIN_GBLPAGFIL_AXP $ MIN_FREE_GBLSECTIONS = MIN_FREE_GBLSECTIONS_AXP $ MIN_IRPCOUNTV = MIN_IRPCOUNTV_AXP $ MIN_LRPCOUNTV = MIN_LRPCOUNTV_AXP $ MIN_SRPCOUNTV = MIN_SRPCOUNTV_AXP $ MIN_PQL_DASTLM = MIN_PQL_DASTLM_AXP $ MIN_PQL_DBIOLM = MIN_PQL_DBIOLM_AXP $ MIN_PQL_DDIOLM = MIN_PQL_DDIOLM_AXP $ MIN_PQL_MDIOLM = MIN_PQL_MDIOLM_AXP $ MIN_VIRTUALPAGECNT = MIN_VIRTUALPAGECNT_AXP $! $ MIN_ASTLM = MIN_ASTLM_AXP $ MIN_BIOLM = MIN_BIOLM_AXP $ MIN_BYTLM = MIN_BYTLM_AXP $ MIN_DIOLM = MIN_DIOLM_AXP $ MIN_ENQLM = MIN_ENQLM_AXP $ MIN_FILLM = MIN_FILLM_AXP $ MIN_PRCLM = MIN_PRCLM_AXP $ MIN_PGFLQUO = MIN_PGFLQUO_AXP $! $ DEVKIT_PEAK = DEVKIT_PEAK_AXP $ DEVKIT_NET = DEVKIT_NET_AXP $ RTOKIT_PEAK = RTOKIT_PEAK_AXP $ RTOKIT_NET = RTOKIT_NET_AXP $ REMKIT_PEAK = REMKIT_PEAK_AXP $ REMKIT_NET = REMKIT_NET_AXP $ SAMPLE_PEAK_ADJUST = SAMPLE_PEAK_ADJUST_AXP $ SAMPLE_NET_ADJUST = SAMPLE_NET_ADJUST_AXP $ RI_SAMPLE_PEAK_ADJUST = RI_SAMPLE_PEAK_ADJUST_AXP $ RI_SAMPLE_NET_ADJUST = RI_SAMPLE_NET_ADJUST_AXP $ CDD_PEAK_ADJUST = CDD_PEAK_ADJUST_AXP $ CDD_NET_ADJUST = CDD_NET_ADJUST_AXP $ LSE_PEAK_ADJUST = LSE_PEAK_ADJUST_AXP $ LSE_NET_ADJUST = LSE_NET_ADJUST_AXP $ AWD_PEAK = AWD_PEAK_AXP $ DEVKIT_TIME = DEVKIT_TIME_AXP $ DEVIVP_TIME = DEVIVP_TIME_AXP $ RTOKIT_TIME = RTOKIT_TIME_AXP $ RTOIVP_TIME = RTOIVP_TIME_AXP $ REMKIT_TIME = REMKIT_TIME_AXP $ REMIVP_TIME = REMIVP_TIME_AXP $ ENDIF $! required privs $ INSTALL_PRIVS = "BYPASS" $ IVP_PRIVS = "BYPASS,SYSPRV,SYSNAM,CMEXEC,OPER" ! THESE PRIVS REPEATED IN ACMSIVP.COM -- CHECK THERE TOO $ POST_PRIVS = "OPER,SYSPRV,SYSNAM,CMKRNL" ! ALSO CHECKED IN ACMS_POST_INSTALL.COM $!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^ $!************************************************************************* * $ VMI$CALLBACK SET PURGE YES $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ KITTYP = "unknown" $ IF ACMS$INSTALL_TYPE .EQS. "DEV" THEN KITTYP = "development" $ IF ACMS$INSTALL_TYPE .EQS. "RTO" THEN KITTYP = "run-time" $ IF ACMS$INSTALL_TYPE .EQS. "REM" THEN KITTYP = "remote" $ WO "Installing ACMS V4.1-0, development kit Installing ACMS V4.1-0, development kit $ ACMS$ROOT_TRAN = F$TRNLNM("VMI$ROOT") $ WL "************************************************************************* *" $ WL " Installation log -- ACMS V4.1-0, development kit" $ WL " 22-MAY-1997 14:15:27.52" $ WL " VMI$ROOT is defined as DAVID0$DKA0:[SYS0.SYSCOMMON.]" $ WL "*********************************************************************** **" $ WL "" $ IF VMI$ALTERNATE_ROOT $ ENDIF $ GOSUB GET_INS_OPTIONS $GET_INS_OPTIONS: $! kit component sw LSE update CDD-related files samples RI samples $! --- ------------ ---------- ----------------- ------- ---------- $! REM yes no no no no $! RTO ask ask ask no no $! DEV ask ask yes ask ask $ IF ACMS$INSTALL_TYPE .EQS. "REM" $ ENDIF $ IF ACMS$INSTALL_TYPE .EQS. "RTO" $ ENDIF $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ GIO_PC = "four" $ ENDIF $ WO "" $ WO " There are four optional parts to the ACMS development kit installation:" There are four optional parts to the ACMS development kit installation: $ WO "" $ WO " o ACMS component software" o ACMS component software $ IF ACMS$INSTALL_TYPE .NES. "REM" $ THEN $ WO " o ACMS LSE update" o ACMS LSE update $ ENDIF $ IF ACMS$INSTALL_TYPE .EQS. "RTO" $ ENDIF $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ WO " o ACMS samples" o ACMS samples $ WO " o ACMS Request Interface samples" o ACMS Request Interface samples $ ENDIF $ WO "" $ WO " The full installation includes all these parts. The full installation includes all these parts. $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ WO " To install the ACMS samples or the ACMS Request Interface samples, you must" To install the ACMS samples or the ACMS Request Interface samples, you must $ WO " install, or have previously installed, the ACMS component software." install, or have previously installed, the ACMS component software. $ ENDIF $ WO "" $ VMI$CALLBACK ASK DEFAULT_INSTALL "Do you want the full ACMS installation" "NO" B "@VMI$KWD:KITINSTAL HELP_DEF_INSTALL" $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) Do you want the full ACMS installation [NO]? y $exit vmi$_success $! kit component sw LSE update CDD-related files samples RI samples $! --- ------------ ---------- ----------------- ------- ---------- $! REM yes no no no no $! RTO ask ask ask no no $! DEV ask ask yes ask ask $! NOTE: REM already taken care of above $ IF DEFAULT_INSTALL $ THEN $ ACMS$SOFTWARE_INSTALL = 1 $ ACMS$LSE_INSTALL = 1 $ ACMS$CDD_INSTALL = 1 $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ ACMS$SAMPLE_INSTALL = 1 $ ACMS$RI_SAMPLE_INSTALL = 1 $ ENDIF $ ELSE $ ENDIF $ IF ((.NOT. ACMS$SOFTWARE_INSTALL) .AND. - (.NOT. ACMS$LSE_INSTALL) .AND. - (.NOT. ACMS$CDD_INSTALL) .AND. - (.NOT. ACMS$SAMPLE_INSTALL) .AND. - (.NOT. ACMS$RI_SAMPLE_INSTALL)) THEN GOTO NOWORK_EXIT $ RETURN $ WO "" $ WO "CHECKING INSTALLATION PREREQUISITES" CHECKING INSTALLATION PREREQUISITES $ WO "-----------------------------------" ----------------------------------- $ ACMS$DECTRACE_UPDATE = 0 $ ACMS$FATAL_FLAG = 0 $ ACMS$IVP_DISKQUOTAS = 0 $ ACMS$IVP_NOPRIV = 0 $ ACMS$LICENSE_ERROR = 0 $ ACMS$NO_CDD = 0 $ ACMS$NO_DECTRACE = 0 $ ACMS$NO_LSE = 0 $ ACMS$NO_LSE_LICENSE = 0 $ ACMS$NO_RDB = 0 $ ACMS$POST_MANUAL = 0 $ ACMS$POST_NOPRIV = 0 $ ACMS$REMOVE_DEV = 0 $ ACMS$REMOVE_RTO = 0 $! NOTE -- the following order matches the installation guide sections $ GOSUB CHECK_SOFTWARE_VERSIONS $CHECK_SOFTWARE_VERSIONS: $ CV_FATAL_FLAG = 0 $ HEADER_OUT = 0 $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $! CDD and Rdb - required for DEV, optional for RTO, not checked for REM $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ OPTIONAL_FLAG = "N" $ ELSE $ ENDIF $! Following list is ordered as in ins. gde, sections 1 and 2 $ CV_INPUT = "VMS\ \6.1\N\CV_FATAL_FLAG" $ GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $CV_VMS: $ CV_VERSION = F$GETSYI("VERSION") $ CURRENT_MAJOR_VMS_VERSION = F$EXTRACT(1,1,CV_VERSION) $ CV_TYPE = F$EXTRACT(0,1,CV_VERSION) $ CV_VERSION = F$EXTRACT(1,F$LENGTH(CV_VERSION)-1,CV_VERSION) $! $ GOTO CV_CHECK_1 $CV_CHECK_1: $ IF CV_VERSION .GES. CV_MIN_VERSION THEN GOTO CV_DONE $CV_DONE: $ RETURN $ ! Checking for products that are available on both VAX & ALPHA $ CV_INPUT = "LSE\VMI$ROOT:[SYSEXE]LSEDIT.EXE\4.3\Y\CV_FATAL_FLAG\ACMS$NO_LSE" $ IF ACMS$LSE_INSTALL THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSEXE]LSEDIT.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $ CV_VERSION = "(not available)" $ GOTO CV_ERROR $CV_ERROR: $ IF CV_PROD_ERROR_FLAG .NES. "" THEN ACMS$NO_LSE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CV_HEAD $CV_HEAD: $ WO "" $ WL "" $ WO "The following software products are not available, or are below the minimum" The following software products are not available, or are below the minimum $ WL "The following software products are not available, or are below the minimum" $ WO "required version:" required version: $ WL "required version:" $ WO "" $ WL "" $ CV_STRING = F$FAO(" !20AS !8AS !15AS !15AS","Product ","Required","Minimum version","Current Version") $ WO CV_STRING Product Required Minimum version Current Version $ WL CV_STRING $ CV_STRING = F$FAO(" !20AS !8AS !15AS !15AS","--------------------","--------","---------------","--------------- ") $ WO CV_STRING -------------------- -------- --------------- --------------- $ WL CV_STRING $ HEADER_OUT = 1 $ RETURN $ CV_REQUIRED = "No" $ IF .NOT. CV_OPTIONAL_FLAG $ ENDIF $ CV_MIN_VERSION = "V"+CV_MIN_VERSION $ CV_TYPVER = CV_TYPE+CV_VERSION $ CV_STRING = F$FAO(" !20AS !8AS !15AS !15AS",CV_PRODUCT,CV_REQUIRED,CV_MIN_VERSION,CV_TYPVER) $ WO CV_STRING LSE No V4.3 (not available) $ WL CV_STRING $CV_DONE: $ RETURN $ CV_INPUT = "Rdb\VMI$ROOT:[SYSLIB]RDBSHR.EXE\5.1\N\CV_FATAL_FLAG" $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSLIB]RDBSHR.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $CV_CHECK: $ VMI$CALLBACK GET_IMAGE_ID CV_RECORD CV_FILE $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ POSITION = F$LOCATE(".",CV_RECORD)-2 $ CV_VERSION = F$EXTRACT(POSITION+1,999,CV_RECORD) $ CV_TYPE = F$EXTRACT(POSITION,1,CV_RECORD) $CV_CHECK_1: $ IF CV_VERSION .GES. CV_MIN_VERSION THEN GOTO CV_DONE $CV_DONE: $ RETURN $ CV_INPUT = "DECtrace\VMI$ROOT:[SYSLIB]EPC$FUNCSHRP.EXE\2.2\Y\CV_FATAL_FLAG\ACMS$NO_DECT RACE" $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSLIB]EPC$FUNCSHRP.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $ CV_VERSION = "(not available)" $ GOTO CV_ERROR $CV_ERROR: $ IF CV_PROD_ERROR_FLAG .NES. "" THEN ACMS$NO_DECTRACE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CV_HEAD $ CV_REQUIRED = "No" $ IF .NOT. CV_OPTIONAL_FLAG $ ENDIF $ CV_MIN_VERSION = "V"+CV_MIN_VERSION $ CV_TYPVER = CV_TYPE+CV_VERSION $ CV_STRING = F$FAO(" !20AS !8AS !15AS !15AS",CV_PRODUCT,CV_REQUIRED,CV_MIN_VERSION,CV_TYPVER) $ WO CV_STRING DECtrace No V2.2 (not available) $ WL CV_STRING $CV_DONE: $ RETURN $ CV_INPUT = "CDD/Plus\VMI$ROOT:[SYSLIB]CDDSHR.EXE\5.3\N\CV_FATAL_FLAG\ACMS$NO_CDD" $ IF ((ACMS$SOFTWARE_INSTALL) .AND. (ACMS$INSTALL_TYPE .NES. "REM")) THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSLIB]CDDSHR.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $CV_CHECK: $ VMI$CALLBACK GET_IMAGE_ID CV_RECORD CV_FILE $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ POSITION = F$LOCATE(".",CV_RECORD)-2 $ CV_VERSION = F$EXTRACT(POSITION+1,999,CV_RECORD) $ CV_TYPE = F$EXTRACT(POSITION,1,CV_RECORD) $CV_CHECK_1: $ IF CV_VERSION .GES. CV_MIN_VERSION THEN GOTO CV_DONE $CV_DONE: $ RETURN $! CV_INPUT = "DBMS\VMI$ROOT:[SYSLIB]DBMSHR.EXE\'MIN_DBMS_VERSION'\Y\CV_FATAL_FLAG" $! IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_VERSION $ CV_INPUT = "ACMS Desktop\VMI$ROOT:[SYSEXE]ACMSDI$SERVER.EXE\2.0\Y\CV_FATAL_FLAG" $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSEXE]ACMSDI$SERVER.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $ CV_VERSION = "(not available)" $ GOTO CV_ERROR $CV_ERROR: $ IF CV_PROD_ERROR_FLAG .NES. "" THEN = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CV_HEAD $ CV_REQUIRED = "No" $ IF .NOT. CV_OPTIONAL_FLAG $ ENDIF $ CV_MIN_VERSION = "V"+CV_MIN_VERSION $ CV_TYPVER = CV_TYPE+CV_VERSION $ CV_STRING = F$FAO(" !20AS !8AS !15AS !15AS",CV_PRODUCT,CV_REQUIRED,CV_MIN_VERSION,CV_TYPVER) $ WO CV_STRING ACMS Desktop No V2.0 (not available) $ WL CV_STRING $CV_DONE: $ RETURN $ CV_INPUT = "DECforms\VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE\2.1-007\Y\CV_FATAL_FLAG" $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_VERSION $CHECK_VERSION: $! input: CV_INPUT = "product\image_name\min_version\optional_flag\cum_error_flag[\prod_error_fla g]" $ CV_PRODUCT = F$ELEMENT(0,"\",CV_INPUT) $ CV_IMAGE_NAME = F$ELEMENT(1,"\",CV_INPUT) $ CV_MIN_VERSION = F$ELEMENT(2,"\",CV_INPUT) $ CV_OPTIONAL_FLAG = F$ELEMENT(3,"\",CV_INPUT) $ CV_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CV_INPUT) $ CV_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CV_INPUT) $ IF CV_PROD_ERROR_FLAG .EQS. "\" THEN CV_PROD_ERROR_FLAG = "" $ CV_VERSION = "" $ CV_TYPE = "" $ IF CV_PRODUCT .EQS. "VMS" THEN GOTO CV_VMS $ VMI$CALLBACK FIND_FILE CV_FILE VMI$ROOT:[SYSLIB]FORMS$MANAGER.EXE "" W,S CV_PRESENT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CV_PRESENT .EQS. "S" THEN GOTO CV_CHECK $CV_CHECK: $ VMI$CALLBACK GET_IMAGE_ID CV_RECORD CV_FILE $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ POSITION = F$LOCATE(".",CV_RECORD)-2 $ CV_VERSION = F$EXTRACT(POSITION+1,999,CV_RECORD) $ CV_TYPE = F$EXTRACT(POSITION,1,CV_RECORD) $CV_CHECK_1: $ IF CV_VERSION .GES. CV_MIN_VERSION THEN GOTO CV_DONE $CV_DONE: $ RETURN $ IF ("AXP" .eqs. "VAX") ! Checking for products which only exist on VAX. $ ENDIF $ ACMS$FATAL_FLAG = ((ACMS$FATAL_FLAG).OR.(CV_FATAL_FLAG)) $ GOSUB CV_TRAILER $CV_TRAILER: $ IF HEADER_OUT $ THEN $ IF CV_FATAL_FLAG $ ENDIF $ WO "" $ WO " If products marked as nonrequired are to be used with ACMS, they should be " If products marked as nonrequired are to be used with ACMS, they should be $ WO " upgraded to at least the minimum version displayed before use." upgraded to at least the minimum version displayed before use. $ ENDIF $ RETURN $ CHECKED_STRING = "required and optional software" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (required and optional software checked)" (required and optional software checked) $ WL " (required and optional software checked)" $ RETURN $ RETURN $ GOSUB CHECK_LICENSES $CHECK_LICENSES: $ HEADER_OUT = 0 $ CL_INPUT = ACMS_DEV_LICENSE+"\N\ACMS$FATAL_FLAG\ACMS$LICENSE_ERROR" $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ CL_INPUT = CL_INPUT+"\N" $ ELSE $ ENDIF $ CL_INPUT = CL_INPUT+"\S" $ GOSUB CHECK_LICENSE $CHECK_LICENSE: $! input: CL_INPUT = "product\producer\version\date\optional_flag\cum_error_flag[\license_error_f lag][\user_variant][\exact]" $ CL_PRODUCT = F$ELEMENT(0,"\",CL_INPUT) $ CL_PRODUCER = F$ELEMENT(1,"\",CL_INPUT) $ CL_VERSION = F$ELEMENT(2,"\",CL_INPUT) $ CL_DATE = F$ELEMENT(3,"\",CL_INPUT) $ CL_OPTIONAL_FLAG = F$ELEMENT(4,"\",CL_INPUT) $ CL_CUM_ERROR_FLAG = F$ELEMENT(5,"\",CL_INPUT) $ CL_LICENSE_ERROR_FLAG = F$ELEMENT(6,"\",CL_INPUT) $ IF CL_LICENSE_ERROR_FLAG .EQS. "\" THEN CL_LICENSE_ERROR_FLAG = "" $ CL_USER_VARIANT = F$ELEMENT(7,"\",CL_INPUT) $ IF CL_USER_VARIANT .EQS. "\" THEN CL_USER_VARIANT = "N" $ CL_EXACT = F$ELEMENT(8,"\",CL_INPUT) $ IF CL_EXACT .EQS. "\" THEN CL_EXACT = "" $ IF F$EXTRACT(0,4,CL_PRODUCT) .EQS. "ACMS" $ THEN $ SET NOON $ DEFINE/USER SYS$OUTPUT NL: $ DEFINE/USER SYS$ERROR NL: $ RUN/NODEBUG VMI$KWD:ACMSCHKLIC $ CL_OK == $STATUS $ SET ON $ ELSE $ ENDIF $ IF CL_OK THEN RETURN $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ CL_OPTIONAL = "N" $ ELSE $ ENDIF $ CL_INPUT = CDD_LICENSE+"\N\ACMS$FATAL_FLAG\ACMS$NO_CDD" $ IF ACMS$INSTALL_TYPE .NES. "REM" THEN GOSUB CHECK_LICENSE $CHECK_LICENSE: $! input: CL_INPUT = "product\producer\version\date\optional_flag\cum_error_flag[\license_error_f lag][\user_variant][\exact]" $ CL_PRODUCT = F$ELEMENT(0,"\",CL_INPUT) $ CL_PRODUCER = F$ELEMENT(1,"\",CL_INPUT) $ CL_VERSION = F$ELEMENT(2,"\",CL_INPUT) $ CL_DATE = F$ELEMENT(3,"\",CL_INPUT) $ CL_OPTIONAL_FLAG = F$ELEMENT(4,"\",CL_INPUT) $ CL_CUM_ERROR_FLAG = F$ELEMENT(5,"\",CL_INPUT) $ CL_LICENSE_ERROR_FLAG = F$ELEMENT(6,"\",CL_INPUT) $ IF CL_LICENSE_ERROR_FLAG .EQS. "\" THEN CL_LICENSE_ERROR_FLAG = "" $ CL_USER_VARIANT = F$ELEMENT(7,"\",CL_INPUT) $ IF CL_USER_VARIANT .EQS. "\" THEN CL_USER_VARIANT = "N" $ CL_EXACT = F$ELEMENT(8,"\",CL_INPUT) $ IF CL_EXACT .EQS. "\" THEN CL_EXACT = "" $ IF F$EXTRACT(0,4,CL_PRODUCT) .EQS. "ACMS" $ ELSE $ VMI$CALLBACK CHECK_LICENSE CL_OK CDD DEC 5.3 17-NOV-1858 $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CL_OK THEN RETURN $ IF CL_USER_VARIANT $ ENDIF $ ENDIF $ IF CL_OK THEN RETURN $CL_ERROR: $ IF CL_LICENSE_ERROR_FLAG .NES. "" THEN ACMS$NO_CDD = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CL_HEAD $CL_HEAD: $ WO "" $ WL "" $ WO "The following product licenses are not registered and loaded:" The following product licenses are not registered and loaded: $ WL "The following product licenses are not registered and loaded:" $ WO "" $ WL "" $ CL_STRING = F$FAO(" !30AS !8AS !7AS !11AS !8AS","Product license name ","Producer","Version","Date ","Required") $ WO CL_STRING Product license name Producer Version Date Required $ WL CL_STRING $ CL_STRING = F$FAO(" !30AS !8AS !7AS !11AS !8AS","------------------------------","--------","-------","-----------"," --------") $ WO CL_STRING ------------------------------ -------- ------- ----------- -------- $ WL CL_STRING $ HEADER_OUT = 1 $ RETURN $ CL_REQUIRED = "No" $ IF .NOT. CL_OPTIONAL_FLAG $ THEN $ ACMS$FATAL_FLAG = 1 $ CL_REQUIRED = "Yes" $ ENDIF $ IF CL_USER_VARIANT THEN CL_PRODUCT = CL_PRODUCT+" or "+CL_PRODUCT+"-USER" $ IF ("CDD" .eqs. "LSE") ! Don't issue an error message until we $ ENDIF $ IF ("CDD" .eqs. "VAXSET") $ ENDIF $ CL_STRING = F$FAO(" !30AS !8AS !7AS !11AS !8AS",CL_PRODUCT,CL_PRODUCER,CL_VERSION,CL_DATE,CL_REQUIRED) $ WO CL_STRING CDD DEC 5.3 17-NOV-1858 Yes $ WL CL_STRING $CL_DONE: $ RETURN $ IF ACMS$LSE_INSTALL $ THEN $ CL_INPUT = LSE_LICENSE+"\Y\ACMS$FATAL_FLAG\ACMS$NO_LSE_LICENSE" $ GOSUB CHECK_LICENSE $CHECK_LICENSE: $! input: CL_INPUT = "product\producer\version\date\optional_flag\cum_error_flag[\license_error_f lag][\user_variant][\exact]" $ CL_PRODUCT = F$ELEMENT(0,"\",CL_INPUT) $ CL_PRODUCER = F$ELEMENT(1,"\",CL_INPUT) $ CL_VERSION = F$ELEMENT(2,"\",CL_INPUT) $ CL_DATE = F$ELEMENT(3,"\",CL_INPUT) $ CL_OPTIONAL_FLAG = F$ELEMENT(4,"\",CL_INPUT) $ CL_CUM_ERROR_FLAG = F$ELEMENT(5,"\",CL_INPUT) $ CL_LICENSE_ERROR_FLAG = F$ELEMENT(6,"\",CL_INPUT) $ IF CL_LICENSE_ERROR_FLAG .EQS. "\" THEN CL_LICENSE_ERROR_FLAG = "" $ CL_USER_VARIANT = F$ELEMENT(7,"\",CL_INPUT) $ IF CL_USER_VARIANT .EQS. "\" THEN CL_USER_VARIANT = "N" $ CL_EXACT = F$ELEMENT(8,"\",CL_INPUT) $ IF CL_EXACT .EQS. "\" THEN CL_EXACT = "" $ IF F$EXTRACT(0,4,CL_PRODUCT) .EQS. "ACMS" $ ELSE $ VMI$CALLBACK CHECK_LICENSE CL_OK LSE DEC 2.3 17-NOV-1858 $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CL_OK THEN RETURN $ IF CL_USER_VARIANT $ ENDIF $ ENDIF $ IF CL_OK THEN RETURN $CL_ERROR: $ IF CL_LICENSE_ERROR_FLAG .NES. "" THEN ACMS$NO_LSE_LICENSE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CL_HEAD $ CL_REQUIRED = "No" $ IF .NOT. CL_OPTIONAL_FLAG $ ENDIF $ IF CL_USER_VARIANT THEN CL_PRODUCT = CL_PRODUCT+" or "+CL_PRODUCT+"-USER" $ IF ("LSE" .eqs. "LSE") ! Don't issue an error message until we $ THEN ! have also checked for a VAXSET pak. $ RETURN $ IF ACMS$NO_LSE_LICENSE ! If No LSE license, look for a VAXSET license $ THEN $ CL_INPUT = VAXSET_LICENSE+"\Y\ACMS$FATAL_FLAG\ACMS$NO_LSE" $ GOSUB CHECK_LICENSE $CHECK_LICENSE: $! input: CL_INPUT = "product\producer\version\date\optional_flag\cum_error_flag[\license_error_f lag][\user_variant][\exact]" $ CL_PRODUCT = F$ELEMENT(0,"\",CL_INPUT) $ CL_PRODUCER = F$ELEMENT(1,"\",CL_INPUT) $ CL_VERSION = F$ELEMENT(2,"\",CL_INPUT) $ CL_DATE = F$ELEMENT(3,"\",CL_INPUT) $ CL_OPTIONAL_FLAG = F$ELEMENT(4,"\",CL_INPUT) $ CL_CUM_ERROR_FLAG = F$ELEMENT(5,"\",CL_INPUT) $ CL_LICENSE_ERROR_FLAG = F$ELEMENT(6,"\",CL_INPUT) $ IF CL_LICENSE_ERROR_FLAG .EQS. "\" THEN CL_LICENSE_ERROR_FLAG = "" $ CL_USER_VARIANT = F$ELEMENT(7,"\",CL_INPUT) $ IF CL_USER_VARIANT .EQS. "\" THEN CL_USER_VARIANT = "N" $ CL_EXACT = F$ELEMENT(8,"\",CL_INPUT) $ IF CL_EXACT .EQS. "\" THEN CL_EXACT = "" $ IF F$EXTRACT(0,4,CL_PRODUCT) .EQS. "ACMS" $ ELSE $ VMI$CALLBACK CHECK_LICENSE CL_OK VAXSET DEC 11.0 17-NOV-1858 $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CL_OK THEN RETURN $ IF CL_USER_VARIANT $ ENDIF $ ENDIF $ IF CL_OK THEN RETURN $CL_ERROR: $ IF CL_LICENSE_ERROR_FLAG .NES. "" THEN ACMS$NO_LSE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CL_HEAD $ CL_REQUIRED = "No" $ IF .NOT. CL_OPTIONAL_FLAG $ ENDIF $ IF CL_USER_VARIANT THEN CL_PRODUCT = CL_PRODUCT+" or "+CL_PRODUCT+"-USER" $ IF ("VAXSET" .eqs. "LSE") ! Don't issue an error message until we $ ENDIF $ IF ("VAXSET" .eqs. "VAXSET") $ THEN $ CL_PRODUCT = "LSE (or VAXSET)" $ CL_VERSION = " " $ ENDIF $ CL_STRING = F$FAO(" !30AS !8AS !7AS !11AS !8AS",CL_PRODUCT,CL_PRODUCER,CL_VERSION,CL_DATE,CL_REQUIRED) $ WO CL_STRING LSE (or VAXSET) DEC 17-NOV-1858 No $ WL CL_STRING $CL_DONE: $ RETURN $ ENDIF $ ENDIF $ IF ACMS$SOFTWARE_INSTALL $ THEN $ CL_INPUT = DECTRACE_LICENSE+"\Y\ACMS$FATAL_FLAG\ACMS$NO_DECTRACE" $ GOSUB CHECK_LICENSE $CHECK_LICENSE: $! input: CL_INPUT = "product\producer\version\date\optional_flag\cum_error_flag[\license_error_f lag][\user_variant][\exact]" $ CL_PRODUCT = F$ELEMENT(0,"\",CL_INPUT) $ CL_PRODUCER = F$ELEMENT(1,"\",CL_INPUT) $ CL_VERSION = F$ELEMENT(2,"\",CL_INPUT) $ CL_DATE = F$ELEMENT(3,"\",CL_INPUT) $ CL_OPTIONAL_FLAG = F$ELEMENT(4,"\",CL_INPUT) $ CL_CUM_ERROR_FLAG = F$ELEMENT(5,"\",CL_INPUT) $ CL_LICENSE_ERROR_FLAG = F$ELEMENT(6,"\",CL_INPUT) $ IF CL_LICENSE_ERROR_FLAG .EQS. "\" THEN CL_LICENSE_ERROR_FLAG = "" $ CL_USER_VARIANT = F$ELEMENT(7,"\",CL_INPUT) $ IF CL_USER_VARIANT .EQS. "\" THEN CL_USER_VARIANT = "N" $ CL_EXACT = F$ELEMENT(8,"\",CL_INPUT) $ IF CL_EXACT .EQS. "\" THEN CL_EXACT = "" $ IF F$EXTRACT(0,4,CL_PRODUCT) .EQS. "ACMS" $ ELSE $ VMI$CALLBACK CHECK_LICENSE CL_OK DECTRACE DEC 2.1 17-NOV-1858 $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CL_OK THEN RETURN $ IF CL_USER_VARIANT $ ENDIF $ ENDIF $ IF CL_OK THEN RETURN $CL_ERROR: $ IF CL_LICENSE_ERROR_FLAG .NES. "" THEN ACMS$NO_DECTRACE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CL_HEAD $ CL_REQUIRED = "No" $ IF .NOT. CL_OPTIONAL_FLAG $ ENDIF $ IF CL_USER_VARIANT THEN CL_PRODUCT = CL_PRODUCT+" or "+CL_PRODUCT+"-USER" $ IF ("DECTRACE" .eqs. "LSE") ! Don't issue an error message until we $ ENDIF $ IF ("DECTRACE" .eqs. "VAXSET") $ ENDIF $ CL_STRING = F$FAO(" !30AS !8AS !7AS !11AS !8AS",CL_PRODUCT,CL_PRODUCER,CL_VERSION,CL_DATE,CL_REQUIRED) $ WO CL_STRING DECTRACE DEC 2.1 17-NOV-1858 No $ WL CL_STRING $CL_DONE: $ RETURN $ ENDIF $ GOSUB CL_TRAILER $CL_TRAILER: $ IF HEADER_OUT $ THEN $ WO "" $ WO " Licenses marked as required must be registered and loaded before this" Licenses marked as required must be registered and loaded before this $ WO " installation can be successfully completed. Licenses marked as not required" installation can be successfully completed. Licenses marked as not required $ WO " will not affect the installation, but may cause the Installation" will not affect the installation, but may cause the Installation $ WO " Verification Procedure (IVP) to be canceled. For products with a -USER" Verification Procedure (IVP) to be canceled. For products with a -USER $ WO " variant, either the unlimited-use or concurrent-use license must be loaded." variant, either the unlimited-use or concurrent-use license must be loaded. $ ENDIF $ RETURN $ CHECKED_STRING = "product licenses" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (product licenses checked)" (product licenses checked) $ WL " (product licenses checked)" $ RETURN $ RETURN $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_INSTALLED_IMAGES $CHECK_INSTALLED_IMAGES: $! CDD and RDB -- required for DEV, optional for RTO, not checked for REM (RDB required because CDD uses it) $ HEADER_OUT = 0 $ IF ACMS$INSTALL_TYPE .EQS. "DEV" $ THEN $ OPTIONAL_FLAG = "N" $ ELSE $ ENDIF $ CI_INPUT = "CDD/Plus\VMI$ROOT:[SYSLIB]CDDSHR.EXE\CDDSTRTUP.COM\N\ACMS$FATAL_FLAG\ACMS$N O_CDD" $ IF ACMS$INSTALL_TYPE .NES. "REM" THEN GOSUB CHECK_INSTALLED $CHECK_INSTALLED: $! input: CI_INPUT = "product\installed_image_name\startup_procedure\optional_flag\cum_error_flag [\prod_error_flag]" $ CI_PRODUCT = F$ELEMENT(0,"\",CI_INPUT) $ CI_IMAGE_NAME = F$ELEMENT(1,"\",CI_INPUT) $ CI_PROCEDURE = F$ELEMENT(2,"\",CI_INPUT) $ CI_OPTIONAL_FLAG = F$ELEMENT(3,"\",CI_INPUT) $ CI_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CI_INPUT) $ CI_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CI_INPUT) $ IF CI_PROD_ERROR_FLAG .EQS. "\" THEN CI_PROD_ERROR_FLAG = "" $ IF F$SEARCH("VMI$ROOT:[SYSLIB]CDDSHR.EXE") .EQS. "" THEN GOTO CI_ERROR $ IF F$FILE_ATTRIBUTES("VMI$ROOT:[SYSLIB]CDDSHR.EXE","KNOWN") THEN GOTO CI_DONE $CI_DONE: $ RETURN $ CI_INPUT = "Rdb/VMS\VMI$ROOT:[SYSLIB]RDBSHR.EXE\RMONSTART.COM\N\ACMS$FATAL_FLAG\ACMS$NO _RDB" $ IF ACMS$INSTALL_TYPE .NES. "REM" THEN GOSUB CHECK_INSTALLED $CHECK_INSTALLED: $! input: CI_INPUT = "product\installed_image_name\startup_procedure\optional_flag\cum_error_flag [\prod_error_flag]" $ CI_PRODUCT = F$ELEMENT(0,"\",CI_INPUT) $ CI_IMAGE_NAME = F$ELEMENT(1,"\",CI_INPUT) $ CI_PROCEDURE = F$ELEMENT(2,"\",CI_INPUT) $ CI_OPTIONAL_FLAG = F$ELEMENT(3,"\",CI_INPUT) $ CI_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CI_INPUT) $ CI_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CI_INPUT) $ IF CI_PROD_ERROR_FLAG .EQS. "\" THEN CI_PROD_ERROR_FLAG = "" $ IF F$SEARCH("VMI$ROOT:[SYSLIB]RDBSHR.EXE") .EQS. "" THEN GOTO CI_ERROR $ IF F$FILE_ATTRIBUTES("VMI$ROOT:[SYSLIB]RDBSHR.EXE","KNOWN") THEN GOTO CI_DONE $CI_DONE: $ RETURN $ CI_INPUT = "DECtrace\VMI$ROOT:[SYSLIB]EPC$FUNCSHRP.EXE\EPC$STARTUP.COM\Y\ACMS$FATAL_FLA G\ACMS$NO_DECTRACE" $ GOSUB CHECK_INSTALLED $CHECK_INSTALLED: $! input: CI_INPUT = "product\installed_image_name\startup_procedure\optional_flag\cum_error_flag [\prod_error_flag]" $ CI_PRODUCT = F$ELEMENT(0,"\",CI_INPUT) $ CI_IMAGE_NAME = F$ELEMENT(1,"\",CI_INPUT) $ CI_PROCEDURE = F$ELEMENT(2,"\",CI_INPUT) $ CI_OPTIONAL_FLAG = F$ELEMENT(3,"\",CI_INPUT) $ CI_CUM_ERROR_FLAG = F$ELEMENT(4,"\",CI_INPUT) $ CI_PROD_ERROR_FLAG = F$ELEMENT(5,"\",CI_INPUT) $ IF CI_PROD_ERROR_FLAG .EQS. "\" THEN CI_PROD_ERROR_FLAG = "" $ IF F$SEARCH("VMI$ROOT:[SYSLIB]EPC$FUNCSHRP.EXE") .EQS. "" THEN GOTO CI_ERROR $CI_ERROR: $ IF CI_PROD_ERROR_FLAG .NES. "" THEN ACMS$NO_DECTRACE = 1 $ IF HEADER_OUT .EQ. 0 THEN GOSUB CI_HEAD $CI_HEAD: $ WO "" $ WL "" $ WO "The following images are not installed:" The following images are not installed: $ WL "The following images are not installed:" $ WO "" $ WL "" $ CI_STRING = F$FAO(" !15AS !25AS !8AS !20AS","Product ","Image ","Required","Startup Procedure ") $ WO CI_STRING Product Image Required Startup Procedure $ WL CI_STRING $ CI_STRING = F$FAO(" !15AS !25AS !8AS !20AS","---------------","-------------------------","--------","---------- ----------") $ WO CI_STRING --------------- ------------------------- -------- -------------------- $ WL CI_STRING $ HEADER_OUT = 1 $ RETURN $ CI_REQUIRED = "No" $ IF .NOT. CI_OPTIONAL_FLAG $ ENDIF $ CI_STRING = F$FAO(" !15AS !25AS !8AS !20AS",CI_PRODUCT,CI_IMAGE_NAME,CI_REQUIRED,CI_PROCEDURE) $ WO CI_STRING DECtrace VMI$ROOT:[SYSLIB]EPC$FUNC No EPC$STARTUP.COM $ WL CI_STRING $CI_DONE: $ RETURN $ GOSUB CI_TRAILER $CI_TRAILER: $ IF HEADER_OUT $ THEN $ WO "" $ WO " The images marked as required must be installed before this installation can" The images marked as required must be installed before this installation can $ WO " be successfully completed. These images are usually installed by executing" be successfully completed. These images are usually installed by executing $ WO " the product's startup procedure. For more information, refer to product" the product's startup procedure. For more information, refer to product $ WO " specific documentation and the VMS INSTALL Utility Manual." specific documentation and the VMS INSTALL Utility Manual. $ ENDIF $ RETURN $ CHECKED_STRING = "installed images" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (installed images checked)" (installed images checked) $ WL " (installed images checked)" $ RETURN $ RETURN $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_PRIVILEGES $CHECK_PRIVILEGES: $! NOTE - inportant that the three checks are done in order INSTALL/POST/IVP $ IF INSTALL_PRIVS .NES. "" $ THEN $ CP_INS = 0 $ ACMS$ORIG_INSTALL_PRIVS = F$SETPRV("BYPASS") $ IF F$PRIVILEGE("BYPASS") $ THEN $ CP_INS = 1 $ ELSE $ ENDIF $ ELSE $ ENDIF $ IF POST_PRIVS .NES. "" $ THEN $ CP_POST = 0 $ ACMS$ORIG_POST_PRIVS = F$SETPRV("OPER,SYSPRV,SYSNAM,CMKRNL") $ IF F$PRIVILEGE("OPER,SYSPRV,SYSNAM,CMKRNL") $ THEN $ CP_POST = 1 $ ELSE $ ENDIF $ ELSE $ ENDIF $ IF IVP_PRIVS .NES. "" $ THEN $ CP_IVP = 0 $ ACMS$ORIG_IVP_PRIVS = F$SETPRV("BYPASS,SYSPRV,SYSNAM,CMEXEC,OPER") $ IF F$PRIVILEGE("BYPASS,SYSPRV,SYSNAM,CMEXEC,OPER") $ THEN $ CP_IVP = 1 $ ELSE $ ENDIF $ ELSE $ ENDIF $ IF ((CP_INS).AND.(CP_IVP).AND.(CP_POST)) $ THEN $ CHECKED_STRING = "privileges" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (privileges checked)" (privileges checked) $ WL " (privileges checked)" $ RETURN $ ENDIF $ RETURN $ GOSUB CHECK_DISK_SPACE $CHECK_DISK_SPACE: $ HEADER_OUT = 0 $ DEVKIT_PEAK_BASE = DEVKIT_PEAK-SAMPLE_PEAK_ADJUST-RI_SAMPLE_PEAK_ADJUST-CDD_PEAK_ADJUST-LSE_PEA K_ADJUST $ DEVKIT_NET_BASE = DEVKIT_NET-SAMPLE_NET_ADJUST-RI_SAMPLE_NET_ADJUST-CDD_NET_ADJUST-LSE_NET_ADJ UST $ RTOKIT_PEAK_BASE = RTOKIT_PEAK-CDD_PEAK_ADJUST-LSE_PEAK_ADJUST $ RTOKIT_NET_BASE = RTOKIT_NET-CDD_NET_ADJUST-LSE_NET_ADJUST $ REMKIT_PEAK_BASE = REMKIT_PEAK $ REMKIT_NET_BASE = REMKIT_NET $ IF ACMS$SOFTWARE_INSTALL $ THEN $ PEAK = DEVKIT_PEAK_BASE $ NET = DEVKIT_NET_BASE $ ELSE $ ENDIF $ IF ACMS$SAMPLE_INSTALL $ THEN $ PEAK = PEAK+SAMPLE_PEAK_ADJUST $ NET = NET+SAMPLE_NET_ADJUST $ ENDIF $ IF ACMS$RI_SAMPLE_INSTALL $ THEN $ PEAK = PEAK+RI_SAMPLE_PEAK_ADJUST $ NET = NET+RI_SAMPLE_NET_ADJUST $ ENDIF $ IF ACMS$CDD_INSTALL $ THEN $ PEAK = PEAK+CDD_PEAK_ADJUST $ NET = NET+CDD_NET_ADJUST $ ENDIF $ IF ACMS$LSE_INSTALL $ THEN $ PEAK = PEAK+LSE_PEAK_ADJUST $ NET = NET+LSE_NET_ADJUST $ ENDIF $ CD_DEVICE = "VMI$KWD" $ GOSUB CD_CHECK $CD_CHECK: $ FREE = F$GETDVI("VMI$KWD","FREEBLOCKS") $ IF (FREE.GE.PEAK) $ THEN $ RETURN $ IF VMI$ALTERNATE_KWD $ ENDIF $ IF (.NOT.(HEADER_OUT)) $ THEN $ VMI$CALLBACK SET SAFETY YES $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ CHECKED_STRING = "disk space" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (disk space checked)" (disk space checked) $ WL " (disk space checked)" $ RETURN $ ELSE GOSUB CD_TRAILER $ ENDIF $ RETURN $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_DISK_QUOTAS $CHECK_DISK_QUOTAS: $ USER = F$USER() $ DISK = F$ELEMENT(0,":",F$TRNLNM("VMI$KWD")) $ SET NOON $ DEFINE SYS$ERROR VMI$KWD:QUOTA.LOG $ DEFINE SYS$OUTPUT VMI$KWD:QUOTA.LOG $ SET ON $ SS_INPUT = "VMI$KWD:QUOTA.LOG\QFNOTACT" $ GOSUB SEARCH_STRING $SEARCH_STRING: $! input: SS_INPUT = "file\string" $ SS_FILE = F$ELEMENT(0,"\",SS_INPUT) $ SS_STRING = F$ELEMENT(1,"\",SS_INPUT) $ SS_FOUND = 0 $ CLOSE/NOLOG SS_INFILE $ OPEN/READ SS_INFILE VMI$KWD:QUOTA.LOG $SS_LOOP: $ READ/END=SS_END SS_INFILE SS_INREC $ IF F$LOCATE(SS_STRING,SS_INREC) .EQ. F$LENGTH(SS_INREC) THEN GOTO SS_LOOP $SS_LOOP: $ READ/END=SS_END SS_INFILE SS_INREC $ IF F$LOCATE(SS_STRING,SS_INREC) .EQ. F$LENGTH(SS_INREC) THEN GOTO SS_LOOP $SS_FOUND = 1 $SS_END: $ CLOSE/NOLOG SS_INFILE $ RETURN $ IF SS_FOUND $ THEN $ CHECKED_STRING = "disk quotas" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (disk quotas checked)" (disk quotas checked) $ WL " (disk quotas checked)" $ RETURN $ ELSE $ ENDIF $ RETURN $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_SYSTEM_PARAMETERS $CHECK_SYSTEM_PARAMETERS: $ HEADER_OUT = 0 $ CP_INPUT = "CLISYMTBL\CLISYMTBL\500\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT CLISYMTBL $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "GBLPAGES (free)\FREE_GBLPAGES\6000\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT FREE_GBLPAGES $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "GBLPAGFIL\GBLPAGFIL\2048\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT GBLPAGFIL $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "GBLSECTIONS (free)\FREE_GBLSECTS\55\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT FREE_GBLSECTS $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! $! If installing on VMS V6.0 or later on vax, or any AXP, skip this section. $! $ IF (CURRENT_MAJOR_VMS_VERSION .GE. 6) .OR. - ("AXP" .EQS. "AXP") THEN GOTO CONTINUE_PARAM_CHECKS $ CONTINUE_PARAM_CHECKS: $ CP_INPUT = "PQL_DASTLM\PQL_DASTLM\20\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT PQL_DASTLM $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "PQL_DBIOLM\PQL_DBIOLM\12\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT PQL_DBIOLM $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "PQL_DDIOLM\PQL_DDIOLM\20\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT PQL_DDIOLM $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "PQL_MDIOLM\PQL_MDIOLM\20\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT PQL_MDIOLM $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ CP_INPUT = "VIRTUALPAGECNT\VIRTUALPAGECNT\19000\ACMS$FATAL_FLAG" $ GOSUB CHECK_PARAMETERS $CHECK_PARAMETERS: $! input: CP_INPUT = "parameter\vmi_name\minimum\cum_error_flag[\param_error_flag]" $ CP_PARAMETER = F$ELEMENT(0,"\",CP_INPUT) $ CP_VMI_NAME = F$ELEMENT(1,"\",CP_INPUT) $ CP_MINIMUM = F$ELEMENT(2,"\",CP_INPUT) $ CP_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CP_INPUT) $ CP_PARAM_ERROR_FLAG = F$ELEMENT(4,"\",CP_INPUT) $ IF CP_PARAM_ERROR_FLAG .EQS. "\" THEN CP_PARAM_ERROR_FLAG = "" $ VMI$CALLBACK GET_SYSTEM_PARAMETER CP_CURRENT VIRTUALPAGECNT $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ IF CP_CURRENT .GE. CP_MINIMUM THEN GOTO CP_DONE $CP_DONE: $ RETURN $ GOSUB CP_TRAILER $CP_TRAILER: $ IF HEADER_OUT $ ENDIF $ RETURN $ CHECKED_STRING = "system parameters" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (system parameters checked)" (system parameters checked) $ WL " (system parameters checked)" $ RETURN $ RETURN $ IF ACMS$SOFTWARE_INSTALL THEN GOSUB CHECK_PROCESS_QUOTAS $CHECK_PROCESS_QUOTAS: $ HEADER_OUT = 0 $ CQ_INPUT = "ASTLM\ASTLM\24\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","ASTLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "BIOLM\BIOLM\18\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","BIOLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "BYTLM\BYTLM\32768\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","BYTLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "DIOLM\DIOLM\18\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","DIOLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "ENQLM\ENQLM\2000\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","ENQLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "FILLM\FILLM\200\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","FILLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "PRCLM\PRCLM\10\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","PRCLM") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ CQ_INPUT = "PGFLQUO\PGFLQUOTA\12800\ACMS$FATAL_FLAG" $ GOSUB CHECK_QUOTAS $CHECK_QUOTAS: $! input: CQ_INPUT = "quota\minimum\cum_error_flag[\quota_error_flag]" $ CQ_QUOTA = F$ELEMENT(0,"\",CQ_INPUT) $ CQ_VMI_NAME = F$ELEMENT(1,"\",CQ_INPUT) $ CQ_MINIMUM = F$ELEMENT(2,"\",CQ_INPUT) $ CQ_CUM_ERROR_FLAG = F$ELEMENT(3,"\",CQ_INPUT) $ CQ_QUOTA_ERROR_FLAG = F$ELEMENT(4,"\",CQ_INPUT) $ IF CQ_QUOTA_ERROR_FLAG .EQS. "\" THEN CQ_QUOTA_ERROR_FLAG = "" $ CQ_CURRENT = F$GETJPI("","PGFLQUOTA") $! Next line fudges BYTLM to account for quota consumed per currently open file $ IF CQ_QUOTA .EQS. "BYTLM" THEN CQ_CURRENT = (CQ_CURRENT+(192(200-190))) $ IF CQ_CURRENT .GE. CQ_MINIMUM THEN GOTO CQ_DONE $CQ_DONE: $ RETURN $ GOSUB CQ_TRAILER $CQ_TRAILER: $ IF HEADER_OUT $ ENDIF $ RETURN $ CHECKED_STRING = "process account quotas" $ GOSUB CHECKED_MESSAGE $ CHECKED_MESSAGE: $ WO "" $ WL "" $ WO " (process account quotas checked)" (process account quotas checked) $ WL " (process account quotas checked)" $ RETURN $ RETURN $ IF ACMS$FATAL_FLAG THEN GOTO BADENV_EXIT $BADENV_EXIT: $ SET NOON $ TS_STRING = "Installation of ACMS is aborting because prerequisites are not met" $ GOSUB TIMESTAMP_BAD $TIMESTAMP_BAD: $ WO "" $ WL "" $ WO " ////////////////////////////////////////////////////////////////////////" //////////////////////////////////////////////////////////////////////// $ WL " ////////////////////////////////////////////////////////////////////////" $ GOSUB TIMESTAMP $TIMESTAMP: $ TIME = F$TIME() $ DATE = F$EXTRACT(0,11,TIME) $ TIME = F$EXTRACT(12,5,TIME) $ WO " Installation of ACMS is aborting because prerequisites are not met" Installation of ACMS is aborting because prerequisites are not met $ WL " Installation of ACMS is aborting because prerequisites are not met" $ WO " at 14:15 on 22-MAY-1997 at 14:15 on 22-MAY-1997 $ WL " at 14:15 on 22-MAY-1997 $ RETURN $ WO " ////////////////////////////////////////////////////////////////////////" //////////////////////////////////////////////////////////////////////// $ WL " ////////////////////////////////////////////////////////////////////////" $ WO "" $ RETURN $ GOTO BAD_EXIT $BAD_EXIT: ! All error exits must come through here $ VMI$CALLBACK SET SHUTDOWN NO $! Copyright (c) 1996 Digital Equipment Corporation. All rights reserved. $vmi_id = "X1-023" $vmi_msg_id = "L004" $sevms_invseclass = %X22C0 $class_prot = f$getsyi("CLASS_PROT") $set nocontrol=y $if f$type(vmi$installing) .eqs. "" then goto STEP_1 $vmi$save_verify = f$verify(vmi$debug) $exit vmi$_success $ GOTO COMMON_EXIT $COMMON_EXIT: ! All exits must come through here $ SET NOON $ IF F$TYPE(SAVE_MSG) .NES. "" THEN SET MESSAGE $ CLOSE/NOLOG ACMS$INSTALLATION_LOG $ CLOSE/NOLOG AP_INFILE $ CLOSE/NOLOG INFILE $ CLOSE/NOLOG LSE_FILE $ CLOSE/NOLOG OUTFILE $ CLOSE/NOLOG PRCFILE $ CLOSE/NOLOG RF_CLEANUP $ CLOSE/NOLOG RF_FILES $ CLOSE/NOLOG RF_IMAGES $ CLOSE/NOLOG RF_LIST $ CLOSE/NOLOG RK_INFILE $ CLOSE/NOLOG SS_INFILE $ IF (F$SEARCH("VMI$ROOT:[SYSUPD]VAXINFOINSTALL.COM")) .NES. "" THEN - DELETE/NOLOG VMI$ROOT:[SYSUPD]VAXINFOINSTALL.COM; $ IF F$SEARCH("VMI$ROOT:[SYSMGR]ACMSSISTART.OLD") .NES. "" THEN - DELETE/NOLOG VMI$ROOT:[SYSMGR]ACMSSISTART.OLD; $ IF F$TRNLNM("ACMS$INSTALLATION") .NES. "" THEN DEASSIGN/TABLE:LNM$PROCESS_DIRECTORY ACMS$INSTALLATION $ IF F$TRNLNM("ACMS$INSTALLATION_LOG") .NES. "" THEN DEASSIGN/JOB ACMS$INSTALLATION_LOG $ IF F$TRNLNM("ACMSMSG","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMSMSG $ IF F$TRNLNM("ACMS$GENEXE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$GENEXE $ IF F$TRNLNM("ACMUTLMSG","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMUTLMSG $ IF F$TRNLNM("ACMADUSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMADUSHR $ IF F$TRNLNM("ACMCDUSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMCDUSHR $ IF F$TRNLNM("ACMCMUSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMCMUSHR $ IF F$TRNLNM("ACMTDUSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMTDUSHR $ IF F$TRNLNM("ACMTWPSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMTWPSHR $ IF F$TRNLNM("ACMSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMSHR $ IF F$TRNLNM("ACMIWPSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMIWPSHR $ IF F$TRNLNM("ACM_VERSION","LNM$PROCESS") .NES. "" THEN DEASSIGN ACM_VERSION $ IF F$TRNLNM("SYSUAF","LNM$PROCESS") .NES. "" THEN DEASSIGN SYSUAF $ IF F$TRNLNM("ACMS$AUTHORIZE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$AUTHORIZE $ IF F$TRNLNM("ACMS$ADU","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$ADU $ IF F$TRNLNM("ACMS$DMU","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DMU $ IF F$TRNLNM("ACMS$CDDSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$CDDSHR $ IF F$TRNLNM("ACMS$FILE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$FILE $ IF F$TRNLNM("ACMS$IMAGE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$IMAGE $ IF F$TRNLNM("ACMS$REPLACE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$REPLACE $ IF F$TRNLNM("ACMS$TEST","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$TEST $ IF F$TRNLNM("ACMS$TSSSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$TSSSHR $ IF F$TRNLNM("ACMS$DECFORMS","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DECFORMS $ IF F$TRNLNM("ACMS$DECTRACE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DECTRACE $ IF F$TRNLNM("ACMS$RI_EXAMPLES","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$RI_EXAMPLES $ IF F$TRNLNM("ACMS$DBG_FILE","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DBG_FILE $ IF F$TRNLNM("ACMS$SHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$SHR $ IF F$TRNLNM("ACMS$ACMSPAR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$ACMSPAR $ IF F$TRNLNM("ACMS$SYSUAF_LIST","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$SYSUAF_LIST $ IF F$TRNLNM("ACMS$STOP","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$STOP $ IF F$TRNLNM("ACMS$TDUSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$TDUSHR $ IF F$TRNLNM("ACMS$ACMSADU","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$ACMSADU $ IF F$TRNLNM("ACMS$ACMS$DBG","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DBG $ IF F$TRNLNM("ACMS$EXC","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$EXC $ IF F$TRNLNM("ACMS$LSEDIT","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$LSEDIT $ IF F$TRNLNM("ACMS$RDBSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$RDBSHR $ IF F$TRNLNM("ACMS$DBMSHR","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$DBMSHR $ IF F$TRNLNM("ACMS$EXAMPLES","LNM$PROCESS") .NES. "" THEN DEASSIGN ACMS$EXAMPLES $! NOTE -- important that next three SETPRV commands are executed in the order IVP/POST/INSTALL $ IF F$TYPE(ACMS$ORIG_IVP_PRIVS) .NES. "" THEN STRING = F$SETPRV("BYPASS,SYSPRV,SYSNAM,CMEXEC,OPER") $ IF F$TYPE(ACMS$ORIG_POST_PRIVS) .NES. "" THEN STRING = F$SETPRV("OPER,SYSPRV,SYSNAM,CMKRNL") $ IF F$TYPE(ACMS$ORIG_INSTALL_PRIVS) .NES. "" THEN STRING = F$SETPRV("NOBYPASS") $ EXIT 284491776 $s = $status $tmp = f$verify(vmi$debug) %VMSINSTAL-E-INSFAIL, The installation of ACMSDEVA_ V4.1 has failed. Adding history entry in VMI$ROOT:[SYSUPD]VMSINSTAL.HISTORY VMSINSTAL procedure done at 14:16 (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ dir sys$library:cdd.exe Directory SYS$COMMON:[SYSLIB] CDDLIBSHR.EXE;2 CDDPROSHR.EXE;2 CDDSHR.EXE;3 Total of 3 files. (site@david0) $ [K (site@david0) $ dir sys$library:cdd.exe/siz=date %DCL-W-IVKEYW, unrecognized keyword - check validity and spelling \DATE\ (site@david0) $ [K (site@david0) $ dir sys$library:cdd.exe/siz/date Directory SYS$COMMON:[SYSLIB] CDDLIBSHR.EXE;2 220 18-SEP-1996 13:12:29.57 CDDPROSHR.EXE;2 23 18-SEP-1996 13:00:41.01 CDDSHR.EXE;3 9168 5-NOV-1996 13:29:56.86 Total of 3 files, 9411 blocks. (site@david0) $ (site@david0) $ (site@david0) $ [K (site@david0) $ dir sys$library:cdd.exe/siz/date/prot Directory SYS$COMMON:[SYSLIB] CDDLIBSHR.EXE;2 220 18-SEP-1996 13:12:29.57 (RWED,RWED,RWED,RE) CDDPROSHR.EXE;2 23 18-SEP-1996 13:00:41.01 (RWED,RWED,RWED,RE) CDDSHR.EXE;3 9168 5-NOV-1996 13:29:56.86 (RWED,RWED,RWED,RE) Total of 3 files, 9411 blocks. (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ anal/image/int sys$library:cddshr.exe This is an OpenVMS Alpha image file IMAGE HEADER Fixed Header Information image format major id: 3, minor id: 0 header block count: 4 image type: shareable (EIHD$K_LIM) global section major id: %X'06', minor id: %X'00000D' match control: ISD$K_MATLEQ I/O channel count: default I/O pagelet count: default Symbol Vector Virtual Address: %X'004E0000' Symbol Vector Size: 27072 bytes Virtual Memory Block Size: 65536 (BPAGE = 16) Fixup Section Virtual Address: %X'00530000' linker flags: (0) EIHD$V_LNKDEBUG 0 (1) EIHD$V_LNKNOTFR 0 (2) EIHD$V_NOP0BUFS 0 (3) EIHD$V_PICIMG 1 (4) EIHD$V_P0IMAGE 0 (5) EIHD$V_DBGDMT 1 (6) EIHD$V_INISHR 0 (7) EIHD$V_XLATED 0 (8) EIHD$V_BIND_CODE 0 (9) EIHD$V_BIND_DATA 0 (10) EIHD$V_MKTHREADS 0 (11) EIHD$V_UPCALLS 0 Press RETURN to continue, or enter a period (.) for next file: Image Activation Information first transfer address: %X'00446C20' second transfer address: %X'00000000' third transfer address: %X'00000000' Press RETURN to continue, or enter a period (.) for next file: Global Symbol Table & Debug Symbol Table Information debug symbol table VBN: 0, byte count: 0 global symbol table VBN: 9005, record count: 173 debug module/psect table VBN: 0, byte count: 0 Press RETURN to continue, or enter a period (.) for next file: Image Identification Information image name: "CDDSHR" image file identification: "CDD V7.0" link date/time: 5-NOV-1996 13:29:32.96 linker identification: "T10-58" Press RETURN to continue, or enter a period (.) for next file: (site@david0) $ (site@david0) $ (site@david0) $ show sys OpenVMS V7.1 on node DAVID0 22-MAY-1997 14:17:15.27 Uptime 4 00:35:21 Pid Process Name State Pri I/O CPU Page flts Pages 20200101 SWAPPER HIB 16 0 0 00:00:02.30 0 0 20200503 SITE_1 LEF 6 903 0 00:00:01.17 1864 431 20200106 CONFIGURE HIB 10 13 0 00:00:00.01 34 19 20200107 LANACP HIB 13 55 0 00:00:00.04 126 95 20200508 Ted's Netscape LEF 6 31377 0 00:00:32.01 4247 965 20200109 IPCACP HIB 10 10 0 00:00:00.01 33 39 2020010A ERRFMT HIB 8 3025 0 00:00:01.62 47 62 2020010B CACHE_SERVER HIB 16 3 0 00:00:00.00 24 34 2020010C CLUSTER_SERVER HIB 8 12 0 00:00:00.02 51 70 2020010D OPCOM HIB 7 186 0 00:00:00.04 95 35 2020010E AUDIT_SERVER HIB 10 170 0 00:00:00.10 182 162 2020010F JOB_CONTROL HIB 9 1294 0 00:00:00.38 48 68 20200110 QUEUE_MANAGER HIB 9 1118 0 00:00:00.84 149 189 20200111 SECURITY_SERVER HIB 10 110 0 00:00:00.27 410 235 20200112 DNS$ADVER LEF 5 29480 0 00:00:13.36 618 339 20200113 LES$ACP_V30 HIB 8 111 0 00:00:00.06 73 82 20200114 REMACP HIB 13 80 0 00:00:00.02 34 24 20200115 NET$ACP HIB 4 493 0 00:00:00.51 191 123 20200116 NET$EVD HIB 6 18 0 00:00:00.06 291 234 20200117 NET$MOP HIB 6 657 0 00:00:03.01 152 176 20200118 SMISERVER HIB 9 39 0 00:00:00.04 172 76 20200519 DECW$MWM LEF 4 382 0 00:00:03.79 1567 259 2020011A LATACP HIB 14 11 0 00:00:00.72 73 59 2020051B SITE_4 LEF 4 363 0 00:00:00.41 1294 78 2020011C SYMBIONT_1 HIB 4 25 0 00:00:00.03 97 46 2020051D SITE_2 LEF 4 351 0 00:00:00.39 1150 75 2020011E DECW$FD LEF 7 5462 0 00:00:04.77 368 203 2020051F SITE_5 LEF 5 412 0 00:00:00.87 1582 312 20200120 DECW$SERVER_0 HIB 6 26296 0 00:14:35.42 3869 1644 20200521 DECW$TE_0521 COM 4 284 0 00:00:02.76 1218 429 20200422 SITE_6 LEF 5 701 0 00:00:00.50 2099 338 20200523 SITE_9 HIB 8 6351 0 00:00:01.98 3552 88 20200325 RDMS_MONITOR LEF 15 589 0 00:00:00.41 3405 29 2020042E TP_SERVER HIB 10 12 0 00:00:00.05 93 117 20200532 SITE_11 CUR 4 7128 0 00:00:04.83 7361 76 20200341 Purveyor HIB 7 3009 0 00:00:01.91 250 226 20200342 Purveyor 0001 LEF 6 9355 0 00:00:02.52 410 270 2020025D Ted's Clock LEF 6 5020 0 00:00:01.05 819 330 2020016C DECW$MWM_8428 LEF 6 429 0 00:00:00.47 1574 73 2020016D SITE_7 LEF 9 399 0 00:00:00.43 1454 75 2020016E SITE_10 LEF 9 418 0 00:00:00.55 1662 75 2020016F SITE_8 LEF 9 484 0 00:00:00.87 1960 72 20200474 SITE_3 LEF 4 16758 0 00:00:04.71 4748 57 20200281 UCX$LPD_QUEUE HIB 4 64 0 00:00:00.09 232 111 20200282 UCX$INET_ACP HIB 10 240 0 00:00:00.09 143 107 20200283 UCX$INET_ROUTED LEF 5 57336 0 00:00:01.98 226 69 S 20200284 SMTP_DAVID0_01 HIB 4 3129 0 00:00:02.27 577 441 20200285 HP5 HIB 4 63 0 00:00:00.13 252 129 20200287 UCX$POP_1 HIB 10 716 0 00:00:00.40 753 323 N 20200288 UCX$BIND LEF 10 4374 0 00:00:00.59 463 154 N (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ authorize show site %DCL-W-IVVERB, unrecognized command verb - check validity and spelling \AUTHORIZE\ (site@david0) $ set sys$system %DCL-W-IVKEYW, unrecognized keyword - check validity and spelling \SYS$SYSTEM\ (site@david0) $ [K (site@david0) $ set def sys$system (site@david0) $ r authorize )0[4l = UAF> show site Username: SITE Owner: SYSTEM MANAGER Account: SYSTEM UIC: [1,4] ([SYSTEM]) CLI: DCL Tables: DCLTABLES Default: SYS$SYSDEVICE:[SITE.LOGIN] LGICMD: LOGIN Flags: Primary days: Mon Tue Wed Thu Fri Sat Sun Secondary days: No access restrictions Expiration: (none) Pwdminimum: 8 Login Fails: 0 Pwdlifetime: 90 00:00 Pwdchange: 15-MAR-1997 01:15 Last Login: 22-MAY-1997 14:13 (interactive), 22-MAY-1997 12:12 (non-interactive) Maxjobs: 0 Fillm: 200 Bytlm: 64000 Maxacctjobs: 0 Shrfillm: 0 Pbytlm: 0 Maxdetach: 0 BIOlm: 150 JTquota: 4096 Prclm: 10 DIOlm: 150 WSdef: 256 Prio: 4 ASTlm: 250 WSquo: 1024 Queprio: 0 TQElm: 20 WSextent: 20480 CPU: (none) Enqlm: 2000 Pgflquo: 81920 Authorized Privileges: ACNT ALLSPOOL ALTPRI AUDIT BUGCHK BYPASS CMEXEC CMKRNL DIAGNOSE DOWNGRADE EXQUOTA GROUP GRPNAM GRPPRV IMPERSONATE IMPORT LOG_IO MOUNT NETMBX OPER PFNMAP PHY_IO PRMCEB PRMGBL PRMMBX PSWAPM READALL SECURITY SETPRV SHARE SHMEM SYSGBL SYSLCK SYSNAM SYSPRV TMPMBX UPGRADE VOLPRO WORLD Default Privileges: ACNT ALLSPOOL ALTPRI AUDIT BUGCHK BYPASS CMEXEC CMKRNL DIAGNOSE DOWNGRADE EXQUOTA GROUP GRPNAM GRPPRV IMPERSONATE IMPORT LOG_IO MOUNT NETMBX OPER PFNMAP PHY_IO PRMCEB PRMGBL PRMMBX PSWAPM READALL SECURITY SETPRV SHARE SHMEM SYSGBL SYSLCK SYSNAM SYSPRV TMPMBX UPGRADE VOLPRO WORLD UAF> 7[7m Exit [m8 %UAF-I-NOMODS, no modifications made to system authorization file %UAF-I-NAFNOMODS, no modifications made to network proxy database %UAF-I-RDBNOMODS, no modifications made to rights database = (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ dict oper )0[4l = CDO> show ver Installed version of Oracle CDD/Repository is V7.0 CDO> CDO> 7[7m Exit [m8 = (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ mc sql$ )0[4l = SQL> show ver Current version of SQL is: Oracle Rdb SQL V7.0-0 SQL> 7[7m Exit [m8 = (site@david0) $ (site@david0) $ (site@david0) $ (site@david0) $ lo SITE logged out at 22-MAY-1997 14:18:42.81
4172.2		CLUSTA::HALL	Bill Hall - ACMS Engineering - ZKO2-2	`Thu May 22 1997 17:34`	6
	ACMS V4.1 will not work on OpenVMS Alpha V7.1 at all. Even if they get it installed, ACMSHR.EXE will not install due to system version mismatch. They need ACMS V4.2
4172.3	thanks	CSC32::J_HENSON	Don't get even, get ahead!	`Fri May 23 1997 12:16`	3
	Thanks, Bill. That's exactly what I need to know. Jerry

Conference clusta::acms

4172.0. "acms 4.1 and cdd 7.0 license problem" by CSC32::J_HENSON (Don&#039;t get even, get ahead!) Thu May 22 1997 16:35

4172.0. "acms 4.1 and cdd 7.0 license problem" by CSC32::J_HENSON (Don't get even, get ahead!) Thu May 22 1997 16:35