Microsoft Internet Business Development Kit/PRODUCT_CD.iso/sqlsvr/alpha/setup.inf

INI File | 1995-12-25 | 447.6 KB | 11,012 lines

[Shell Commands]
    set-title "SQL Server Setup"
    set-subst LF = "\n"
    set Exit_Code = $(!SETUP_ERROR_GENERAL)

    ifstr(i) $(!STF_OS) == "NT"
        install LoadSetupLibrary
    else
        install LoadSetupWLibrary
    endif

    StartWait
    read-syms GeneralConstants
    read-syms LanguageVar
    detect    LanguageVar

    ifstr(i) $(Debug) == "ON"
        LibraryProcedure Result, $(!DLLSQL), Debugger "15"
    endif

checksrcdir =+
    read-syms UiVars
    detect    UiVars

    read-syms SetupInstFlags
    detect SetupInstFlags

    EndWait
    read-syms InternationalSetup
    read-syms SetupInit$(!STF_LANGUAGE)

    ifstr(i) $(!STF_OS) == "NT"
        read-syms WindowsNT$(!STF_LANGUAGE)
    else
        read-syms Windows95$(!STF_LANGUAGE)
    endif

    ifstr(i) $(!SQLBooksInst) == "NO"
        set !SQLBooksType = "3"
    endif

    LibraryProcedure !ComputerName, $(!DLLSQL), GetMachineName
    LibraryProcedure !SQLSetupModule, $(!DLLSQL), SQLDLLInit $(STF_HWND)
    LibraryProcedure !SetupFileVersion, $(!DLLSQL), GetProductFileVersion $(!SQLSetupModule)
    LibraryProcedure TestKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam)
    ifstr(i) $(!STF_OS) == "NT"
        LibraryProcedure !WrkStaVersion, $(!DLLSQL), IsWorkStationVersion $(!SQLReleaseNumber)
    else
        set !WrkStaVersion = "TRUE"
    endif
    ifstr(i) $(TestKey) != "KEY_ERROR"
        set !SQL95Keys = "TRUE"
        LibraryProcedure Result, $(!DLLSQL), RegClose $(TestKey)
    endif
    set !OldDSQuery = ""
    set !ClientModKey = ""
    LibraryProcedure ClientKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLClient)"\"$(!RegSQLConnectTo)
    ifstr(i) $(ClientKey) == "KEY_ERROR"
        set OldClientKey = "TRUE"
        LibraryProcedure ClientKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegOldSQLClient)"\"$(!RegSQLConnectTo)
    else
        set OldClientKey = "FALSE"
    endif
    ifstr(i) $(ClientKey) != "KEY_ERROR"
        LibraryProcedure !OldDSQuery, $(!DLLSQL), RegRead $(ClientKey),$(!RegValDSQUERY)
        LibraryProcedure !OldMachineAlias, $(!DLLSQL), RegRead $(ClientKey),$(!ComputerName)
        ifstr(i) $(!OldDSQuery) == "KEY_ERROR"
            set !OldDSQuery = ""
        else
            LibraryProcedure Result, $(!DLLSQL), RegClose $(ClientKey)
            set ClientKey = ""
            set ModClient = "TRUE"
        endif
        ifstr(i) $(ClientKey) != ""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(ClientKey)
        endif
    endif
    shell "" GetAliasConnectTo $(!ComputerName)
    shell "" DoNetDefaults

    ifstr(i) $(!SQL95Keys) != "TRUE"
        ifstr(i) $(ClientModKey) != ""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(ClientModKey)
            set ClientModKey = ""
        endif
        ifstr(i) $(!STF_OS) == "NT"
            shell "" DoDupKeys
            ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
                set !KeysDupped = "TRUE"
            else
                set !KeysDupped = "FALSE"
            endif
        else
            set KeysDupped = "FALSE"
        endif
        ifstr(i) $(ModClient) == "TRUE"
            LibraryProcedure !ClientModKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLClient),$(!RegSQLConnectTo),""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(!ClientModKey),$(!RegValDSQUERY),$(!RegTypeString),$(!ClientLibPipes),""
        endif
        ifstr(i) $($R0) == "STATUS_FAILED"
            goto setupnotdone
        endif
    else
        ifstr(i) $(ModClient) == "TRUE"
            LibraryProcedure !ClientModKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLClient),$(!RegSQLConnectTo),""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(!ClientModKey),$(!RegValDSQUERY),$(!RegTypeString),$(!ClientLibPipes),""
        endif
        LibraryProcedure OpenServerKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr)
        ifstr(i) $(OpenServerKey) != "KEY_ERROR"
            LibraryProcedure !OldListenOn, $(!DLLSQL), RegRead $(!OpenServerKey),$(!RegValListenOn)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
        else
            set !OldListenOn = {}
            set !OldListenOn = >( $(!NetLibPipes),","$(!ServerNMPipeName))
        endif
    endif
    read-syms FailedUserSetupQuit$(!STF_LANGUAGE)
win95utils_back =+
    shell "" DoWelcome
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto setupnotdone
    endif

    shell "" DoTestSQLServer60
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        read-syms OldSQLBeta3$(!STF_LANGUAGE)
        set !Addl95Text = " "
        goto setupnotdone
    endif

    shell "" DoCheckOS
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto setupnotdone
    endif

    shell "" DoSetLocalSetup
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto setupnotdone
    endif
    set !AllowExit = "YES"
    set !OldRemoteComputer = $(!RemoteComputer)

    ifstr(i) $(!STF_OS) == "NT"
        shell "" DoCheckServerKeyAccess
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        endif
    endif

    ifstr(i) $(!RegistryRebuild) != ""
        ifstr(i) $(!STF_OS) == "NT"
            shell "" StopService $(!SQLMonitorService)
            shell "" StopService $(!SQLSchedulerService)
            shell "" StopService $(!SQLOldSchedulerService)
            shell "" StopService $(!SQLOldServerService)
            shell "" StopService $(!SQLServerService)
            shell "" DoLicense
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                goto setupnotdone
            endif
            shell "" DoNewInstall
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                goto setupnotdone
            else
                read-syms InstalledTag$(!STF_LANGUAGE)
                goto installdone
            endif
        endif
    endif
poseSetupType =+
    ifstr(i) $(!STF_OS) == "95"
        shell "" DoSelectClientInstall
        ifstr(i) $($R0) == "STATUS_BACK"
            goto win95utils_back
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        endif
        ifstr(i) $(!InstallType) == "3"
            shell "" DoInstallUtils
        else
            shell "" DoClientNuke
        endif
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            ifstr(i) $(!InstallType) == "3"
                read-syms UtilInstallTag$(!STF_LANGUAGE)
            else
                read-syms CompletionClientNuked$(!STF_LANGUAGE)
                goto setupdone
            endif
            goto installdone
        endif
    endif
    shell "" DoSetupType
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto setupnotdone
    endif
    ifstr(i) $(!InstallType) != "3"
        shell "" DoAdminCheck
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        endif
    endif
    ifstr(i) $(!InstallType) == "1"
        shell "" DoTestSMS
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            read-syms SMSConflict$(!STF_LANGUAGE)
            set !Addl95Text = " "
            goto setupnotdone
        endif
        set !NewInstall = "TRUE"
        shell "" DoClearInstallVars
        ifstr(i) $(!KeysDupped) == "TRUE"
            shell "" DoDelete95Key $(!ComputerName), ""
        endif
        shell "" DoNewInstall
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms InstalledTag$(!STF_LANGUAGE)
            goto installdone
        endif
    else-ifstr(i) $(!InstallType) == "2"
        shell "" DoTestSMS
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            read-syms SMSConflict$(!STF_LANGUAGE)
            set !Addl95Text = " "
            goto setupnotdone
        endif
        shell "" DoTestUpgradeVersion
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            read-syms FailedUserSetupQuit$(!STF_LANGUAGE)
            set !Addl95Text = " "
            goto setupnotdone
        endif
        shell "" DoUpgrade
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms UpgradedTag$(!STF_LANGUAGE)
            ifstr(i) $(!Remote) == "TRUE"
                shell "" DoDelete95Key $(!RemoteComputer),"DELOLD"
            else
                ifstr(i) $(!KeysDupped) == "TRUE"
                    shell "" DoDelete95Key $(!ComputerName),"DELOLD"
                endif
            endif
            goto installdone
        endif
    else-ifstr(i) $(!InstallType) == "3"
        shell "" DoInstallUtils
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms UtilInstallTag$(!STF_LANGUAGE)
            goto installdone
        endif
    else-ifstr(i) $(!InstallType) == "4"
        shell "" DoNetInstall
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms STR_CompletionNetworks
        endif
    else-ifstr(i) $(!InstallType) == "5"
        shell "" RestoreOldClientKey
        shell "" DoInstallLang
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms CompletionLangInst$(!STF_LANGUAGE)
        endif
    else-ifstr(i) $(!InstallType) == "6"
        read-syms RebuildError$(!STF_LANGUAGE)
        shell "" RestoreOldClientKey
        shell "" DoRebuildDatabase
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms CompletionNewCharSort$(!STF_LANGUAGE)
        endif
    else-ifstr(i) $(!InstallType) == "7"
        shell "" RestoreOldClientKey
        shell "" DoServerOptions
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms CompletionOptions$(!STF_LANGUAGE)
        endif
    else-ifstr(i) $(!InstallType) == "8"
        shell "" RestoreOldClientKey
        shell "" DoGetSecurityOptions
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            read-syms STR_CompletionSecurity
        endif
    else-ifstr(i) $(!InstallType) == "9"
        shell "" DoNuke
        ifstr(i) $($R0) == "STATUS_BACK"
            goto poseSetupType
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto setupnotdone
        else
            ifstr(i) $(!RemoteComputer) == ""
                read-syms CompletionNuked$(!STF_LANGUAGE)
            else
                read-syms CompletionNukedRemote$(!STF_LANGUAGE)
            endif
        endif
    endif

setupdone =+
    set Exit_Code = $(!SETUP_ERROR_SUCCESS)
setupnotdone =+
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        ifstr(i) $(!SQL95Keys) != "TRUE"
            ifstr(i) $(!RemoteComputer) != ""
                ifstr(i) $(!RemoteKeysDupped) == "TRUE"
                    shell "" DoDelete95Key $(!RemoteComputer), ""
                endif
            else
                ifstr(i) $(!KeysDupped) == "TRUE"
                    shell "" DoDelete95Key $(!ComputerName), ""
                endif
            endif
        endif
        ifstr(i) $(!LicenseWritten) == "TRUE"
            ifstr(i) $(!InstallType) != "2"
                shell "" DoLicenseNuke
            else
                ifstr(i) $(!KeysDupped) == "TRUE"
                    shell "" DoLicenseNuke
                endif
            endif
        endif
    endif
    ifstr(i) $(!RegValSQL95KeyDB) != ""
        LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr),$(!RegSQLSvrParam),$(!AdminACL)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValSQL95KeyDB)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
    endif
    ifstr(i) $(!WasSingleMode) == "NO"
        ifstr(i) $(!RegValSingleUserArg) != ""
            LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(!OpenParamKey),$(!RegValSingleUserArg)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)
        endif
    endif
    ifstr(i) $(!STF_OS) == "NT"
        ifstr(i) $(!NonCriticalScriptFailure) == ""
            ifstr(i) $(!NonCriticalODBCInstallFail) == ""
                ifstr(i) $(!Addl95Text) == ""
                    set !AddlText = ""
                endif
            else
                read-syms ODBCInstallFail$(!STF_LANGUAGE)
            endif
        else
            read-syms STR_NonCriticalScriptFail
        endif
    endif
    ifstr(i) $(!Addl95Text) == ""
        read-syms SetupDoneDlg$(!STF_LANGUAGE)
    else
        read-syms SetupDoneDlg95$(!STF_LANGUAGE)
    endif
    LibraryProcedure DlgDone, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
setnotdone_wait =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) != "DLGBUTTON1"
        goto setnotdone_wait
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgDone)
    goto end

installdone =+
    set Exit_Code = $(!SETUP_ERROR_SUCCESS)
    ifstr(i) $(!RemoteComputer) == ""
        read-syms InstallCompletedLocal$(!STF_LANGUAGE)
    else
        read-syms InstallCompletedRemote$(!STF_LANGUAGE)
    endif
    ifstr(i) $(!STF_OS) == "NT"
        ifstr(i) $(!NonCriticalScriptFailure) == ""
            ifstr(i) $(!NonCriticalODBCInstallFail) == ""
                set !AddlText = ""
            else
                read-syms ODBCInstallFail$(!STF_LANGUAGE)
            endif
        else
            read-syms STR_NonCriticalScriptFail
        endif
    endif

    ifstr(i) $(!IniFilePath) == ""
        read-syms InstallCompleted$(!STF_LANGUAGE)
        LibraryProcedure DlgDone, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
installdone_wait =+
        LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
        ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgDone)
            goto end
        else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgDone)
            goto rebootend
        else
            goto installdone_wait
        endif
    else
        LibraryProcedure bReboot, $(!DLLSQL), GetPrivProfStr "Scripts", "ForceReboot", $(!IniFilePath)
        ifstr(i) $(bReboot) == "TRUE"
            goto rebootend
        else
            goto end
        endif
    endif

rebootend =+
    install Install-Shutdown

end =+
    ifstr(i) $(!RemoteSQLDrive) != ""
        LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteSQLDrive)
    endif
    ifstr(i) $(!RemoteNTDrive) != ""
        LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteNTDrive)
    endif
    ifstr(i) $(!RemoteDBDrive) != ""
        LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteDBDrive)
    endif
    ifstr(i) $(!STF_OS) == "NT"
        LibraryProcedure Result, $(!DLLSQL), DeleteSecurityAttribute $(!AdminACL)
    endif
    ifstr(i) $(!ClientModKey) != ""
        shell "" RestoreOldClientKey
        LibraryProcedure Result, $(!DLLSQL), RegClose $(!ClientModKey)
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLDLLFinish
    install FreeSetupLibrary
    exit

[RestoreOldClientKey]
    ifstr(i) $(!ClientModKey) != ""
        ifstr(i) $(!OldDSQuery) != ""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(!ClientModKey),$(!RegValDSQUERY),$(!RegTypeString),$(!OldDSQuery),""
        endif
        shell "" RestoreOldAliasName
    endif
    return

[GetAliasConnectTo]
    set !OldMachineAlias = ""
    LibraryProcedure ClientKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLClient)"\"$(!RegSQLConnectTo)
    ifstr(i) $(ClientKey) == "KEY_ERROR"
        LibraryProcedure ClientKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegOldSQLClient)"\"$(!RegSQLConnectTo)
    endif
    ifstr(i) $(ClientKey) != "KEY_ERROR"
        LibraryProcedure !OldMachineAlias, $(!DLLSQL), RegRead $(ClientKey),$($0)
        ifstr(i) $(!OldMachineAlias) == "KEY_ERROR"
            set !OldMachineAlias = ""
            set !OldComputerName = ""
        else
            ifstr(i) $(ClientKey) != ""
                LibraryProcedure Result, $(!DLLSQL), RegClose $(ClientKey)
            endif
            set ClientKey = ""
            ifstr(i) $(!ClientModKey) == ""
                LibraryProcedure !ClientModKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLClient),$(!RegSQLConnectTo),""
            endif
            ifstr(i) $(ClientModKey) == "KEY_ERROR"
                LibraryProcedure !ClientModKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegOldSQLClient),$(!RegSQLConnectTo),""
            endif
            ifstr(i) $(ClientModKey) == "KEY_ERROR"
                set !ClientModKey = ""
            else
                LibraryProcedure Result, $(!DLLSQL), RegDelValue $(!ClientModKey),$($0)
                set !OldComputerName = $($0)
            endif
        endif
        ifstr(i) $(ClientKey) != ""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(ClientKey)
        endif
    endif
    Return

[RestoreOldAliasName]
    ifstr(i) $(!ClientModKey) != ""
        ifstr(i) $(!OldMachineAlias) != ""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(!ClientModKey),$(!OldComputerName),$(!RegTypeString),$(!OldMachineAlias),""
        endif
    endif
    Return

[DoTestUpgradeVersion]
    set Status = "STATUS_FAILED"
    set CompVal = ""
    ifstr(i) $(!CurInstalledVer) == ""
        set Status = "STATUS_SUCCESSFUL"
        goto endDoTestVers
    endif
    LibraryProcedure MainVer, $(!DLLSQL), StrBeforeAndAfter $(!CurInstalledVer),"BEFORE","."
    ifstr(i) $(MainVer) != "6"
        ifstr(i) $(MainVer) == "NT 4"
            set Status = "STATUS_SUCCESSFUL"
            goto endDoTestVers
        endif
    else
        LibraryProcedure CompVal $(!DLLSQL), CompareVersions, $(!MinUpgradeVersion), $(!CurInstalledVer)
        ifstr(i) $(CompVal) == "<"
            set Status = "STATUS_SUCCESSFUL"
        else-ifstr(i) $(CompVal) == "="
            set Status = "STATUS_SUCCESSFUL"
        endif
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !MarketBetaUpgrade = "FALSE"
        endif
    endif
endDoTestVers =+
    ifstr(i) $(Status) != "STATUS_SUCCESSFUL"
        read-syms CantUpgradeBetaDlg$(!STF_LANGUAGE)
        LibraryProcedure SetupTypeDlg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
waitTestVer =+
        LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
        ifstr(i) $(DLGEVENT) == "CONTINUE"
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(SetupTypeDlg)
        else
            goto waitTestVer
        endif
    endif
    Return $(Status)

[DoTestMachineName]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Results, $(!DLLSQL), IsValidMachineName $($0)
    ifstr(i) $(Results) == "FALSE"
        read-syms InvalidMachineName$(!STF_LANGUAGE)
        LibraryProcedure DlgInvalid, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"",""
invalidcont =+
        LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
        ifstr(i) $(DLGEVENT) == "CONTINUE"
            set Status = "STATUS_SUCCESSFUL"
        else-ifstr(i) $(DLGEVENT) == "EXIT"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto invalidcont
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgInvalid)
    else
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[QueryUserQuit]
    set Status     = "STATUS_FAILED"
    set UserAction = CANCEL
    read-syms ExitWarningDlg$(!STF_LANGUAGE)
    ui start "ExitWarning"
    ifstr(i) $(DLGEVENT) == "YES"
        set Status     = "STATUS_SUCCESSFUL"
        set UserAction = "OK"
        read-syms FailedUserQuit$(!STF_LANGUAGE)
        set !MsgText = $(!AddlText)
        set !AddlText = ""
    else-ifstr(i) $(DLGEVENT) == "NO"
        set Status     = "STATUS_SUCCESSFUL"
        set UserAction = "CANCEL"
    endif
    Return $(Status) $(UserAction)

[DoSelectClientInstall]
    LibraryProcedure Key, $(!DLLSQL), RegOpen "",$(!RegSQLClientSetup)
    ifstr(i) $(Key) != "KEY_ERROR"
        LibraryProcedure !SQLPath, $(!DLLSQL), RegRead $(Key),$(!RegValSQLPath)
        ifstr(i) $(!SQLPath) != "KEY_ERROR"
            set !ClientInstallKey = "TRUE"
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)
        set !DefSQLPath = $(!SQLPath)
        LibraryProcedure !ClientInstallDrive, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"BEFORE","\"
    endif
    StartWait
    set Status = "STATUS_FAILED"
    read-syms SelectClientInstallDlg$(!STF_LANGUAGE)
    LibraryProcedure SetupTypeDlg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!ClientInstallKey) == "TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON2","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(SetupTypeDlg),"UNIBUTTON2","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(SetupTypeDlg),"UNIBUTTON1","FALSE"
    else
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON2","FALSE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(SetupTypeDlg),"UNIBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(SetupTypeDlg),"UNIBUTTON2","FALSE"
    endif
    clisetuptype = +
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = "STATUS_SUCCESSFUL"
        LibraryProcedure CliInstallType, $(!DLLSQL), GetCheckedRadio $(SetupTypeDlg)
        ifstr(i) $(CliInstallType) == "2"
            set !InstallType = "9"
        else
            set !InstallType = "3"
        endif
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
        else
            goto clisetuptype
        endif
    else
        goto clisetuptype
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(SetupTypeDlg)
endCliSetupType =+
    Return $(Status)

[DoTestSQLServer60]
    set Status = "STATUS_FAILED"
    LibraryProcedure TestKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServer60Server)
    ifstr(i) $(TestKey) == "KEY_ERROR"
        set Status = "STATUS_SUCCESSFUL"
    else
        LibraryProcedure Result, $(!DLLSQL), RegClose $(TestKey)
    endif
    Return $(Status)

[DoTestSMS]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure TestKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!SMSVersionKey)
    ifstr(i) $(TestKey) != "KEY_ERROR"
        LibraryProcedure SMSVersion, $(!DLLSQL), RegRead $(TestKey),$(!RegValSMSVersion)
        ifstr(i) $(SMSVersion) != "KEY_ERROR"
            ifint $(SMSVersion) < "632"
                read-syms UpgradeOverSMS$(!STF_LANGUAGE)
                shell "" UpgradeQ
                set Status = $($R0)
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(TestKey)
    endif
    Return $(Status)

[DoClearInstallVars]
    set !Owner = ""
    set !Organiz = ""
    set !MasterDBFileName = ""
    set !IntegratedSecurity = ""
    set !MultipleNetworkSupport = ""
    set !CurInstalledVer = ""
    set !OldSQLPath = $(!SQLPath)
    set !SQLPath = ""
    ifstr(i) $(!RemoteComputer) == ""
        set !LogicalSQLDrive = ""
        set !RemoteDBDrive = ""
        set !LogicalDBDrive = ""
        set !DefSQLPath = $(!RemoteSQLDrive)"\"$(!DefSQLStub)
    else
        set !DefSQLPath = $(!Primary)"\"$(!DefSQLStub)
    endif
    Return

[DoDupKeys]
    set Status = "STATUS_FAILED"
    ifstr(i) $(!SQL95Key) == "TRUE"
        set Status = "STATUS_SUCCESSFUL"
        goto endkeys
    endif
    LibraryProcedure,OldKey,$(!DLLSQL),RegOpen "\\"$(!ComputerName),$(!RegOldSQLServerServer)
    ifstr(i) $(OldKey) == "KEY_ERROR"
        set !NewInstall = "TRUE"
        set Status = "STATUS_NOTDUP"
        goto endkeys
    endif
    LibraryProcedure,Results,$(!DLLSQL),RegClose $(OldKey)
    ifstr(i) $(!RemoteComputer) != ""
        LibraryProcedure,Results,$(!DLLSQL),RegDupKey "\\"$(!ComputerName),"C:",$(!RemoteNTDrive),$(!RegOldSQLServer),$(!RegSQLServer)
    else
        LibraryProcedure,Results,$(!DLLSQL),RegDupKey "\\"$(!ComputerName),"C:","C:",$(!RegOldSQLServer),$(!RegSQLServer)
    endif
    ifstr(i) $(Result) != ""
        read-syms DupKeyError$(!STF_LANGUAGE)
        return $(Status)
    endif
    ifstr(i) $(!RemoteComputer) != ""
        LibraryProcedure,Results,$(!DLLSQL),RegDupKey "\\"$(!ComputerName),"C:",$(!RemoteNTDrive),$(!RegOldSQLServerServer),$(!RegSQLServerServer)
    else
        LibraryProcedure,Results,$(!DLLSQL),RegDupKey "\\"$(!ComputerName),"C:","C:",$(!RegOldSQLServerServer),$(!RegSQLServerServer)
    endif
    ifstr(i) $(Result) != ""
        read-syms DupKeyError$(!STF_LANGUAGE)
        return $(Status)
    else
        set Status = "STATUS_SUCCESSFUL"
        set OldMail = {}
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer)"\"$(!RegOldSQLServerSvr),$(!RegSQLServerVer)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer)"\"$(!RegOldSQLServerSvr),$(!RegSQLSvrParam)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegOldSQLServerSvr)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLMonitorService)"\"$(!RegSQLSvrParam)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLMonitorService)
        LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
        LibraryProcedure !OldListenOn, $(!DLLSQL), RegRead $(OpenParamKey),$(!RegValListenOn)
        LibraryProcedure !OldListenOn $(!DLLSQL),UpdateNetlibStrings,$(!OldListenOn)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValListenOn)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValSMPStat)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValRealTime)
        LibraryProcedure OldMail, $(!DLLSQL), RegRead $(OpenParamKey),$(!RegValMailEnabled)
        ifstr(i) $(OldMail) != "KEY_ERROR"
            set NewMail = {}
            ForListDo $(OldMail)
                ifstr(i) $($) == $(!OldSQLMapi)
                    set NewMail = >( $(NewMail),$(!RegValSqlMailPair))
                else
                    set NewMail = >( $(NewMail),$($) )
                endif
            EndForListDo
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValMailEnabled),$(!RegTypeMulti),$(NewMail),""
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
    endif
endkeys =+
    return $(Status)

[DoAdminCheck]
    set Status = "STATUS_FAILED"
    LibraryProcedure Result, $(!DLLSQL), IsAdmin
    ifstr(i) $(Result) == "ACCESS_DENIED"
        read-syms InsufficientPriv
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto admin_end
    endif
    ifstr(i) $(!StandAlone) == ""
        shell "" StartService $(!LANManService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto admin_end
        endif
    endif
    set Status = "STATUS_SUCCESSFUL"
admin_end =+
    Return $(Status)

[DoCheckOS]
    set Status = "STATUS_FAILED"
    ifstr(i) $(!STF_OS) != "NT"
        set Status = "STATUS_SUCCESSFUL"
        set !RdrCopy = "FALSE"
        goto checkos_done
    endif
    LibraryProcedure Result, $(!DLLSQL), VerifyNTVersion $(!MinOSVersion)
    ifstr(i) $(Result) == ""
        set Status = "STATUS_SUCCESSFUL"
    else
        read-syms STR_InferiorOS
        set !MsgText = $(!AddlText)
    endif
    LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLWinNT)
    ifstr(i) $(Key) != "KEY_ERROR"
        LibraryProcedure !BuildNumber, $(!DLLSQL), RegRead $(Key),$(!RegValCurBuild)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)
        ifstr(i) $(!BuildNumber) != "KEY_ERROR"
            ifstr(i) $(!RemoteComputer) == ""
                set !LocalBuildNumber = $(!BuildNumber)
            endif
            ifint $(!BuildNumber) > $(!RdrMinOSVersion)
                set Result = ""
            else
                set Result = "FALSE"
            endif
        else
            LibraryProcedure Result, $(!DLLSQL), VerifyNTVersion $(!RdrMinOSVersion)
        endif
    else
        LibraryProcedure Result, $(!DLLSQL), VerifyNTVersion $(!RdrMinOSVersion)
    endif
    ifstr(i) $(Result) != ""
        LibraryProcedure Result, $(!DLLSQL), IsWorkStationStarted
        ifstr(i) $(Result) == "TRUE"
            set !RdrCopy = "TRUE"
        else
            set !RdrCopy = "FALSE"
        endif
    else
        set !RdrCopy = "FALSE"
    endif
checkos_done =+
    Return $(Status)

[DoCheckServerKeyAccess]
    set Status = "STATUS_FAILED"
    LibraryProcedure Result, $(!DLLSQL), IsAdmin
    ifstr(i) $(Result) != "ACCESS_DENIED"
        LibraryProcedure NewSvrKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),"",
        ifstr(i) $(NewSvrKey) != "KEY_ERROR"
            LibraryProcedure TmpKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\Test","",$(!AdminACL)
            ifstr(i) $(TmpKey) != "KEY_ERROR"
                LibraryProcedure Result, $(!DLLSQL), RegClose $(TmpKey)
                LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),"Test"
                set Status = "STATUS_SUCCESSFUL"
            else
                read-syms STR_InvalidSystemAdmin
                set !MsgText = $(!AddlText)
            endif
            LibraryProcedure Result, $(!DLLSQL), RegClose $(NewSvrKey)
        else
            read-syms STR_InvalidSystemAdmin
            set !MsgText = $(!AddlText)
        endif
    else
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[DoWelcome]
    set Status = "STATUS_SUCCESSFUL"
    ifstr(i) $(!IniFilePath) == ""
        set Status = "STATUS_FAILED"
        read-syms WelcomeDlg$(!STF_LANGUAGE)
        LibraryProcedure DlgWelcome, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
        welcome = +
        LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
        ifstr(i) $(DLGEVENT) == "CONTINUE"
            set Status = "STATUS_SUCCESSFUL"
        else-ifstr(i) $(DLGEVENT) == "EXIT"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto welcome
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgWelcome)
    endif
    Return $(Status)

[DoAlreadyInstalled]
    set Status = "STATUS_FAILED"
    read-syms AlreadyInstalledDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgAlready, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
already =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto already
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgAlready)
    Return $(Status)

[GetPreviousInstallationInfo]
    set !Owner = ""
    set !Organiz = ""
    set !MasterDBFileName = ""
    set !Registration = ""
    set !IntegratedSecurity = ""
    set !MultipleNetworkSupport = ""
    set !CurInstalledVer = ""
    LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLServerVer)
    ifstr(i) $(Key) == "KEY_ERROR"
        LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegOldSQLServerServer)"\"$(!RegSQLServerVer)
    endif
    ifstr(i) $(Key) != "KEY_ERROR"
        LibraryProcedure !Owner, $(!DLLSQL), RegRead $(Key),$(!RegValRegOwner)
        LibraryProcedure !Organiz, $(!DLLSQL), RegRead $(Key),$(!RegValRegOrg)
        LibraryProcedure !ProductID, $(!DLLSQL), RegRead $(Key),$(!RegValRegPID)
        LibraryProcedure !CurInstalledVer, $(!DLLSQL), RegRead $(Key),$(!RegSQLServerVer)
        ifstr(i) $(!ProductID) == "KEY_ERROR"
            set !ProductID = ""
        endif
        ifstr(i) $(!Organiz) == "KEY_ERROR"
            set !Owner = ""
            goto prevDisplay
        endif

        set !FullName = $(!Owner)
        set !OrgName = $(!Organiz)
        set !Registration = $(!Owner)" - "$(!Organiz)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)

        shell "" RegGetSecuritySupport
        ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
            ifstr(i) $($R1) == "2"
                set !IntegratedSecurity = "TRUE"
            endif
        endif

        LibraryProcedure OpenServerKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr)
        ifstr(i) $(OpenServerKey) != "KEY_ERROR"
            LibraryProcedure ListenOn, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValListenOn)
            ifstr(i) $(ListenOn) != "KEY_ERROR"
                QueryListSize NumArgs $(ListenOn)
                ifint $(NumArgs) > "1"
                    ForListDo $(ListenOn)
                        ifstr(i) $($) == $(!NetLibRPC)
                            ifint $(NumArgs) == "2"
                                set !MultipleNetworkSupport = ""
                            else
                                set !MultipleNetworkSupport = "TRUE"
                            endif
                        else
                            set !MultipleNetworkSupport = "TRUE"
                        endif
                    EndForListDo
                endif
            endif
            LibraryProcedure !MSMailUser, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValMSMailUser)
            ifstr(i) $(!MSMailUser) == "KEY_ERROR"
                set !MSMailUser = ""
                set !MSMailPwd = ""
            else
                LibraryProcedure !MSMailPwd, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValMSMailPwd)
            endif
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
        endif
        LibraryProcedure OpenServerKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegRPCNetLib)
        ifstr(i) $(OpenServerKey) != "KEY_ERROR"
            LibraryProcedure !MultiProtEncrypt, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValRPCSec)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
        endif

        LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLSetup)
        ifstr(i) $(Key) != "KEY_ERROR"
            LibraryProcedure !SQLPath, $(!DLLSQL), RegRead $(Key),$(!RegValSQLPath)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)
        endif

        shell "" DoExtractMasterAndErrorlog "\\"$(!ComputerName)
        set !MasterDBPath = $($R2)
        set !MasterDBFileName = $($R4)
        set !DefMasterPath = $(!MasterDBPath)
        set !DefMasterDB = $(!MasterDBFileName)

        ifstr(i) $(!RemoteSQLDrive) != ""
            LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
            set !SQLPath = $(!RemoteSQLDrive)$(Temp)
        else
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"BEFORE","\"
            set !LogicalSQLDrive = $(Before)
        endif
        ifstr(i) $(!RemoteDBDrive) != ""
            LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!MasterDBPath),"AFTER",":"
            set !MasterDBPath = $(!RemoteDBDrive)$(Temp)
        else
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!MasterDBPath),"BEFORE","\"
            set !LogicalDBDrive = $(Before)
        endif
        set !DefSQLPath = $(!SQLPath)
    endif

prevDisplay =+
    ifstr(i) $(!STF_OS) == "NT"
        ifstr(i) $(!RegistryRebuild) == ""
            ifstr(i) $(!Owner) == ""
                shell "" DoLicense
                ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                    goto end_getprevii
                endif
            else
                shell "" DoAlreadyInstalled
                ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                    read-syms FailedUserSetupQuit$(!STF_LANGUAGE)
                    goto end_getprevii
                endif
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), DeleteSecurityAttribute $(!AdminACL)
        LibraryProcedure !AdminACL, $(!DLLSQL), CreateSecurityAttribute "\\"$(!ComputerName),$(!AdministratorsGroup),"GENERIC_ALL","BUILTIN"
        ifstr(i) $(!AdminACL) == "CANNOT_CREATE_ACL"
            set !AdminACL = ""
        endif
    else
        set !AdminACL = ""
    endif
    set Status = "STATUS_SUCCESSFUL"
end_getprevii =+
    Return $(Status)

[DoNewInstall]
    set Status = "STATUS_FAILED"
    ifstr(i) $(!LicenseSet) != "TRUE"
        shell "" DoLicense
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst2
        endif
    endif
    shell "" DoTestMachineName $(!ComputerName)
    ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    endif
    ifstr(i) $(!RegistryRebuild) == ""
        shell "" DoGetLicensingMode
    else
        ifint $(!LocalBuildNumber) > $(!LicenseMin)
            shell "" DoGetLicensingMode
        endif
    endif
    ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif

    StartWait
    read-syms InstallError$(!STF_LANGUAGE)
    ifint $(!LogicalSystemMemory) < $(!MinSystemMemory)
        read-syms InsufficientMem$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_new_inst
    endif

    LibraryProcedure CNChk, $(!DLLSQL), StrBeforeAndAfter $(!ComputerName),"LASTBEFORE"," "
    ifstr(i) $(CNChk) != ""
        read-syms STR_SpacedComputerName
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_new_inst
    endif
    ifstr(i) $(!GrownPageFile) == ""
        LibraryProcedure Result, $(!DLLSQL), GrowPageFile "10000000"
        set !GrownPageFile = "1"
    endif

    ifstr(i) $(!RegistryRebuild) == ""
        shell "" StopService $(!SQLMonitorService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
        shell "" StopService $(!SQLSchedulerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
        shell "" StopService $(!SQLOldSchedulerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
        shell "" StopService $(!SQLServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
        shell "" StopService $(!SQLOldServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif

        LibraryProcedure !MSVCFileVersion, $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!MSVCModule)
        LibraryProcedure !MFCFileVersion, $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!MFCModule)
        LibraryProcedure !MSVC20FileVersion $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!MSVC20Module)
        LibraryProcedure !CTL3DFileVersion $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!CTL3DModule)

        StartWait
        set GetCost = "TRUE"
        install InstallBaseInstallFiles
        set GetCost = ""
        LibraryProcedure InstallationReqSpace, $(!DLLSQL), CheckStringFormat "FMT_SPACE","KILO",$(SpaceCost)


        set !AddlScripts = $(!DefScriptList)
        set !NetSelList        = {}
        set !CheckInstList = $(!CheckInstDefList)
        set !CheckInstRetList = $(!CheckInstDefRetList)
        set !CheckInstList = >( $(!CheckInstList), $(!SQLPubs))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!Pubs))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLXPStar1))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLXPStar2))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLOle1))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!XpStarChk1))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!XpStarChk2))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!SqlOleChk1))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLHelpSQL))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!RetHelpSQL))
        set !SortOrderSelList = $(!SortISOSelList)
        set !TheCharSet       = *( $(!CharSetSelList), 2 )
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(!DefSortFileIndex),"3"
        set !TheSortConfigValue = *( $(!SortOrderSelList), $(Idx) )
        set-sub Idx = $(Idx),1
        set !TheSortFile = *( $(!SortOrderSelList), $(Idx) )
    endif
    set !ServerNMPipeName = $(!SvrPipe)
    shell "" DoNetDefaults
    EndWait

backToSQLPath =+
    shell "" DoGetSpaceSQLPath GetSpaceSQLPathDlg$(!STF_LANGUAGE),$(InstallationReqSpace),$(SpaceCost),"1","SPACE","",$(!LogicalSQLDrive)
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto end_new_inst
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif
    set !SQLPath = $($R1)$($R2)
    set !DefSQLPath = $(!SQLPath)
    set !CreateSQLPath = $(!SQLPath)
    ifstr(i) $(!RemoteComputer) == ""
        set !LogicalSQLDrive = $($R1)
        set !LogicalDBDrive = $(!LogicalSQLDrive)
    else
        set !RemSQLPath = $(!LogicalSQLDrive)$($R2)
    endif
    set !DefMasterPath = $(!SQLPath)"\"$(!DataDir)"\"$(!DefMasterDB)
backToMasterPath =+
    shell "" DoGetSpaceMasterPath GetSpaceMasterPathDlg,$(InstallationReqSpace),$(SpaceCost),"1","SPACE","",$(!LogicalDBDrive)
    ifstr(i) $($R0) == "STATUS_BACK"
        goto backToSQLPath
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif

backToSQLBooks =+
    ifstr(i) $(!SQLBooksInst) == "NO"
        goto backToNewOpts
    endif
    shell "" DoGetSQLBooksInstall
    ifstr(i) $($R0) == "STATUS_BACK"
        goto backToMasterPath
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif

backToNewOpts =+
    shell "" DoNewOptions
    ifstr(i) $($R0) == "STATUS_BACK"
        ifstr(i) $(!SQLBooksInst) == "NO"
            goto backToMasterPath
        else
            goto backToSQLBooks
        endif
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_new_inst
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif
    ifstr(i) $(!RegistryRebuild) == ""
        shell "" DoGetUserID
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backToNewOpts
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = "STATUS_USERQUIT"
            goto end_new_inst
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
    endif
skipuserid=+
    shell "" DoNetLibPrompts $(!NetLibList), "FALSE"
    ifstr(i) $($R0) == "STATUS_BACK"
        goto skipuserid
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif
    set NewNetLibs = $($R1)
    set NewNetAddrs = $($R2)

    ifstr(i) $(!RegistryRebuild) == ""
        read-syms MailManDlg$(!STF_LANGUAGE)
        LibraryProcedure DlgMailMan, $(!DLLSQL), BillBoard $(STF_HWND),$(DlgTemplate),$(!SQLDlgNames)

        read-syms ProgressCopyVars
        install InstallBaseInstallFiles
        ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)
            read-syms FileCouldNotBeCopied$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto end_new_inst
        endif
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)

        ifstr(i) $(!RemoteComputer) == ""
            read-syms DLG_BillboardSearchRename
            LibraryProcedure DlgMailMan, $(!DLLSQL), BillBoard $(STF_HWND),$(DlgTemplate),$(!SQLDlgNames)
            LibraryProcedure Result, $(!DLLSQL), Sleepy "2"
            ForListDo $(!ClientDLLList)
                LibraryProcedure Result, $(!DLLSQL), FindAndRenameVersionFile $(!SQLPath)"\"$(!Binaries)"\"$($)
                ifstr(i) $(Result) != ""
                    set !OneOffFile = $(Result)
                    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)
                    read-syms STR_DLLRenameError
                    LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                    goto end_new_inst
                endif
            EndForListDo
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)
        endif
    endif
    ifstr(i) $(!RemoteComputer) == ""
        shell "" UpdateOleReg "", ""
    endif

    ifstr(i) $(!SQLBooksType) != "3"
        shell "" UpdateMSIN
    endif
    ifstr(i) $(!KeysDupped) == "TRUE"
        LibraryProcedure OpenServerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
        ifstr(i) $(OpenServerKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValListenOn),$(!RegTypeMulti),$(!DefListenOn),""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
        endif
    endif

    ifstr(i) $(!RegistryRebuild) == ""
        shell "" DoReBuild "TRUE"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
    else
        shell "" RegWriteSerialNumberInfo
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_new_inst
        endif
        shell "" DoPerfmonNuke "\\"$(!ComputerName)
        shell "" UpdateSCM "TRUE"
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegLicInfoKey),$(!RegOldLicenseSubKey)
    shell "" UpdateRegistry $(NewNetLibs),$(NewNetAddrs),"TRUE"
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_new_inst
    endif

    ifstr(i) $(!RemoteComputer) == ""
        install CreateSQLProgmanItems
    endif

    ifstr(i) $(!RegistryRebuild) == ""
        ifstr(i) $(!ODBCInstall) == "YES"
            shell "" InstallODBC
            ifstr(i) $(!RISCInst) != "YES"
                LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr "ODBC 32 bit Data Sources","Local Server","SQL Server (32 bit)",$(!SystemDirectory)"\..\ODBC.INI"
                LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr "Local Server","Driver32",$(!SystemDirectory)"\SQLSRV32.DLL",$(!SystemDirectory)"\..\ODBC.INI"
                LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft","Query","","HKEY_CURRENT_USER"
                ifstr(i) $(ResultKey) != "KEY_ERROR"
                    LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                    LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft\Query","2.0","","HKEY_CURRENT_USER"
                    ifstr(i) $(ResultKey) != "KEY_ERROR"
                        LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                        LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft\Query\2.0","Data Sources","","HKEY_CURRENT_USER"
                        ifstr(i) $(ResultKey) != "KEY_ERROR"
                            set TempList = {}
                            LibraryProcedure TempList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),"Software\Microsoft\Query\2.0\Data Sources","VALUENAMES"
                            ifcontains(i) "Local Server" in $(TempList)
                                set TempList = {}
                            else
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Local Server","REG_SZ","sa",""
                                LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                            endif
                        endif
                    endif
                endif

                LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE","",""
                ifstr(i) $(ResultKey) != "KEY_ERROR"
                    LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                    LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE\ODBC","",""
                    ifstr(i) $(ResultKey) != "KEY_ERROR"
                        LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                        LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE\ODBC\ODBC.INI","",""
                        ifstr(i) $(ResultKey) != "KEY_ERROR"
                            LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                            LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE\ODBC\ODBC.INI\Local Server","",""
                            ifstr(i) $(ResultKey) != "KEY_ERROR"
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Description","REG_SZ","",""
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Driver","REG_SZ",$(!SystemDirectory)"\SQLSRV32.DLL",""
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"OEMTOANSI","REG_SZ","Yes",""
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Server","REG_SZ","(local)",""
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Trusted_Connection","REG_SZ","",""
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"UseProcForPrepare","REG_SZ","Yes",""
                                LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                            endif
                            LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources","",""
                            ifstr(i) $(ResultKey) != "KEY_ERROR"
                                LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Local Server","REG_SZ","SQL Server",""
                                LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                            endif
                        endif
                    endif
                endif
            endif
        endif
    endif

    ifstr(i) $(!RemoteComputer) != ""
        shell "" UpdateOleReg "", ""
    endif

    shell "" RegisterMSDTC

    set Status = "STATUS_SUCCESSFUL"

    end_new_inst = +

    StartWait

    ForListDo $(!DelDLLList)
        LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(!SystemDirectory)"\"$($)
    EndForListDo

    ifstr(i) $(!RemoteComputer) != ""
        LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(!SystemDirectory)"\"$(!DelODBCDLLList)
        LibraryProcedure Result, $(!DLLSQL), Delnode "TREE_DELETE",$(!SQLPath)"\"$(!SQLODBCDir)
    endif

    EndWait
end_new_inst2 =+
    Return $(Status)

[DoInstallUtils]
    set Status = "STATUS_FAILED"
    set DlgMailMan = ""
    set !UserType = "User"
    read-syms UtilInstallError$(!STF_LANGUAGE)
    ifstr(i) $(!STF_OS) == "NT"
        shell "" DoAdminCheck
        ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
            set !UserType = "Admin"
        endif
    endif
    set !MsgText = ""
backToUtilPath =+
    shell "" DoGetUtilsAndPath
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto end_inst_utils
    else-ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
        set !SQLPath = $($R1)$($R2)
        set !CreateSQLPath = $(!SQLPath)
        ifstr(i) $(!RemoteComputer) == ""
            set !LogicalSQLDrive = $($R1)
        endif
    else
        goto end_inst_utils
    endif

    ifstr(i) $(!SQLBooksInst) == "NO"
        goto noSQLBooks
    endif
    shell "" DoGetSQLBooksInstall
    ifstr(i) $($R0) == "STATUS_BACK"
        goto backToUtilPath
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto end_inst_utils
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_inst_utils
    endif
noSQLBooks =+
    read-syms MailManDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgMailMan, $(!DLLSQL), BillBoard $(STF_HWND),$(DlgTemplate),$(!SQLDlgNames)

    ForListDo $(!ClientDLLList)
        LibraryProcedure Result, $(!DLLSQL), FindAndRenameVersionFile $(!SQLPath)"\"$(!Binaries)"\"$($)
    EndForListDo

    read-syms ProgressCopyVars
    install InstallUtilFiles
    ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
        read-syms FileCouldNotBeCopied$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_inst_utils
    endif

        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\REGSVR32 /s "$(!SQLPath)"\"$(!Binaries)"\"$(!SQLOle32)

        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\REGSVR32 /s "$(!SQLPath)"\"$(!Binaries)"\"$(!ODSOle32)
        LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(!SQLPath)"\"$(!Binaries)"\REGSVR32.EXE"

    ifstr(i) $(!SQLBooksType) != "3"
        shell "" UpdateMSIN
    endif

    ifstr(i) $(!STF_OS) == "NT"
        set ConnectPath = "\\"$(!ComputerName)
    else
        set ConnectPath = ""
    endif

    ifstr(i) $(!UserType) == "Admin"
        shell "" RegWriteSystemPaths $(ConnectPath),$(!RegSystemPaths),""
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_inst_utils
        endif
    else
        shell "" RegWriteSystemPaths $(ConnectPath),$(!RegUserPaths),"1"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_inst_utils
        endif
    endif

    shell "" RegWriteDBLibDefaults $(ConnectPath)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_inst_utils
    endif

    shell "" RegWriteClientKeys $(ConnectPath)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_inst_utils
    endif

    ifstr(i) $(!RemoteComputer) == ""
        install CreateUtilProgmanItems
    endif

    ifstr(i) $(!ODBCInstall) == "YES"
        shell "" InstallODBC
    endif

    set Status = "STATUS_SUCCESSFUL"
    end_inst_utils = +
    ifstr(i) $(DlgMailMan) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)
    endif
    EndWait
    Return $(Status)

[DoUpgrade]
    set Status = "STATUS_FAILED"
    set BillyBoard = ""
    set !UpgErrors = ""
    set !WasSingleMode = ""
    set Pre42 = "YES"
    ifstr(i) $(!LicenseSet) != "TRUE"
        shell "" DoLicense
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif
    endif
    shell "" DoTestMachineName $(!ComputerName)
    ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto finish_upgrade
    endif
    ifstr(i) $(!RegistryRebuild) == ""
        shell "" DoGetLicensingMode
    else
        ifint $(!LocalBuildNumber) > $(!LicenseMin)
            shell "" DoGetLicensingMode
        endif
    endif
    ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto finish_upgrade
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    shell "" DoLicense60Nuke
    shell "" DoNetDefaults
    LibraryProcedure OpenServerKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr)
    ifstr(i) $(OpenServerKey) != "KEY_ERROR"
        LibraryProcedure !ListenOn, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValListenOn)
        ForListDo $(!ListenOn)
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE",","
            ifstr(i) $(Before) == $(!NetLibTCPIP)
                set !NetLibList = >( $(!NetLibList), $(!NetLibTCPIP))
            endif
        EndForListDo
    endif
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)

    set !ServerNMPipeName = $(!SvrPipe)
    read-syms UpgradeError$(!STF_LANGUAGE)

backToWarning1 =+
    read-syms UpgradeWarning1$(!STF_LANGUAGE)
    shell "" UpgradeQ
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto finish_upgrade
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif

    LibraryProcedure CNChk, $(!DLLSQL), StrBeforeAndAfter $(!ComputerName),"LASTBEFORE"," "
    ifstr(i) $(CNChk) != ""
        read-syms STR_SpacedComputerName
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto finish_upgrade
    endif

backToGetSQLPath =+
    shell "" DoGetSpaceSQLPath GetUpgradeSQLPathDlg$(!STF_LANGUAGE),$(InstallationReqSpace),$(SpaceCost),"1","","",$(!LogicalSQLDrive)
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto backToWarning1
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto finish_upgrade
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    set !SQLPath = $($R1)$($R2)
    set !DefSQLPath = $(!SQLPath)
    set !CreateSQLPath = $(!SQLPath)
    ifstr(i) $(!RemoteComputer) == ""
        set !LogicalSQLDrive = $($R1)
        ifstr(i) $(!Owner) == ""
            set !LogicalDBDrive = $(!LogicalSQLDrive)
        endif
    else
        set !RemSQLPath = $(!LogicalSQLDrive)$($R2)
    endif

    ifstr(i) $(!MasterDBFileName) == ""
        set !DefMasterPath = $(!SQLPath)"\"$(!DataDir)"\"$(!MasterDB)
    else
        set !DefMasterPath = $(!MasterDBPath)"\"$(!MasterDBFileName)
    endif
backToGetMaster =+
    shell "" DoGetSpaceSQLPath GetUpgradeSQLMasterPathDlg,$(InstallationReqSpace),$(SpaceCost),"1","","MASTERFORMAT_MUSTEXIST",$(!LogicalDBDrive),"MASTERPATH"
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto backToGetSQLPath
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto finish_upgrade
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    set !MasterDBFileName = $($R3)
    set !MasterDBPath = $($R1)$($R2)
    set !DefMasterPath = $(!MasterDBPath)"\"$(!MasterDBFileName)
    ifstr(i) $(!RemoteComputer) == ""
        set !LogicalDBDrive = $($R1)
    endif

backToSQLBooksUp =+
    shell "" DoGetSQLBooksInstall
    ifstr(i) $($R0) == "STATUS_BACK"
        goto backToGetMaster
    else-ifstr(i) $($R0) == "STATUS_USERQUIT"
        set Status = "STATUS_USERQUIT"
        goto finish_upgrade
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif


backtoIntegratedSec =+
    ifstr(i) $(!IntegratedSecurity) == ""
        shell "" DoGetSAPassword
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backToSQLBooksUp
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif
    endif
backtouserid =+
    ifstr(i) $(!RegistryRebuild) == ""
        shell "" DoGetUserID
        ifstr(i) $($R1) == "TRUE"
            ifstr(i) $(!RemoteComputer) == ""
                set NewSQLPath = $(!SQLPath)
            else
                LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
                LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
            endif
            LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_CREATE",$(!SQLServerService) ,$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLServer),"","","",$(StartType),"1"
        endif
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backtoIntegratedSec
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = "STATUS_USERQUIT"
            goto finish_upgrade
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif
    endif
skipsecuserid=+
    read-syms UpgradeWarning2$(!STF_LANGUAGE)
    shell "" UpgradeQ
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif


    shell "" StopService $(!SQLMonitorService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    shell "" StopService $(!SQLSchedulerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    shell "" StopService $(!SQLOldSchedulerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    shell "" StopService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    shell "" StopService $(!SQLOldServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif


    read-syms MailManDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgMailMan, $(!DLLSQL), BillBoard $(STF_HWND),$(DlgTemplate),$(!SQLDlgNames)

    LibraryProcedure !MSVCFileVersion, $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!MSVCModule)
    LibraryProcedure !MFCFileVersion, $(!DLLSQL), GetProductFileVersion $(!STF_CWDDIR)$(!MFCModule)

    read-syms ProgressCopyVars
    install InstallBaseInstallFiles
    ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)
        read-syms FileCouldNotBeCopied$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto finish_upgrade
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgMailMan)

    read-syms DLG_BillboardSearchRename
    LibraryProcedure BillyBoard, $(!DLLSQL), BillBoard $(STF_HWND),$(DlgTemplate),$(!SQLDlgNames)
    LibraryProcedure Result, $(!DLLSQL), Sleepy "2"

    ifstr(i) $(!RemoteComputer) == ""
        ForListDo $(!ClientDLLList)
            LibraryProcedure Result, $(!DLLSQL), FindAndRenameVersionFile $(!SQLPath)"\"$(!Binaries)"\"$($)
            ifstr(i) $(Result) != ""
                set !OneOffFile = $(Result)
                read-syms STR_DLLRenameError
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                goto finish_upgrade
            endif
        EndForListDo
    endif

    ifstr(i) $(!RemoteComputer) == ""
        shell "" UpdateOleReg "", $(BillyBoard)
    endif

    ifstr(i) $(!SQLBooksType) != "3"
        shell "" UpdateMSIN
    endif


    read-syms STR_BillboardPrepUpgrade
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(BillyBoard),$(!BillName)

    ifstr(i) $(!Registration) == ""
        shell "" UpdateSCM "TRUE"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            read-syms SCMError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$($R1)
            goto finish_upgrade
        endif
    else
        set CompVal = ""
        LibraryProcedure CompVal $(!DLLSQL), CompareVersions, $(!ProductVersion), $(!CurInstalledVer)
        ifstr(i) $(CompVal) == ">"
            shell "" UpdateSCM "TRUE"
        else-ifstr(i) $(!RegistryRebuild) != ""
            shell "" UpdateSCM "TRUE"
        else
            shell "" UpdateSCM "FALSE"
            ifstr(i) $(createSvc) == "TRUE"
                ifstr(i) $(!RemoteComputer) == ""
                    set NewSQLPath = $(!SQLPath)
                else
                    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
                    LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
                endif
                LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_CREATE",$(!SQLServerService) ,$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLServer),"","","",$(StartType),"1"
            endif
        endif
    endif

    shell "" UpdateMSIN

    shell "" RegWriteSerialNumberInfo
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegLicInfoKey),$(!RegOldLicenseSubKey)
    ifstr(i) $(!SQL95Keys) != "TRUE"
        shell "" UpdateSCM "TRUE"
    endif
endif
    LibraryProcedure OpenServerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
    ifstr(i) $(OpenServerKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValListenOn),$(!RegTypeMulti),$(!DefListenOn),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
    endif

    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    QueryListSize NumArgs $(TmpParamList)
    LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
    LibraryProcedure Result, $(!DLLSQL), RegSet $(!OpenParamKey),$(!RegValParameter)$(NumArgs),$(!RegTypeString),$(!TraceSQLKeyDB),""
    set !RegValSQL95KeyDB = $(!RegValParameter)$(NumArgs)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)

    LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLSetup),"",$(!AdminACL)
    ifstr(i) $(OpenSetupKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSetupState),$(!RegTypeString),$(!RegValUpgrading),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
    endif

    LibraryProcedure Result, $(!DLLSQL), Sleepy "5"

    shell "" StartService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif

    set Upg95Errors = ""
    LibraryProcedure Upg95Errors,$(!DLLSQL),CheckUpgrade,$(!ComputerName),$(!SALogin),$(!SAPassword),$(!SQLPath)"\"$(!InstallDir)"\"$(!UpgradeOut)

    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto finish_upgrade
    endif

    ifstr(i) $(Upg95Errors) != ""
        set !AddlText = $(Upg95Errors)
        read-syms CheckUpgradeDlg$(!STF_LANGUAGE)
        LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(!AddlText),$(!LF)$(!LF)
        read-syms ChkUpgRepLoc$(!STF_LANGUAGE)
        LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(!AddlText),$(!Addl95Text)
        LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(!AddlText),$(!SQLPath)"\"$(!InstallDir)"\"$(!UpgradeOut)$(!LF)$(!LF)
        set Status = "STATUS_FAILED"
        shell "" DispCheckUpgrade
        goto checkupgnoerror
    endif

    shell "" DoUpgradeChecks
    set DBOperatingSys = $($R2)
    ifstr(i) $($R0) == "STATUS_OKFAILED"
        set Pre42 = "NO"
        goto upgrade_scripts
    else-ifstr(i) $($R0) == "STATUS_FAILED"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$($R1)
        goto finish_upgrade
    endif

    ifstr(i) $(!UpgErrors) != ""
        read-syms CannotUpgrade$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!UpgErrors)
        goto finish_upgrade
    endif

checkupgnoerror=+
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLUpgObjects)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" #U7"$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto finish_upgrade
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLUpgConfigMem)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" #U8"$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto finish_upgrade
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLLogout

upgrade_scripts =+

    read-syms BillboardUpgrading$(!STF_LANGUAGE)
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(BillyBoard),$(!BillName)

    set TmpParamList = {}
    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    ifcontains(i) $(!SingleUserMode) in $(TmpParamList)
        set !WasSingleMode = "YES"
    else
        set !WasSingleMode = "NO"
    endif

    ifstr(i) $(!WasSingleMode) == "NO"
        QueryListSize NumArgs $(TmpParamList)
        LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(!OpenParamKey),$(!RegValParameter)$(NumArgs),$(!RegTypeString),$(!SingleUserMode),""
        set !RegValSingleUserArg = $(!RegValParameter)$(NumArgs)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)
    endif

    set TmpParamList = {}
    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    QueryListSize NumArgs $(TmpParamList)
    LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
    LibraryProcedure Result, $(!DLLSQL), RegSet $(!OpenParamKey),$(!RegValParameter)$(NumArgs),$(!RegTypeString),$(!TFlagBypassSSP),""
    set !RegValBypassSSPArg = $(!RegValParameter)$(NumArgs)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)

    shell "" RegWriteANSIOEM
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif

    read-syms BillboardUpgrading$(!STF_LANGUAGE)
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(BillyBoard),$(!BillName)

    LibraryProcedure Result, $(!DLLSQL), SQLLogout

    shell "" StopService $(!SQLServerService)


    shell "" StartService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto finish_upgrade
    endif

        LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
        ifstr(i) $(Result) == "NO_SERVER"
               read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
               LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
               goto finish_upgrade
        endif

        set !CheckInstList = {}
        ForListDo $(!CheckInstDefList)
            set !CheckInstList = >( $(!CheckInstList), $($))
        EndForListDo
        set TheUpgScripts = $(!UpgScriptsNT42)
        set TheReqMem = $(!UpgMemNT42)
        ifstr(i) $(Pre42) == "NO"
            shell "" CheckMasterSpace
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),"#1"
                goto finish_upgrade
            endif
            ifint $($R1) < $(TheReqMem)
                ifstr(i) $(!UpgOverride) != ""
                    shell "" Popup "4.2 Upgrade Space insufficient. Requires "$(TheReqMem)", has "$($R1)
                else
                    LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!UpgErrorMastSpace)
                    goto finish_upgrade
                endif
            endif
        endif

        shell "" ExecNReturnSQLCmd $(!SQLGetMemory),"INTBIND"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U1"
            goto finish_upgrade
        endif
        set Mem = $($R1)
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        set !CheckInstRetList = $(!CheckInstDefRetList)

        shell "" CreateConfig $(Mem)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif

        shell "" CheckInstalledScripts $(TheUpgScripts)
        set TheUpgScripts = $($R1)
        ifstr(i) $(!BMsdb) == "YES"
            shell "" BuildMSDB
        endif

        ForListDo $(TheUpgScripts)
            StartWait
            ifstr(i) $(!KeysDupped) == "FALSE"
                ifstr(i) $($) == $(!InstAdmin)
                    goto nextScript
                else-ifstr(i) $($) == $(!InstOM)
                    goto nextScript
                endif
            endif
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE","."
            ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$($)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"$(!SAPassword)
            EndWait
            ifstr(i) $(Before) != "EARLY1"
                ifstr(i) $(Result) == "PROCESS_ERROR"
                    read-syms ProcessExecError$(!STF_LANGUAGE)
                    LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                    goto finish_upgrade
                endif
            endif
nextScript =+
        EndForListDo

        shell "" CheckInstallSuccess "TRUE"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif

        shell "" InstallWEBProc
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif

        ifstr(i) $(!Locale) != ""
            shell "" DoLangInst $(!Locale),$(!SAPassword),"CHECKED"
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                goto finish_upgrade
            endif
        endif

        shell "" StopService $(!SQLServerService)

        shell "" UpdateRegistry $(!NetLibList),$(!NetAddresses),"FALSE"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_upgrade
        endif

        ifstr(i) $(!RemoteComputer) == ""
            ifstr(i) $(!MarketBetaUpgrade) == "TRUE"
                set !ProgramTitle =  $(!SQLBetaProgmanGrpName)
                install NukeSQLProgmanItems
                LibraryProcedure Result, $(!DLLSQL), Sleepy "3"
            endif
            set !SQL60ProgramTitle = $(!SQL60ProgmanGrpName)
            install NukeSQL60ProgmanItems
            install CreateSQLProgmanItems
        endif

        ifstr(i) $(!KeysDupped) == "TRUE"
            set RemoveOld = "TRUE"
        else-ifstr(i) $(RemoteKeysDupped) == "TRUE"
            set RemoveOld = "TRUE"
        endif
        ifstr(i) $(RemoveOld) == "TRUE"
            read-syms BillboardRemoveOld$(!STF_LANGUAGE)
            LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(BillyBoard),$(!BillName)
            LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
            LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
            ForListDo $(!DrpBinnFiles)
                LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(NewSQLPath)"\"$(!Binaries)"\"$($)
            EndForListDo
            ForListDo $(!DrpDLLFiles)
                LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(NewSQLPath)"\"$(!Binaries)"\"$($)
            EndForListDo
            ForListDo $(!DrpInsFiles)
                LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(NewSQLPath)"\"$(!InstallDir)"\"$($)
            EndForListDo
        endif

        LibraryProcedure Result, $(!DLLSQL), Delnode "TREE_DELETE", $(!SQLPath)"\"$(!DLLs)

        ifstr(i) $(!RemoteComputer) != ""
            shell "" UpdateOleReg "", $(BillyBoard)
        endif

        shell "" RegisterMSDTC

        ifstr(i) $(!RegistryRebuild) == ""
            ifstr(i) $(!ODBCInstall) == "YES"
                ifstr(i) $(BillyBoard) != ""
                    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(BillyBoard)
                endif
                set BillyBoard = ""
                shell "" InstallODBC
                ifstr(i) $(!RISCInst) != "YES"
                    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr "ODBC 32 bit Data Sources","Local Server","SQL Server (32 bit)",$(!SystemDirectory)"\..\ODBC.INI"
                    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr "Local Server","Driver32",$(!SystemDirectory)"\SQLSRV32.DLL",$(!SystemDirectory)"\..\ODBC.INI"
                    LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft","Query","","HKEY_CURRENT_USER"
                    ifstr(i) $(ResultKey) != "KEY_ERROR"
                        LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                        LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft\Query","2.0","","HKEY_CURRENT_USER"
                        ifstr(i) $(ResultKey) != "KEY_ERROR"
                            LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                            LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft\Query\2.0","Data Sources","","HKEY_CURRENT_USER"
                            ifstr(i) $(ResultKey) != "KEY_ERROR"
                                set TempList = {}
                                LibraryProcedure TempList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),"Software\Microsoft\Query\2.0\Data Sources","VALUENAMES"
                                ifcontains(i) "Local Server" in $(TempList)
                                    set TempList = {}
                                else
                                    LibraryProcedure Result, $(!DLLSQL), RegSet $(ResultKey),"Local Server","REG_SZ","sa",""
                                    LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)
                                endif
                            endif
                        endif
                    endif
                endif
            endif
        endif

        ifstr(i) $(!KeysDupped) == "TRUE"
            ifstr(i) $(!InstallType) == "2"
                install RemoveOldSQLGroup
            endif
        endif

        set Status = "STATUS_SUCCESSFUL"
finish_upgrade =+
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        ifstr(i) $(!RegValSQL95KeyDB) != ""
            LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr),$(!RegSQLSvrParam),$(!AdminACL)
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValSQL95KeyDB)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
        endif
        ifstr(i) $(!WasSingleMode) == "NO"
            ifstr(i) $(!RegValSingleUserArg) != ""
                LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
                LibraryProcedure Result, $(!DLLSQL), RegDelValue $(!OpenParamKey),$(!RegValSingleUserArg)
                LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)
            endif
            set !WasSingleMode = ""
        endif

        ifstr(i) $(!RegValBypassSSPArg) != ""
            LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr),$(!RegSQLSvrParam),$(!AdminACL)
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValBypassSSPArg)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
        endif

        shell "" StopService $(!SQLServerService)
        ForListDo $(!DelDLLList)
            LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(!SystemDirectory)"\"$($)
        EndForListDo
        ifstr(i) $(!RemoteComputer) != ""
            LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE",$(!SystemDirectory)"\"$(!DelODBCDLLList)
            LibraryProcedure Result, $(!DLLSQL), Delnode "TREE_DELETE",$(!SQLPath)"\"$(!SQLODBCDir)
        endif
        ifstr(i) $(BillyBoard) != ""
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(BillyBoard)
        endif
        Return $(Status)

[UpgradeQ]
        LibraryProcedure DlgUpg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
upgradeQ =+
        LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
        ifstr(i) $(DLGEVENT) == "EXIT"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
                goto end_upgrade
            else
                goto upgradeQ
            endif
        else-ifstr(i) $(DLGEVENT) == "CONTINUE"
            set Status = "STATUS_SUCCESSFUL"
        else-ifstr(i) $(DLGEVENT) == "BACK"
            set Status = "STATUS_BACK"
        endif
end_upgrade =+
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgUpg)
        Return $(Status)

[DoUpgradeChecks]
        set Status = "STATUS_FAILED"
        set DBOperatingSys = ""
        set !UpgErrors = ""

        shell "" ExecNReturnSQLCmd $(!SQLGetMasterOS),"STRINGBIND"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U0"
            goto finish_upgrade_check
        endif
        LibraryProcedure DBOperatingSys, $(!DLLSQL), StrBeforeAndAfter $($R1),"BEFORE"," "

        shell "" ExecNReturnSQLCmd $(!SQLCheckVersion),"INTBIND"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U1"
            goto finish_upgrade_check
        endif
        ifstr(i) $($R1) != ""
            ifstr(i) $($R1) != "0"
                set Status = STATUS_OKFAILED
                goto finish_upgrade_check
            endif
        endif

        shell "" CheckMasterSpace
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U3"
            goto finish_upgrade_check
        endif

        shell "" ExecNReturnSQLCmd $(!SQLGetConfOpen),"INTBIND"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U5"
            goto finish_upgrade_check
        endif
        set NumDBs = $($R1)
        shell "" ExecNReturnSQLCmd $(!SQLGetNumDBs),"INTBIND"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set ErrorNumber = " #U6"
            goto finish_upgrade_check
        endif
        ifint $($R1) > $(NumDBs)
            LibraryProcedure !UpgErrors, $(!DLLSQL), AppendToString $(!UpgErrors),$(!UpgErrorNumDBs)
        endif
    endif
    set Status = "STATUS_SUCCESSFUL"
finish_upgrade_check =+
    Return $(Status) $(ErrorNumber) $(DBOperatingSys)

[CheckMasterSpace]
    set Status = "STATUS_FAILED"
    set Size = ""
    LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $(!SQLCheckMasterSpace)
    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$(!LF)
        goto end_getmasterspace
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    ifstr(i) $(Result) != "BAD_RESULTS"
        LibraryProcedure Result, $(!DLLSQL), SQLBindColumn "INTBIND", "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!OneNextRow)
        LibraryProcedure Size, $(!DLLSQL), SQLGetBindingData "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    endif
    set Status = "STATUS_SUCCESSFUL"
end_getmasterspace=+
    Return $(Status) $(Size)

[DoInstallLang]
    set Status = "STATUS_FAILED"
    set BillyBoard = ""
    read-syms LangError$(!STF_LANGUAGE)
backToGetLangInfo =+
    shell "" DoGetLangInfo
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto end_instlang
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_instlang
    endif

    set LanguageName = $($R1)
    set SAPassword = $($R2)
    set DefaultLanguage = $($R3)

    set !DestPath = $(!SQLPath)"\"$(!LocalesDir)"\"$(LanguageName)
    read-syms GetLangFileDlg$(!STF_LANGUAGE)
    set !SQLDLGPath = $(!DefSQLDLGPath)
    shell "" DoGetPath
    ifstr(i) $($R0) == "STATUS_BACK"
        goto backToGetLangInfo
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_instlang
    endif
    set !SrcPath = $(!PathOut)

    read-syms ProgressCopyVars
    install CopyLangFiles
    ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
        read-syms FileCouldNotBeCopied$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_instlang
    endif

    StartWait
    read-syms InstLangingDlg$(!STF_LANGUAGE)
    LibraryProcedure BillyBoard, $(!DLLSQL), BillBoard $(STF_HWND),"",$(!SQLDlgNames)

    shell "" StartService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_instlang
    endif

    shell "" DoLangInst $(LanguageName),$(SAPassword),$(DefaultLanguage)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_instlang
    endif

    set Status = "STATUS_SUCCESSFUL"
end_instlang =+
    ifstr(i) $(BillyBoard) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(BillyBoard)
    endif
    EndWait
    Return $(Status)

[DoLangInst]
    set Status = "STATUS_FAILED"
    StartWait
    ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!LangInst)" /S"$(!ServerName)" /P"$($1)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(!LangInstOut)" /L"$(!SQLPath)" "$($0)
    ifstr(i) $(Result) == "PROCESS_ERROR"
        read-syms ProcessExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!LangInst)" "$(!AddlText)
        goto end_instlang
    else-ifstr(i) $(Result) != "0"
        read-syms ProcessRetError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!LangInst)" "$(!AddlText)" "$(Result)
        goto end_instlang
    endif

    ifstr(i) $($2) == "CHECKED"
        LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$($1)
        ifstr(i) $(Result) != "NO_SERVER"
            LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLSetLang)
            ifstr(i) $(Result) == "BAD_SQL_EXEC"
                read-syms SQLExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" UST #1"$(!LF)
                LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                goto end_instlang
            endif
            LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLReconfigure)
            ifstr(i) $(Result) == "BAD_SQL_EXEC"
                read-syms SQLExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" UST #2"$(!LF)
                LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                goto end_instlang
            endif
        else
            read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        endif
    endif
    set Status = "STATUS_SUCCESSFUL"
end_instlang =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    EndWait
    Return $(Status)

[DoGetServerParameters]
    set Status = "STATUS_FAILED"
    LibraryProcedure ParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    read-syms ServerParamsDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgParams, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"1",$(ParamList)
    ifstr(i) $(ParamList) != "KEY_ERROR"
        LibraryProcedure CurSel, $(!DLLSQL), DlgSetCmbCurSel $(DlgParams),"LISTBOX1","-1"
    endif
lang_info =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        set Status = "STATUS_USERQUIT"
        goto end_langinfo
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        LibraryProcedure CurSel, $(!DLLSQL), DlgGetCmbCurSel $(DlgParams),"LISTBOX1"
        LibraryProcedure Param, $(!DLLSQL), DlgGetEditText $(DlgParams),"EDIT1"
        ifstr(i) $(Param) != ""
            LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgParams),"LISTBOX1",$(Param)
            LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgParams),"EDIT1",""
            ifstr(i) $(CurSel) == "-1"
                LibraryProcedure CurSel, $(!DLLSQL), DlgSetCmbCurSel $(DlgParams),"LISTBOX1","0"
            endif
        endif
        goto lang_info
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        LibraryProcedure CurSel, $(!DLLSQL), DlgGetCmbCurSel $(DlgParams),"LISTBOX1"
        LibraryProcedure Result, $(!DLLSQL), DlgDeleteCmbEntry $(DlgParams),"LISTBOX1",$(CurSel)
        ifint $(CurSel) > "1"
            set-sub CurSel = $(CurSel),1
        else
            set CurSel = 0
        endif
        LibraryProcedure CurSel, $(!DLLSQL), DlgSetCmbCurSel $(DlgParams),"LISTBOX1",$(CurSel)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgParams),"EDIT1",""
        goto lang_info
    else-ifstr(i) $(DLGEVENT) == "LISTBOX1"
        LibraryProcedure CurSel, $(!DLLSQL), DlgGetCmbCurSel $(DlgParams),"LISTBOX1"
        LibraryProcedure ListItem, $(!DLLSQL), DlgGetCmbCurText $(DlgParams),"LISTBOX1",$(CurSel)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgParams),"EDIT1",$(ListItem)
        goto lang_info
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        StartWait
        LibraryProcedure NumParams, $(!DLLSQL), DlgCmbCount $(DlgParams),"LISTBOX1"
        set Params = {}
        set CurParam = 0
param_loop =+
        ifint $(CurParam) < $(NumParams)
            LibraryProcedure ListItem, $(!DLLSQL), DlgGetCmbCurText $(DlgParams),"LISTBOX1",$(CurParam)
            set Params = >( $(Params), $(ListItem))
            set-add CurParam = $(CurParam),1
            goto param_loop
        endif
        LibraryProcedure Param, $(!DLLSQL), DlgGetEditText $(DlgParams),"EDIT1"
        ifstr(i) $(Param) != ""
            set Params = >( $(Params), $(Param))
            set-add CurParam = $(CurParam),1
        endif
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServerServer),$(!RegSQLSvrParam)
        LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
        ifstr(i) $(OpenParamKey) == "KEY_ERROR"
            read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto end_langinfo
        else
            ForListDo $(Params)
                set-sub Count = $(#),1
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValParameter)$(Count),$(!RegTypeString),$($),""
            EndForListDo
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_langinfo
    endif
    set Status = "STATUS_SUCCESSFUL"
end_langinfo =+
    EndWait
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgParams)
    Return $(Status)

[DoTapeSupport]
    set Mins = ""
    set Status = "STATUS_FAILED"
    StartWait
    LibraryProcedure Mins, $(!DLLSQL), RegRead $($0),$(!RegValTapeWait)
    ifstr(i) $(Mins) == "KEY_ERROR"
        set !DefRadio = "1"
    else-ifstr(i) $(Mins) == "0"
        set !DefRadio = "2"
    else-ifstr(i) $(Mins) == "-1"
        set !DefRadio = "1"
    else
        set !DefRadio = "3"
    endif
    read-syms TapeTimeDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgTape, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!DefRadio) == "3"
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgTape),"EDIT1",$(Mins)
    endif
tape_sup =+
    ifstr(i) $(!DefRadio) == "3"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgTape),"TEXT1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgTape),"EDIT1","TRUE"
    else
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgTape),"TEXT1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgTape),"EDIT1","FALSE"
    endif
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        set Status = "STATUS_USERQUIT"
        goto end_tape_sup
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        set !DefRadio = "1"
        goto tape_sup
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        set !DefRadio = "2"
        goto tape_sup
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON3"
        set !DefRadio = "3"
        goto tape_sup
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        ifstr(i) $(!DefRadio) == "1"
            set Mins = "-1"
        else-ifstr(i) $(!DefRadio) == "2"
            set Mins = "0"
        else
            LibraryProcedure Mins, $(!DLLSQL), DlgGetEditText $(DlgTape),"EDIT1"
            ifstr(i) $(Mins) == ""
                goto tape_sup
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValTapeWait),$(!RegTypeDWord),$(Mins),""
    endif
    set Status = "STATUS_SUCCESSFUL"
end_tape_sup =+
    EndWait
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgTape)
    Return $(Status)

[DoServerOptions]
    set Status = "STATUS_FAILED"
    read-syms ServerOptsError$(!STF_LANGUAGE)
    read-syms ServerOptsDlg$(!STF_LANGUAGE)

    LibraryProcedure DlgOpts, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    set NumCPUs = "2"
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure NumCPUs, $(!DLLSQL), GetNumProcessors
        ifint $(NumCPUs) < "2"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgOpts),"UNIBUTTON8","FALSE"
        endif
    endif

    shell "" DoParseServerInfo $(DlgOpts),"FALSE"
    set OpenSetupKey = $($R1)
    set OpenSvcKey = $($R2)
    set SQLPerf = $($R3)
    set ELogEntry = $($R4)
    set EMDBEntry = $($R5)
    set ParamCount = $($R6)
    set OpenMonSvcKey = $($R7)
    set OpenServerKey = $($R8)
    set OpenPerfKey = $($R9)
    LibraryProcedure NTELogInitial, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON4"
    LibraryProcedure MailInitial, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON2"
    LibraryProcedure SNMPInitial, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts), "UNIBUTTON10"

serveropts =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto end_serveropts
        else
            goto serveropts
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        shell "" DoGetServerParameters
        ifstr(i) $($R0) == "STATUS_FAILED"
            goto end_serveropts
        else-ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
            shell "" DoParseServerInfo $(DlgOpts),"TRUE"
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        shell "" DoTapeSupport $(OpenServerKey)
        ifstr(i) $($R0) == "STATUS_FAILED"
            goto end_serveropts
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON3"
        LibraryProcedure DoSQLCntrs, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON3"
        ifstr(i) $(DoSQLCntrs) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgOpts),"UNIBUTTON6","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgOpts),"UNIBUTTON7","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgOpts),"UNIBUTTON6","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgOpts),"UNIBUTTON7","FALSE"
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON4"
        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON4"
        ifstr(i) $(Result) != "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgOpts),"DLGBUTTON4","FALSE"
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON5"
        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON5"
        ifstr(i) $(Result) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgOpts),"DLGBUTTON5","TRUE"
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON6"
        shell "" DoGetMailInfo
        ifstr(i) $($R0) == "STATUS_USERQUIT"
            goto end_serveropts
        endif
        goto serveropts
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        StartWait

        LibraryProcedure !SQLPath, $(!DLLSQL), DlgGetEditText $(DlgOpts),"EDIT1"
        ifstr(i) $(!SQLPath) == ""
            read-syms NoServerPath$(!STF_LANGUAGE)
            shell "" MessageError
            goto serveropts
        endif

        LibraryProcedure !PathOut, $(!DLLSQL), DlgGetEditText $(DlgOpts),"EDIT2"
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!PathOut),"LASTBEFORE","\"
        ifstr(i) $(Before) == ""
            read-syms NoMasterPath$(!STF_LANGUAGE)
            shell "" MessageError
            goto serveropts
        endif
        LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(!PathOut),"LASTAFTER","\"
        LibraryProcedure PathAfter, $(!DLLSQL), StrBeforeAndAfter $(After),"LASTAFTER","."
        ifstr(i) $(PathAfter) == ""
            read-syms DBNoDat$(!STF_LANGUAGE)
            shell "" MessageError
            goto serveropts
        endif
        set !MasterDBFileName = $(After)
        set !MasterDBPath = $(Before)

        ifstr(i) $(NTELogInitial) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON4"
            ifstr(i) $(Result) != "CHECKED"
                read-syms DeleteEventLog$(!STF_LANGUAGE)
                read-syms YesNoDlg$(!STF_LANGUAGE)
                ui start $(DlgTemplate)
                ifstr(i) $(DLGEVENT) == "NO"
                    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgOpts),"UNIBUTTON4", "TRUE"
                    goto serveropts
                endif
            endif
        endif

        LibraryProcedure MailInfo, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON2"
        ifstr(i) $(MailInitial) != "CHECKED"
            ifstr(i) $(MailInfo) == "CHECKED"
                shell "" DoGetMailInfo
                ifstr(i) $($R0) == "STATUS_BACK"
                    goto serveropts
                endif
                ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                    goto end_serveropts
                endif
            endif
        endif


        LibraryProcedure ELogPath, $(!DLLSQL), DlgGetEditText $(DlgOpts),"EDIT3"
        LibraryProcedure SvcStart, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON4"
        LibraryProcedure MonSvcStart, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON5"
        LibraryProcedure NTELog, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON4"
        LibraryProcedure DoSQLCntrs, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"DLGBUTTON3"
        LibraryProcedure PerfSync, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON6"
        LibraryProcedure ImpClient, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts),"UNIBUTTON9"
        LibraryProcedure SNMPSupport, $(!DLLSQL), IsDlgBtnChecked $(DlgOpts), "UNIBUTTON10"

        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSQLPath),$(!RegTypeString),$(!SQLPath),""

        LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
        ifstr(i) $(OpenParamKey) == "KEY_ERROR"
            read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        else
            ifstr(i) $(EMDBEntry) != ""
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(EMDBEntry),$(!RegTypeString),"-d"$(!MasterDBPath)"\"$(!MasterDBFileName),""
            else
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValParameter)$(ParamCount),$(!RegTypeString),"-d"$(!MasterDBPath)"\"$(!MasterDBFileName),""
                set-add ParamCount = $(ParamCount),1
            endif
            ifstr(i) $(ELogPath) == ""
                ifstr(i) $(ELogEntry) != ""
                    LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(ELogEntry)
                endif
            else
                ifstr(i) $(ELogEntry) != ""
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(ELogEntry),$(!RegTypeString),"-e"$(ELogPath),""
                else
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValParameter)$(ParamCount),$(!RegTypeString),"-e"$(ELogPath),""
                endif
            endif
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
        endif

        ifstr(i) $(NTELog) == "CHECKED"
            shell "" RegWriteELog "\\"$(!ComputerName)
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                goto end_serveropts
            endif
        else-ifstr(i) $(NTELogInitial) == "CHECKED"
            LibraryProcedure MntrRunning, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!SQLMonitorService)
            ifstr(i) $(MntrRunning) == "SERVICE_RUNNING"
                shell "" StopService $(!SQLMonitorService)
            endif
            LibraryProcedure SchedRunning, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!SQLSchedulerService)
            ifstr(i) $(SchedRunning) == "SERVICE_RUNNING"
                shell "" StopService $(!SQLSchedulerService)
            endif
            LibraryProcedure OldSchedRunning, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!SQLOldSchedulerService)
            ifstr(i) $(OldSchedRunning) == "SERVICE_RUNNING"
                shell "" StopService $(!SQLOldSchedulerService)
            endif
            LibraryProcedure SvrRunning, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!SQLServerService)
            ifstr(i) $(SvrRunning) == "SERVICE_RUNNING"
                shell "" StopService $(!SQLServerService)
            endif
            LibraryProcedure SvrRunning, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!SQLSchedulerService)
            ifstr(i) $(SvrRunning) == "SERVICE_RUNNING"
                shell "" StopService $(!SQLSchedulerService)
            endif
            LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLServerService)
            LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLSchedulerService)
            LibraryProcedure Result, $(!DLLSQL), ClearEventLogNoBackup
            ifstr(i) $(SvrRunning) == "SERVICE_RUNNING"
                shell "" StartService $(!SQLServerService)
            endif
            ifstr(i) $(SchedRunning) == "SERVICE_RUNNING"
                shell "" StartService $(!SQLSchedulerService)
            endif
        endif

        shell "" RegWriteSystemPaths "\\"$(!ComputerName),$(!RegSystemPaths),""
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_serveropts
        endif

        ifstr(i) $(OpenSvcKey) != ""
            ifstr(i) $(SvcStart) == "CHECKED"
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSvcKey),$(!RegSvcStart),$(!RegTypeDWord),"2",""
            else
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSvcKey),$(!RegSvcStart),$(!RegTypeDWord),"3",""
            endif
        endif

        ifstr(i) $(OpenMonSvcKey) != ""
            ifstr(i) $(MonSvcStart) == "CHECKED"
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMonSvcKey),$(!RegSvcStart),$(!RegTypeDWord),"2",""
            else
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMonSvcKey),$(!RegSvcStart),$(!RegTypeDWord),"3",""
            endif
        endif

        ifstr(i) $(OpenServerKey) != ""
            ifstr(i) $(!CopyMailInfo) == "CHECKED"
                shell "" RegCopyMailInfo "\\"$(!ComputerName)
            endif

            ifstr(i) $(!MSMailUser) != ""
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValMSMailUser),$(!RegTypeString),$(!MSMailUser),""
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValMSMailPwd),$(!RegTypeString),$(!MSMailPwd),""
            endif

            ifstr(i) $(MailInfo) == "CHECKED"
                ifstr(i) $(MailInitial) != "CHECKED"
                    shell "" RegWriteMailEnabled "\\"$(!ComputerName), $(!RegValSqlMailPair)
                endif
            else
                shell "" DoMailNuke "\\"$(!ComputerName), $(!RegValSqlMailPair)
            endif

            ifstr(i) $(ImpClient) == "CHECKED"
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValClientImp),$(!RegTypeDWord),"1",""
            else
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValClientImp),$(!RegTypeDWord),"0",""
            endif
        endif

        ifstr(i) $(DoSQLCntrs) == "CHECKED"
            ifstr(i) $(SQLPerf) == ""
                shell "" RegWritePerfMon "\\"$(!ComputerName)
            endif
            ifstr(i) $(PerfSync) == "CHECKED"
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenPerfKey),$(!RegValPerfSync),$(!RegTypeDWord),"0",""
            else
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenPerfKey),$(!RegValPerfSync),$(!RegTypeDWord),"1",""
            endif
        else
            ifstr(i) $(SQLPerf) != ""
                shell "" DoPerfmonNuke "\\"$(!ComputerName)
            endif
        endif

        ifstr(i) $(SNMPSupport) == "CHECKED"
            ifstr(i) $(SNMPInitial) != "CHECKED"
                shell "" RegWriteSNMP
            endif
        else
            ifstr(i) $(SNMPInitial) == "CHECKED"
                LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer)"\"$(!RegSQLSNMP),$(!RegCurrentVer)
                LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLSNMP)
                shell "" DoNukeSQLSNMPAgent
            endif
        endif

        set Status = "STATUS_SUCCESSFUL"
    else
        goto serveropts
    endif
end_serveropts =+
    ifstr(i) $(OpenSvcKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSvcKey)
    endif
    ifstr(i) $(OpenMonSvcKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenMonSvcKey)
    endif
    ifstr(i) $(OpenSetupKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
    endif
    ifstr(i) $(OpenServerKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
    endif
    ifstr(i) $(OpenPerfKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenPerfKey)
    endif
    EndWait
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgOpts)
    Return $(Status)

[DoParseServerInfo]
    StartWait
    set Status = "STATUS_FAILED"
    set ELogEntry = ""
    set ELogPath = ""
    set EMDBEntry = ""
    set NTELog = ""
    set ParamCount = ""
    set SvcStart = ""
    set SvcMonStart = ""
    set SQLPerf = ""
    set SQLPerfSync = "0"
    set !MasterDBPath = ""
    set !MasterDBFileName = ""
    set !SQLPath = ""

    LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLSetup),"",""
    ifstr(i) $(OpenSetupKey) != "KEY_ERROR"
        LibraryProcedure !SQLPath, $(!DLLSQL), RegRead $(OpenSetupKey),$(!RegValSQLPath)
    endif

    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUENAMES"
    QueryListSize ParamCount $(TmpParamList)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenPerfKey)

    shell "" DoExtractMasterAndErrorlog "\\"$(!ComputerName)
    set EMDBEntry = $($R0)
    set ELogEntry = $($R1)
    set !MasterDBPath = $($R2)
    set ELogPath = $($R3)
    set !MasterDBFileName = $($R4)

    LibraryProcedure OpenELogKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegEventAppLog),$(!SQLServerService),$(!AdminACL)
    ifstr(i) $(OpenELogKey) != "KEY_ERROR"
        LibraryProcedure NTELog, $(!DLLSQL), RegRead $(OpenELogKey),$(!RegValELogMsgFile)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenELogKey)
    endif

    LibraryProcedure OpenSvcKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSCM),$(!SQLServerService),$(!AdminACL)
    ifstr(i) $(OpenSvcKey) != "KEY_ERROR"
        LibraryProcedure SvcStart, $(!DLLSQL), RegRead $(OpenSvcKey),$(!RegSvcStart)
    else
        set OpenSvcKey = ""
    endif

    LibraryProcedure OpenSchKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSCM),$(!SQLSchedulerService),$(!AdminACL)
    ifstr(i) $(OpenSchKey) != "KEY_ERROR"
        LibraryProcedure SvcMonStart, $(!DLLSQL), RegRead $(OpenSchKey),$(!RegSvcStart)
    else
        set OpenSchKey = ""
    endif
    ifstr(i) $(!InstallType) != "1"
        ifstr(i) $(!SQL95Keys) != "TRUE"
            LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLMonitorService),"",""
        endif
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLMonitorService)"\"$(!RegSQLSvrParam)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLMonitorService)

    LibraryProcedure OpenServerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
    ifstr(i) $(OpenServerKey) != "KEY_ERROR"
        LibraryProcedure TmpStartupHandlers, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValMailEnabled)
        LibraryProcedure ImpersonateClient, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValClientImp)

    else
        set OpenServerKey = ""
    endif

    LibraryProcedure OpenPerfKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSCM),$(!SQLServerService)"\"$(!RegSQLPerformance),$(!AdminACL)
    ifstr(i) $(OpenPerfKey) != "KEY_ERROR"
        LibraryProcedure SQLPerf, $(!DLLSQL), RegRead $(OpenPerfKey),$(!RegValLibrary)
        ifstr(i) $(SQLPerf) == "KEY_ERROR"
            set SQLPerf = ""
        endif
        LibraryProcedure SQLPerfSync, $(!DLLSQL), RegRead $(OpenPerfKey),$(!RegValPerfSync)
        ifstr(i) $(SQLPerf) == "KEY_ERROR"
            set SQLPerfSync = "0"
        endif
    endif

    ifstr(i) $(!SQLPath) == "KEY_ERROR"
        set !SQLPath = ""
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $($0),"EDIT1",$(!SQLPath)
    ifstr(i) $(!MasterDBPath) == "KEY_ERROR"
        set !MasterDBPath = ""
    endif
    ifstr(i) $(!MasterDBFileName) == "KEY_ERROR"
        set !MasterDBFileName = ""
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $($0),"EDIT2",$(!MasterDBPath)"\"$(!MasterDBFileName)
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $($0),"EDIT3",$(ELogPath)
    ifstr(i) $(NTELog) == "KEY_ERROR"
        set NTELog = ""
    endif

    LibraryProcedure SNMPInstalled, $(!DLLSQL), GetServiceState "\\"$(!ComputerName), $(!SNMPService)
    ifstr(i) $(SNMPInstalled) == "SERVICE_NOT_EXIST"
        LibraryProcedure rc, $(!DLLSQL), EnableDlgBtn $($0), "UNIBUTTON10", "FALSE"
    else
        LibraryProcedure rc, $(!DLLSQL), EnableDlgBtn $($0), "UNIBUTTON10", "TRUE"
        LibraryProcedure OpenSQLSNMPKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName), $(!RegSQLServer)"\"$(!RegSQLSNMP)
        ifstr(i) $(OpenSQLSNMPKey) == "KEY_ERROR"
            LibraryProcedure rc, $(!DLLSQL), DlgCheckButton $($0), "UNIBUTTON10", "FALSE"
        else
            LibraryProcedure rc, $(!DLLSQL), DlgCheckButton $($0), "UNIBUTTON10", "TRUE"
        endif
    endif

    ifstr(i) $($1) == "FALSE"
        ifstr(i) $(NTELog) != ""
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON4","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON4","FALSE"
        endif
        ifstr(i) $(SvcStart) == "KEY_ERROR"
            set SvcStart = ""
        endif
        ifstr(i) $(SvcStart) == "2"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON4","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON4","FALSE"
        endif

        ifstr(i) $(SvcMonStart) == "KEY_ERROR"
            set SvcMonStart = ""
        endif
        ifstr(i) $(SvcMonStart) == "2"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON5","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON5","FALSE"
        endif
        ifstr(i) $(ImpersonateClient) == "KEY_ERROR"
            set ImpersonateClient = "0"
        endif
        ifstr(i) $(ImpersonateClient) == "1"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON9","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON9","FALSE"
        endif

        ifcontains(i) $(!RegValSqlMailPair) in $(TmpStartupHandlers)
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON2","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON2","FALSE"
        endif
        ifstr(i) $(SQLPerf) != ""
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON3","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $($0),"UNIBUTTON6","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $($0),"UNIBUTTON7","TRUE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"DLGBUTTON3","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $($0),"UNIBUTTON6","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $($0),"UNIBUTTON7","FALSE"
        endif

        ifstr(i) $(SQLPerfSync) == "1"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON7","UNIBUTTON6","UNIBUTTON7"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $($0),"UNIBUTTON6","UNIBUTTON6","UNIBUTTON7"
        endif

    endif
    EndWait
    Return $(Status),$(OpenSetupKey),$(OpenSvcKey),$(SQLPerf),$(ELogEntry),$(EMDBEntry),$(ParamCount),$(OpenSchKey),$(OpenServerKey),$(OpenPerfKey)

[DoExtractMasterAndErrorlog]
    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues $($0),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUENAMESNDATA"
    ForListDo $(TmpParamList)
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(#),2
        set Data = *($(TmpParamList),$(Idx))
        ifstr(i) $(Data) != ""
            LibraryProcedure Result, $(!DLLSQL), StringCopyN $(Data),"0","2"
            set-sub Idx = $(Idx),1
            ifstr(i) $(Result) == "-e"
                set ErrorLogEntry = *($(TmpParamList),$(Idx))
                LibraryProcedure ErrorLogData, $(!DLLSQL), StringCopyN $(Data),"2","N"
            else-ifstr(i) $(Result) == "-d"
                set MasterDBEntry = *($(TmpParamList),$(Idx))
                LibraryProcedure Tmp, $(!DLLSQL), StringCopyN $(Data),"2","N"
                LibraryProcedure MasterDBData, $(!DLLSQL), StrBeforeAndAfter $(Tmp),"LASTBEFORE","\"
                LibraryProcedure MasterName, $(!DLLSQL), StrBeforeAndAfter $(Tmp),"LASTAFTER","\"
            endif
        endif
    endif
EndForListDo
    Return $(MasterDBEntry),$(ErrorLogEntry),$(MasterDBData),$(ErrorLogData),$(MasterName)

[DoGetLangInfo]
    set Status = "STATUS_FAILED"
    read-syms GetLangInfoDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgLang, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
lang_info =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto end_langinfo
        else
            goto lang_info
        endif
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure LanguageName, $(!DLLSQL), DlgGetEditText $(DlgLang),"EDIT1"
        LibraryProcedure SAPassword, $(!DLLSQL), DlgGetEditText $(DlgLang),"EDIT2"
        ifstr(i) $(LanguageName) == ""
            read-syms NoLangInfo$(!STF_LANGUAGE)
            shell "" MessageError
            goto lang_info
        endif
        LibraryProcedure DefaultLanguage, $(!DLLSQL), IsDlgBtnChecked $(DlgLang),"UNIBUTTON1"
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_langinfo
    endif
    set Status = "STATUS_SUCCESSFUL"
end_langinfo =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLang)
    Return $(Status) $(LanguageName) $(SAPassword) $(DefaultLanguage)

[DoRebuildDatabase]
    set Status = "STATUS_FAILED"
backToRebuildQ =+
    read-syms RebuildDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgRbld, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
rebuild =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_rebuild
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_rebuild
        else
            goto rebuild
        endif
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgRbld)
        set DlgRbld = ""

        set !AddlScripts = $(!DefScriptList)
        set !CheckInstList = $(!CheckInstDefList)
        set !CheckInstRetList = $(!CheckInstDefRetList)
        set !CheckInstList = >( $(!CheckInstList), $(!SQLPubs))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!Pubs))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLXPStar1))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLXPStar2))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLOle1))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!XpStarChk1))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!XpStarChk2))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!SQLOleChk1))
        set !CheckInstList = >( $(!CheckInstList), $(!SQLHelpSQL))
        set !CheckInstRetList = >( $(!CheckInstRetList), $(!RetHelpSQL))

        set !SortOrderSelList = $(!SortISOSelList)
        set !TheCharSet       = *( $(!CharSetSelList), 2 )
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(!DefSortFileIndex), "3"
        set !TheSortConfigValue = *( $(!SortOrderSelList),$(Idx) )
        set-sub Idx = $(Idx),1
        set !TheSortFile = *( $(!SortOrderSelList), $(Idx) )

backToRebuildOpts =+
        shell "" DoGetRebuildOptions
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backToRebuildQ
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            goto finish_rebuild
        endif

backToSQLPath =+
        shell "" DoGetSpaceSQLPath GetSQLPathDlg,$(InstallationReqSpace),$(SpaceCost),"1","","",$(!LogicalSQLDrive)
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backToRebuildOpts
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = "STATUS_USERQUIT"
            goto finish_rebuild
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        set !SQLPath = $($R1)$($R2)
        set !DefSQLPath = $(!SQLPath)
        set !CreateSQLPath = $(!SQLPath)
        ifstr(i) $(!RemoteComputer) == ""
            set !LogicalSQLDrive = $($R1)
        endif

backToMasterPath =+
        ifstr(i) $(!MasterDBFileName) == ""
            set !DefMasterPath = $(!SQLPath)"\"$(!DataDir)"\"$(!DefMasterDB)
        else
            set !DefMasterPath = $(!MasterDBPath)"\"$(!MasterDBFileName)
        endif
        shell "" DoGetSpaceMasterPath GetMasterPathDlg,$(InstallationReqSpace),$(SpaceCost),"1","","MASTER_DONT_CARE_EXIST",$(!LogicalDBDrive)
        ifstr(i) $($R0) == "STATUS_BACK"
            goto backToSQLPath
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = "STATUS_USERQUIT"
            goto finish_rebuild
        else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif

        shell "" StopService $(!SQLMonitorService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        shell "" StopService $(!SQLSchedulerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        shell "" StopService $(!SQLOldSchedulerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        shell "" StopService $(!SQLServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLSetup),"",""
        ifstr(i) $(OpenSetupKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenSetupKey),$(!RegValSetupState)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
        endif
        shell "" DoReBuild "FALSE"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto finish_rebuild
        endif
        set Status = "STATUS_SUCCESSFUL"
        shell "" StartService $(!SQLServerService)
        LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLSetup),"",""
        ifstr(i) $(OpenSetupKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSetupState),$(!RegTypeString),$(!RegValInstalled),""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
        endif
    endif
finish_rebuild =+
    ifstr(i) $(DlgRbld) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgRbld)
    endif
    Return $(Status)

[DoGetRebuildOptions]
    StartWait
    set Status = "STATUS_FAILED"
    read-syms RebuildOptionsDlg
    LibraryProcedure DlgRebOptions, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    EndWait
    reboptions = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_reboptions
        else
            goto reboptions
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_reboptions
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        set !TheCharSetPath = $(!SQLPath)"\"$(!CharSets)"\"$(!TheCharSet)
        set Status = "STATUS_SUCCESSFUL"
        goto finish_reboptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        shell "" DoCharSet
        goto reboptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        shell "" DoSortOrder
        goto reboptions
    endif
    finish_reboptions = +
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgRebOptions)
    Return $(Status)

[DoNetDefaults]
    set !StreetName = $(!ComputerName)
    set !TCPIPSocketNumber = $(!DefTCPIPSocket)
    set !SocketNumber = $(!DefSocketNumber)
    set !ServiceName = $(!ComputerName)
    set !ADSPServiceName = $(!ComputerName)
    set !DECNetObjectID = $(!DefDECNetObjectID)
    ifstr(i) $(!IntegratedSecurity) == "TRUE"
        set !NetworkSelList = $(!DefSecNetworkSelList)
    else
        ifstr(i) $(!RISCInst) == "YES"
            set !NetworkSelList = $(!DefNetworkRISCSelList)
        else
            set !NetworkSelList = $(!DefNetworkSelList)
        endif
    endif
    set !NetAddresses = {}
    ifstr(i) $(!InstallType) == "1"
        set !NetLibList = $(!NetLibDefList)
    else-ifstr(i) $(!InstallType) == "2"
        set !NetLibList = $(!OldListenOn)
    else-ifstr(i) $(!RegistryRebuild) != ""
        set !NetLibList = $(!NetLibDefList)
    else
        set !NetLibList = {}
    endif
    Return

[DoNetInstall]
    set Status   = "STATUS_FAILED"
    set !ServerNMPipeName = $(!SvrPipe)
net_intsall =+
    set BillyBoard = ""
    shell "" DoNetDefaults
    read-syms NetInstallError$(!STF_LANGUAGE)
    LibraryProcedure OpenServerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
    ifstr(i) $(OpenServerKey) == "KEY_ERROR"
        read-syms ErrorReadRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_net_install
    endif
    LibraryProcedure !ListenOn, $(!DLLSQL), RegRead $(OpenServerKey),$(!RegValListenOn)
    ForListDo $(!ListenOn)
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE",","
        LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $($),"AFTER",","
        ifcontains(i) $(Before) in $(!NetLibList)
        else
            ifstr(i) $(Before) == $(!NetLibPipes)
                set !ServerNMPipeName = $(After)
                set !NetLibList = >( $(!NetLibList), $(!NetLibPipes))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 1))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 2))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 3))
            else-ifstr(i) $(Before) == $(!NetLibRPC)
                set !NetLibList = >( $(!NetLibList), $(!NetLibRPC))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 4))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 5))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 6))
            else-ifstr(i) $(Before) == $(!NetLibSPX)
                set !NetLibList = >( $(!NetLibList), $(!NetLibSPX))
                LibraryProcedure !ServiceName, $(!DLLSQL), StrBeforeAndAfter $(After),"BEFORE",","
                LibraryProcedure !SocketNumber, $(!DLLSQL), StrBeforeAndAfter $(After),"AFTER",","
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 7))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 8))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 9))
            else-ifstr(i) $(Before) == $(!NetLibTCPIP)
                set !NetLibList = >( $(!NetLibList), $(!NetLibTCPIP))
                set !TCPIPSocketNumber = $(After)
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 10))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 11))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 12))
            else-ifstr(i) $(Before) == $(!NetLibADSP)
                set !NetLibList = >( $(!NetLibList), $(!NetLibADSP))
                set !ADSPServiceName = $(After)
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 13))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 14))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 15))
            else-ifstr(i) $(Before) == $(!NetLibDECNet)
                set !NetLibList = >( $(!NetLibList), $(!NetLibDECNet))
                set !DECNetObjectID = $(After)
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 16))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 17))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 18))
            else-ifstr(i) $(Before) == $(!NetLibVines)
                set !NetLibList = >( $(!NetLibList), $(!NetLibVines))
                set !StreetName = $(After)
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 19))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 20))
                set !NetSelList = >( $(!NetSelList), *($(!NetworkSelList), 21))
            else
                set !NetLibList = >( $(!NetLibList), $(Before))
                set !NetworkSelList = >( $(!NetworkSelList), $(Before))
                set !NetworkSelList = >( $(!NetworkSelList), $(!UserProvided))
                set !NetworkSelList = >( $(!NetworkSelList), $(After)))
                set !NetSelList = >( $(!NetworkSelList), $(Before))
                set !NetSelList = >( $(!NetworkSelList), $(!UserProvided))
                set !NetSelList = >( $(!NetworkSelList), $(After)))
            endif
        endif
    EndForListDo
    ifstr(i) $(!IntegratedSecurity) != "TRUE"
        set !NetworkSelList = >( $(!NetworkSelList), *($(!DefUserProvNet), 1))
        set !NetworkSelList = >( $(!NetworkSelList), *($(!DefUserProvNet), 2))
        set !NetworkSelList = >( $(!NetworkSelList), *($(!DefUserProvNet), 3))
    endif

    set !AllowExit = "YES"
    shell "" DoNetwork
    ifstr(i) $($R0) == "STATUS_USERQUIT"
        goto end_net_install
    else-ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto end_net_install
    endif
    shell "" DoNetLibPrompts $(!NetLibList), "TRUE"

    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = $($R0)
        goto net_intsall
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_net_install
    endif
    set NewNetLibs = $($R1)
    set NewNetAddrs = $($R2)
    shell "" RegWriteListenOn $(OpenServerKey) $(NewNetLibs) $(NewNetAddrs)

    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)

    set Status = "STATUS_SUCCESSFUL"
end_net_install =+
    Return $(Status)

[DoGetSecurityOptions]
scratch =+
    set Status = "STATUS_FAILED"
    read-syms SetSecError$(!STF_LANGUAGE)
    shell "" RegGetSecuritySupport
    set !DefRadio = $($R1)
    ifstr(i) $(!MultipleNetworkSupport) != ""
        ifstr(i) $(!DefRadio) == "2"
            set !DefRadio = "1"
        endif
    endif
    read-syms SecurityDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgSec, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSec),"EDIT1",$($R2)
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSec),"EDIT2",$($R3)
    ForListDo $(!DefSecurityTokens)
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSec),"CALLCOMBO1",$($)
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSec),"CALLCOMBO2",$($)
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSec),"CALLCOMBO3",$($)
    EndForListDo
    LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSec),"CALLCOMBO1","BYEDIT",$($R5)
    LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSec),"CALLCOMBO2","BYEDIT",$($R6)
    LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSec),"CALLCOMBO3","BYEDIT",$($R7)
    shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO1"
    shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO2"
    shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO3"
    set OldAccount = $($R2)
    set OldRadio = $(!DefRadio)
    ifstr(i) $($R4) == "1"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSec),"UNIBUTTON1","TRUE"
    endif
    ifstr(i) $($R4) == "2"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSec),"UNIBUTTON2","TRUE"
    endif
    ifstr(i) $($R4) == "3"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSec),"UNIBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSec),"UNIBUTTON2","TRUE"
    endif
    ifstr(i) $($R8) == "1"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSec),"UNIBUTTON3","TRUE"
    endif
    ifstr(i) $(!MultipleNetworkSupport) != ""
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"DLGBUTTON2","FALSE"
    endif
sec =+
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT3","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT4","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT5","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"TEXT6","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"EDIT1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"EDIT2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"UNIBUTTON3","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"CALLCOMBO1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"CALLCOMBO2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSec),"CALLCOMBO3","TRUE"
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_sec
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_sec
        else
            goto sec
        endif
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        set LoginMode = "0"
        set DefaultAccount = ""
        set DefaultDomain = ""
        set AuditLevel = "0"
        set SetHostname = "0"
        set Map1 = $(!DefSecMap1)
        set Map2 = $(!DefSecMap2)
        set Map3 = $(!DefSecMap3)
        LibraryProcedure ChkSucc, $(!DLLSQL), IsDlgBtnChecked $(DlgSec),"UNIBUTTON1"
        LibraryProcedure ChkFailed, $(!DLLSQL), IsDlgBtnChecked $(DlgSec),"UNIBUTTON2"
        LibraryProcedure Mode, $(!DLLSQL), IsDlgBtnChecked $(DlgSec),"DLGBUTTON1"
        ifstr(i) $(Mode) == "CHECKED"
            set OrgMode = "0"
        endif
        LibraryProcedure DefaultAccount, $(!DLLSQL), DlgGetEditText $(DlgSec),"EDIT1"
        LibraryProcedure DefaultDomain, $(!DLLSQL), DlgGetEditText $(DlgSec),"EDIT2"
        LibraryProcedure Map1, $(!DLLSQL), DlgGetCmbCurText $(DlgSec),"CALLCOMBO1",""
        LibraryProcedure Map2, $(!DLLSQL), DlgGetCmbCurText $(DlgSec),"CALLCOMBO2",""
        LibraryProcedure Map3, $(!DLLSQL), DlgGetCmbCurText $(DlgSec),"CALLCOMBO3",""
        shell "" DoGetTokenFromMap $(Map1)
        set Map1 = $($R0)
        shell "" DoGetTokenFromMap $(Map2)
        set Map2 = $($R0)
        shell "" DoGetTokenFromMap $(Map3)
        set Map3 = $($R0)
        ifstr(i) $(Map1) == $(Map2)
            ifstr(i) $(Map2) != ""
                read-syms STR_DuplicateMap
                shell "" MessageError
                goto sec
            endif
        endif
        ifstr(i) $(Map1) == $(Map3)
            ifstr(i) $(Map3) != ""
                read-syms STR_DuplicateMap
                shell "" MessageError
                goto sec
            endif
        endif
        ifstr(i) $(Map2) == $(Map3)
            ifstr(i) $(Map3) != ""
                read-syms STR_DuplicateMap
                shell "" MessageError
                goto sec
            endif
        endif
        LibraryProcedure Mode, $(!DLLSQL), IsDlgBtnChecked $(DlgSec),"DLGBUTTON2"
        LibraryProcedure ChkSetHostname, $(!DLLSQL), IsDlgBtnChecked $(DlgSec),"UNIBUTTON3"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSec)
        set DlgSec = ""

        ifstr(i) $(DefaultAccount) != $(OldAccount)
            shell "" DoAddLogin $(DefaultAccount)
            ifstr(i) $($R0) == "STATUS_BACK"
                goto scratch
            else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                goto finish_sec
            endif
        endif
        ifstr(i) $(Mode) == "CHECKED"
            set LoginMode = "1"
        else-ifstr(i) $(OrgMode) == "0"
            set LoginMode = "0"
        else
            set LoginMode = "2"
        endif
        ifstr(i) $(ChkSetHostname) == "CHECKED"
            set SetHostname = "1"
        else
            set SetHostname = "0"
        endif
        ifstr(i) $(ChkSucc) == "CHECKED"
            set-add AuditLevel = $(AuditLevel),1
        endif
        ifstr(i) $(ChkFailed) == "CHECKED"
            set-add AuditLevel = $(AuditLevel),2
        endif
        shell "" RegWriteSecuritySupport $(LoginMode),$(DefaultAccount),$(DefaultDomain),$(AuditLevel),$(Map1),$(Map2),$(Map3),$(SetHostname),"FORCE"
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        set !DefRadio = "1"
        goto sec
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        set !DefRadio = "2"
        goto sec
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON3"
        set !DefRadio = "3"
        goto sec
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO1"
        goto sec
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS2"
        shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO2"
        goto sec
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS3"
        shell "" DoSecurityComboChecking $(DlgSec),"CALLCOMBO3"
        goto sec
    else
        goto sec
    endif
finish_sec =+
    ifstr(i) $(DlgSec) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSec)
    endif
    Return $(Status)

[DoGetLicensingMode]
    ifstr(i) $(!IniFilePath) != ""
        set DlgLis = ""
        set !LicszUsers = "0"
        LibraryProcedure LiscMode, $(!DLLSQL), GetPrivProfStr "License", "Mode", $(!IniFilePath)
        ifstr(i) $(LiscMode) == "1"
            LibraryProcedure !LicszUsers, $(!DLLSQL), GetPrivProfStr "License", "PerServerUsers", $(!IniFilePath)
            set !LicszMode = "PerServer"
        else
            set !LicszMode = "PerSeat"
        endif
    else
        ifstr(i) $(!WrkStaVersion) == "TRUE"
            read-syms LicenseWorkStaDlg$(!STF_LANGUAGE)
            LibraryProcedure DlgLis, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
wrk_lisc =+
            LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
            ifstr(i) $(DLGEVENT) == "EXIT"
                shell "" QueryUserQuit $(!STF_LANGUAGE)
                ifstr(i) $($R1) == "OK"
                    set Status = "STATUS_USERQUIT"
                    goto finish_lisc
                else
                    goto wrk_lisc
                endif
            else-ifstr(i) $(DLGEVENT) == "CONTINUE"
                set Status = "STATUS_SUCCESSFUL"
                goto finish_lisc
            endif
        endif
    endif
    StartWait
    ifstr(i) $(!RemoteComputer) != ""
        LibraryProcedure RemNTServer, $(!DLLSQL),IsNTServer "\\"$(!ComputerName)
    else
        set RemNTServer = ""
    endif
    LibraryProcedure NTServer, $(!DLLSQL),IsNTServer "\\."
    set LiscMode = "1"
doliscover=+
    set Status = "STATUS_FAILED"
    StartWait
    ifint $(!LocalBuildNumber) < $(!LicenseMin)
        install LoadLocalLicenseLibrary
    else
        ifstr(i) $(NTServer) != "TRUE"
            install LoadLocalLicenseLibrary
        else
            install LoadSystemLicenseLibrary
        endif
    endif
    EndWait
    ifstr(i) $(!DLLCPL) == ""
        goto finish_lisc
    endif
Lisc =+
    ifstr(i) $(!IniFilePath) == ""
        ifstr(i) $(!RemoteComputer) == ""
            LibraryProcedure Result, $(!DLLCPL),CPlSetup $(!LicFullSetup),$(STF_HWND),$(!RegLicenseSubKey),$(!LicenseFamilyName),$(!Setup_Title),$(!HelpSQLNTSetup),$(!LicGeneralHelp),$(!LicSeatHelp),$(!LicServerHelp)
        else
            LibraryProcedure Result, $(!DLLCPL),CPlSetup $(!LicRemoteFullSetup),$(!RemoteComputer),$(STF_HWND),$(!RegLicenseSubKey),$(!LicenseFamilyName),$(!Setup_Title),$(!HelpSQLNTSetup),$(!LicGeneralHelp),$(!LicSeatHelp),$(!LicServerHelp)
        endif
    else
        LibraryProcedure Result, $(!DLLCPL), CPlSetup, $(!LicUnattendedFullSetup),$(!RegLicenseSubKey),$(!LicenseFamilyName),$(!Setup_Title),$(!LicszMode),$(!LicszUsers)
    endif
    ifstr(i) $(Result) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
        else
            goto Lisc
        endif
    else-ifstr(i) $(Result) == "OK"
        set Status = "STATUS_SUCCESSFUL"
        set !LicenseWritten = "TRUE"
    endif
    install FreeLicenseLibrary
finish_lisc =+
    ifstr(i) $(DlgLis) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLis)
    endif
    StartWait
    ifint $(!BuildNumber) < $(!LicenseMin)
        shell "" DoLicenseNuke
    else
        ifstr(i) $(!RemoteComputer) != ""
            ifstr(i) $(RemNTServer) != "TRUE"
                shell "" DoLicenseNuke
            endif
        else
            ifstr(i) $(NTServer) != "TRUE"
                shell "" DoLicenseNuke
            endif
        endif
    endif
    EndWait
    Return $(Status)

[DoClientLicenseOk]
    set Moveon = "FALSE"
    StartWait
    ifstr(i) $($0) == "1"
        read-syms LicensingClientModeDlg$(!STF_LANGUAGE)
    else
        read-syms LicensingServerModeDlg$(!STF_LANGUAGE)
    endif
    set Status = "STATUS_FAILED"
    LibraryProcedure DlgCliLis, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(!DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgCliLis),"DLGBUTTON1","FALSE","FOCUS"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgCliLis),"DLGBUTTON2","FALSE"
    EndWait
CliLisc =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_clilisc
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_clilisc
        else
            goto CliLisc
        endif
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        LibraryProcedure ClChecked, $(!DLLSQL), IsDlgBtnChecked $(DlgCliLis),"DLGBUTTON1"
        ifstr(i) $(ClChecked) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgCliLis),"DLGBUTTON1","FALSE","FOCUS"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgCliLis),"DLGBUTTON2","FALSE"
            set Moveon = "FALSE"
        else
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgCliLis),"DLGBUTTON1","TRUE","FOCUS"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgCliLis),"DLGBUTTON2","TRUE"
            set Moveon = "TRUE"
        endif
        goto CliLisc
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        ifstr(i) $(Moveon) != "TRUE"
            goto CliLisc
        endif
        set Status = "STATUS_SUCCESSFUL"
    endif
finish_clilisc =+
    ifstr(i) $(DlgCliLis) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgCliLis)
    endif
    Return $(Status)

[DoGetUserID]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure ChkSucc, $(!DLLSQL), GetPrivProfStr "LogonAccount", "LocalSystem", $(!IniFilePath)
        ifstr(i) $(ChkSucc) != "CHECKED"
            LibraryProcedure !UserName, $(!DLLSQL), GetPrivProfStr "LogonAccount", "UserName", $(!IniFilePath)
            LibraryProcedure !UserPassword, $(!DLLSQL), GetPrivProfStr "LogonAccount", "UserPassword", $(!IniFilePath)
            set TestCreate = TRUE
        else
            set !UserName = ""
            set !UserPassword = ""
            set TestCreate = FALSE
        endif
        set Status = "STATUS_SUCCESSFUL"
        goto endDoGetUserID
    endif
    set Status = "STATUS_FAILED"
    set !UserName = ""
    set !UserPassword = ""
    set TestCreate = FALSE
    LibraryProcedure !UserName $(!DLLSQL),GetAccountName "USER"
getuser_start =+
    read-syms SetUserIDError$(!STF_LANGUAGE)
    read-syms UserAccountDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgUserID, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUserID),"DLGBUTTON1","DLGBUTTON1","DLGBUTTON2"
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgUserID),"EDIT1",$(!UserName)
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT3","TRUE"
    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT3","TRUE"
    set Status = "STATUS_SUCCESSFUL"
moreuser =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_userid
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT2","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT2","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT3","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT3","FALSE"
        goto moreuser
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT2","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT2","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"TEXT3","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUserID),"EDIT3","TRUE"
        goto moreuser
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            ifstr(i) $(DlgUserID) != ""
                LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgUserID)
                set DlgUserID = ""
            endif
            goto finish_userid
        else
            goto moreuser
        endif
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure !UserName, $(!DLLSQL), DlgGetEditText $(DlgUserID),"EDIT1"
        LibraryProcedure !UserPassword, $(!DLLSQL), DlgGetEditText $(DlgUserID),"EDIT2"
        LibraryProcedure ChkSucc, $(!DLLSQL), IsDlgBtnChecked $(DlgUserID),"DLGBUTTON2"
        ifstr(i) $(ChkSucc) != "CHECKED"
            ifstr(i) $(!UserName) != ""
                LibraryProcedure PassConfirm, $(!DLLSQL), DlgGetEditText $(DlgUserID),"EDIT3"
                ifstr(i) $(!UserPassword) != $(PassConfirm)
                    read-syms PasswordsDontMatch$(!STF_LANGUAGE)
                    shell "" MessageError
                    goto moreuser
                endif
            endif
        endif
        ifstr(i) $(DlgUserID) != ""
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgUserID)
            EndWait
            set DlgUserID = ""
        endif
        ifstr(i) $(ChkSucc) == "CHECKED"
            set !UserName = ""
            set !UserPassword = ""
        else-ifstr(i) $(!UserName) == ""
            set !UserPassword = ""
        else
            read-syms VerifyAcctDlg$(!STF_LANGUAGE)
            LibraryProcedure DlgVerify, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
            ifstr(i) $(!RemoteComputer) != ""
                set LocalDomMach = "\\"$(!RemoteComputer)
            else
                set LocalDomMach = ""
            endif
            LibraryProcedure Verified, $(!DLLSQL),VerifyDomainAccount, $(LocalDomMach),$(!UserName),
            ifstr(i) $(Verified) == ""
                shell "" CreateTestService
                set TestCreate = "TRUE"
                LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgVerify)
                ifstr(i) $($R1) == "CANNOT_LOGON_SERVICE"
                    set Status = "STATUS_FAILED"
                    read-syms SetUserIDError$(!STF_LANGUAGE)
                    LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                    shell "" MessageError
                    goto getuser_start
                else
                    set Status = "STATUS_SUCCESSFUL"
                endif
            else
                LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgVerify)
                set Status = "STATUS_FAILED"
                read-syms SetUserIDError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
                shell "" MessageError
                goto getuser_start
            endif
        endif
    endif
finish_userid =+
    ifstr(i) $(DlgUserID) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgUserID)
        set DlgUserID = ""
        EndWait
    endif
endDoGetUserID =+
    Return $(Status) $(TestCreate)

[CreateTestService]
    set Status = "STATUS_SUCCESSFUL"
    set pollLoop = "1"
    set ErrorNumber = ""
    ifstr(i) $(!RemoteComputer) == ""
        set NewSQLPath = $(!SQLPath)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
    endif
    LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLServerService) ,"",""
pollTestCreate =+
    LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_CREATE",$(!SQLServerService) ,$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLServer),$(!UserName),$(!UserPassword),"",$(StartType)
    ifstr(i) $(Result) != ""
        ifstr(i) $(Result) == "CANNOT_LOGON_SERVICE"
            set ErrorNumber = $(Result)
            goto service_end
        endif
        ifint $(pollLoop) < "5"
            set-add pollLoop = $(pollLoop),1
            goto pollTestCreate
        endif
        LibraryProcedure Err, $(!DLLSQL), GetLastSetupError
        set ErrorNumber = " #SCM2 - "$(Err)
        set Status = "STATUS_FAILED"
    else
        shell "" StartService $(!SQLServerService) , "TestCreate"
        ifstr(i) $($R1) == "CANNOT_LOGON_SERVICE"
            set ErrorNumber  = $($R1)
            goto service_end
        endif
        shell "" StopService $(!SQLServerService)
    endif
service_end =+
    LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLServerService) ,"",""
    Return $(Status) $(ErrorNumber)

[DoGetTokenFromMap]
    set Ret = $($0)
    ifstr(i) $($0) == $(!SecStrNotUsed)
        set Ret = ""
    endif
    ifstr(i) $($0) == $(!SecStrDomSep)
        set Ret = $(!SecTokDomainSep)
    endif
    ifstr(i) $($0) == $(!SecStrSpace)
        set Ret = $(!SecTokSpace)
    endif
    Return $(Ret)

[DoSecurityComboChecking]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Text, $(!DLLSQL), DlgGetCmbCurText $($0),$($1),""
    ifstr(i) $(Text) == ""
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $($0),$($1),"BYEDIT",$(!SecStrNotUsed)
    else-ifstr(i) $(Text) == $(!SecTokDomainSep)
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $($0),$($1),"BYEDIT",$(!SecStrDomSep)
    else-ifstr(i) $(Text) == $(!SecTokSpace)
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $($0),$($1),"BYEDIT",$(!SecStrSpace)
    endif
    Return $(Status)

[DoAddLogin]
    set Status = "STATUS_FAILED"
    shell "" DoGetSAPassword
    ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
        goto end_addlogin
    else-ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_addlogin
    endif
    shell "" StartService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_addlogin
    endif
    StartWait
    LibraryProcedure Result, $(!DLLSQL), SQLLogin $(!LoginSleepPeriod),$(!LoginSleepRetrys),$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_addlogin
    endif
    StartWait
    set CheckAddLogin = $(!CheckLogin)"'"$($0)"'"
    shell "" ExecNReturnSQLCmd $(CheckAddLogin),"NTBSTRINGBIND"
    ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
        ifstr(i) $($R1) == $($0)
            set Status = "STATUS_SUCCESSFUL"
            goto end_addlogin
        endif
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLAddLogin)"'"$($0)"',NULL,'master'"
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_addlogin
    endif
    set Status = "STATUS_SUCCESSFUL"
end_addlogin =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    EndWait
    Return $(Status)

[DoDelete95Key]

    ifstr(i) $($1) == "DELOLD"
        ifstr(i) $(!InstallType) == "2"
            ifstr(i) $(!SQL95Keys) == "TRUE"
                goto enddelete
            endif
        endif
        set tRegRoot = $(!RegOldSQLServer)
        set tRegRootServer = $(!RegOldSQLServerServer)
        set tRegService = $(!SQLOldServerService)
        set tRegClient = $(!RegOldSQLClient)
    else
        set tRegRoot = $(!RegSQLServer)
        set tRegRootServer = $(!RegSQLServerServer)
        set tRegService = $(!SQLServerService)
        set tRegClient = $(!RegSQLClient)
    endif


    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRootServer),$(!RegSQLServerVer)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRootServer),$(!RegSQLSvrParam)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRootServer),$(!RegRPCNetLib)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSQLServerSvr)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(!RegEventAppLog),$(tRegService)

      ifstr(i) $($1) != "DELOLD"
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(!RegEventAppLog),$(!SQLSchedulerService)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLCtrs)
else
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!OldSQLCtrs)
endif

    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSQLSetupKey)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSQLAdmin)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegStarFighter)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegValSQLReplication)"\"$(!RegValReplDir)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegValSQLReplication)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!SQLSchedulerService)"\"$(!SQLSchedulerSubService)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!SQLSchedulerService)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSQLOM)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegISQLW)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSecMan)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegSQLSvcMgr)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!SQLMonitorService)"\"$(!RegSQLSvrParam)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!SQLMonitorService)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegClient),$(!RegSQLDBLib)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegClient),$(!RegSQLConnectTo)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegClient),$(!RegMonitor)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegClient),$(!RegSQLPrefServers)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(tRegRoot),$(!RegClient)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"ENUMDELETE",$(tRegRoot),""
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$($0),"UNIDELETE",$(!RegSWMS),$(tRegService)
enddelete =+
    return

[DoNuke]
    set Status = "STATUS_FAILED"
    read-syms NukeError$(!STF_LANGUAGE)
    read-syms NukeDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgNuke, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
nuke =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_nuke
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_nuke
        else
            goto nuke
        endif
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        StartWait
        shell "" StopService $(!SQLMonitorService)
        shell "" StopService $(!SQLSchedulerService)
        shell "" StopService $(!SQLOldSchedulerService)
        shell "" StopService $(!SQLServerService)
        shell "" StopService $(!MSDTCService)

        shell "" DoPerfmonNuke "\\"$(!ComputerName)

        shell "" DoGroupOrderNuke "\\"$(!ComputerName)

        LibraryProcedure Results, $(!DLLSQL), DoOleRegistration $(!SQLPath)"\"$(!Binaries)"\"$(!SQLOle32),"UNREGISTER"
        LibraryProcedure Results, $(!DLLSQL), DoOleRegistration $(!SQLPath)"\"$(!Binaries)"\"$(!ODSOle32),"UNREGISTER"

        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLServerService),"",""
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLSchedulerService),"",""
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!MSDTCService),"",""

        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServerServer),$(!RegSQLServerVer)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServerServer),$(!RegSQLSvrParam)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServerServer),$(!RegRPCNetLib)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLServerSvr)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSWMS),$(!SQLServerService)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLServerService)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLSchedulerService)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegEventAppLog),$(!SQLCtrs)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLSetupKey)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLAdmin)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegStarFighter)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegValSQLReplication)"\"$(!RegValReplDir)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegValSQLReplication)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLSchedulerService)"\"$(!SQLSchedulerSubService)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!SQLSchedulerService)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLOM)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegISQLW)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSecMan)
        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLSvcMgr)


        LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"Software\Microsoft\Query\2.0","Data Sources","","HKEY_CURRENT_USER"
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(ResultKey),"Local Server"
        LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)


        LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE","SOFTWARE\ODBC\ODBC.INI","Local Server"

        LibraryProcedure ResultKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),"SOFTWARE\ODBC\ODBC.INI","ODBC Data Sources","",""
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(ResultKey),"Local Server"
        LibraryProcedure Result, $(!DLLSQL), RegClose $(ResultKey)

        shell "" RegUpdateTCPIPSupport "FALSE"

        shell "" DoLicenseNuke

        LibraryProcedure SNMPInstalled, $(!DLLSQL), GetServiceState "\\"$(!ComputerName), $(!SNMPService)
        ifstr(i) $(SNMPInstalled) != "SERVICE_NOT_EXIST"
            LibraryProcedure OpenSQLSNMPKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName), $(!RegSQLServer)"\"$(!RegSQLSNMP)
            ifstr(i) OpenSQLSNMPKey != "KEY_ERROR"
                LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLSNMP)"\"$(!RegCurrentVer)
                LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSQLServer),$(!RegSQLSNMP)
                shell "" DoNukeSQLSNMPAgent
            endif
        endif

        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgNuke),"UNIBUTTON1"
        ifstr(i) $(Result) == "CHECKED"
            ifstr(i) $(!DefSQLPath) != "\\"
                ifstr(i)  $(!DefSQLPath) != ""
                    LibraryProcedure Result, $(!DLLSQL), Delnode "TREE_DELETE",$(!DefSQLPath)
                else
                    read-syms DontDeleteRoot$(!STF_LANGUAGE)
                    shell "" MessageError
                endif
            else
                read-syms DontDeleteRoot$(!STF_LANGUAGE)
                shell "" MessageError
            endif
        endif

        EndWait


        shell "" RegDeleteSystemPaths "\\"$(!ComputerName),$(!RegSystemPaths), ""
        ifstr(i) $(!RemoteComputer) == ""
            set !ProgramTitle =  $(!SQLProgmanGrpName)
            install NukeSQLProgmanItems
        endif

        set Status = "STATUS_SUCCESSFUL"
    endif

finish_nuke =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgNuke)
    EndWait
    Return $(Status)

[DoLicenseNuke]
    LibraryProcedure OpenLicenseKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLLicInfoKey)
    ifstr(i) $(OpenLicenseKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicMode)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicCon)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicFlip)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicDspName)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicFDspName)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenLicenseKey)
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegLicInfoKey),$(!RegLicenseSubKey)
    Return

[DoLicense60Nuke]
    LibraryProcedure OpenLicenseKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQL60LicInfoKey)
    ifstr(i) $(OpenLicenseKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicMode)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicCon)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicFlip)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicDspName)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenLicenseKey),$(!RegValLicFDspName)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenLicenseKey)
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegLicInfoKey),$(!RegLic60SubKey)
    Return

[DoClientNuke]
    StartWait
    ifstr(i) $(!STF_OS) == "95"
        set Connect = ""
    else
        set Connect = "\\"$(!ComputerName)
    endif
    set Status = "STATUS_FAILED"
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegSQLClientSetupKey)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegSQLAdmin)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegStarFighter)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegValSQLReplication)"\"$(!RegValReplDir)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegValSQLReplication)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegSQLOM)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegISQLW)
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete $(Connect),"UNIDELETE",$(!RegSQLServer),$(!RegSecMan)
    ifstr(i) $(!DefSQLPath) != "\\"
        ifstr(i)  $(!DefSQLPath) != ""
            LibraryProcedure Result, $(!DLLSQL), Delnode "TREE_DELETE",$(!DefSQLPath)
        else
            read-syms DontDeleteRoot$(!STF_LANGUAGE)
            shell "" MessageError
        endif
    else
        read-syms DontDeleteRoot$(!STF_LANGUAGE)
        shell "" MessageError
    endif
    install NukeClientProgmanItems
    LibraryProcedure Result, $(!DLLSQL), SetNewPath $(!SQLPath)"\"$(!Binaries),"TRUE","TRUE"
    ifstr(i) $(Result) == "READONLY"
        read-syms ReadOnlyAutoexec$(!STF_LANGUAGE)
        goto finish_clinuke
    endif
    LibraryProcedure Result, $(!DLLSQL), SetNewPath $(!SQLPath)"\"$(!Binaries),"FALSE","TRUE"
    ifstr(i) $(Result) == "READONLY"
        read-syms ReadOnlyAutoexec$(!STF_LANGUAGE)
        goto finish_clinuke
    endif
    set Status = "STATUS_SUCCESSFUL"
finish_clinuke =+
    EndWait
    Return $(Status)

[DoLicense]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !FullName, $(!DLLSQL), GetPrivProfStr, "License", "FullName", $(!IniFilePath)
        LibraryProcedure !OrgName, $(!DLLSQL), GetPrivProfStr, "License", "OrgName", $(!IniFilePath)
        LibraryProcedure !ProductID, $(!DLLSQL), GetPrivProfStr, "License", "ProductID", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
        goto endDoLicense
    endif
    set Status   = "STATUS_FAILED"
start_fullnameorgname =+
    read-syms QueryFullNameOrgNameDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgLicense, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
fullnameorgname =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure EditTextOut1, $(!DLLSQL), DlgGetEditText $(DlgLicense),"EDIT1"
        LibraryProcedure EditTextOut2, $(!DLLSQL), DlgGetEditText $(DlgLicense),"EDIT2"
        LibraryProcedure EditTextOut3, $(!DLLSQL), DlgGetEditText $(DlgLicense),"EDIT3"
        ifstr(i) $(EditTextOut1) == ""
            read-syms DBNoNameNOrg$(!STF_LANGUAGE)
            shell "" MessageError
            goto fullnameorgname
        else
            LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLicense)
            set !FullName = $(EditTextOut1)
            set !OrgName  = $(EditTextOut2)
            set !ProductID  = $(EditTextOut3)
            goto start_verifyfullnameorgname
        endif
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto fullnameorgname
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_license
        else
            set ReInit = NO
            goto fullnameorgname
        endif
    else
        goto finish_license
    endif

    start_verifyfullnameorgname = +
    read-syms VerifyFullNameOrgNameDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgLicense, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
verifyfullnameorgname =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = "STATUS_SUCCESSFUL"
        set !LicenseSet = "TRUE"
        goto finish_license
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto verifyfullnameorgname
    else-ifstr(i) $(DLGEVENT) == "BACK"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLicense)
        goto start_fullnameorgname
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_license
        else
            goto verifyfullnameorgname
        endif
    else
        goto finish_license
    endif
    finish_license = +
    ifstr(i) $(DlgLicense) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLicense)
    endif
endDoLicense =+
    Return $(Status)

[DoSetupType]
    ifstr(i) $(!IniFilePath) != ""
        set !InstallType = "1"
        set Status = "STATUS_SUCCESSFUL"
        goto endDoSetupType
    endif
    StartWait
    set Status = "STATUS_FAILED"
    ifstr(i) $(!Owner) == ""
        set PrevInstallType = "1"
    else
        set PrevInstallType = "2"
    endif
    read-syms InstallTypeChoicesDlg$(!STF_LANGUAGE)
    LibraryProcedure SetupTypeDlg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!StandAlone) != ""
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"DLGBUTTON1","FALSE"
    endif
start_setuptype =+
    ifstr(i) $(!EvalVersion) == "YES"
        LibraryProcedure SQLEvalKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLEvaluation)"\"$(!RegSQLEval)
        ifstr(i) $(SQLEvalKey) != "KEY_ERROR"
            ForListDo $(!EvalSet)
                LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON"$($),"FALSE"
            EndForListDo
            goto initbutton
        endif
    endif

    LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"DLGBUTTON1","FALSE"

    ifstr(i) $(!Owner) == ""
        ForListDo $(!InstallSet)
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON"$($),"FALSE"
        EndForListDo
    else
        ifstr(i) $(!SQL95Keys) == "TRUE"
            ForListDo $(!InstallSetInstld)
                LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON"$($),"FALSE"
            EndForListDo
        else
            ForListDo $(!InstallSetDual)
                LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON"$($),"FALSE"
            EndForListDo
        endif
    endif
initbutton =+
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(SetupTypeDlg),"UNIBUTTON"$(PrevInstallType),"UNIBUTTON1","UNIBUTTON9"
setuptype = +
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = "STATUS_SUCCESSFUL"
        LibraryProcedure !InstallType, $(!DLLSQL), GetCheckedRadio $(SetupTypeDlg)
        ifstr(i) $(!InstallType) == "4"
            ifstr(i) $(!StandAlone) != ""
                read-syms NoNetChangeDevVer
                shell "" MessageError
                goto setuptype
            endif
        endif
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        LibraryProcedure PrevInstallType, $(!DLLSQL), GetCheckedRadio $(SetupTypeDlg)
        read-syms RemoteCancel$(!STF_LANGUAGE)
        shell "" DoGetRemoteSetup
        ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = $($R0)
            goto finish_options
        endif
        ifstr(i) $(!RemoteComputer) != $(!OldRemoteComputer)
            StartWait
            set !OldRemoteComputer = $(!RemoteComputer)
            ForListDo $(!CompleteInstSet)
                LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(SetupTypeDlg),"UNIBUTTON"$($),"TRUE"
            EndForListDo
            ifstr(i) $(!Owner) == ""
                ifcontains(i) $(PrevInstallType) in $(!InstallSet)
                    set PrevInstallType = "1"
                endif
            else
                ifstr(i) $(!SQL95Keys) == "TRUE"
                    ifcontains(i) $(PrevInstallType) in $(!InstallSetInstld)
                        set PrevInstallType = "2"
                    endif
                else
                    ifcontains(i) $(PrevInstallType) in $(!InstallSetDual)
                        ifstr(i) $(PrevInstallType) == "1"
                            set PrevInstallType = "1"
                        else
                            set PrevInstallType = "2"
                        endif
                    endif
                endif
            endif
            goto start_setuptype
        else
            goto setuptype
        endif
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto setuptype
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
        else
            goto setuptype
        endif
    endif
    finish_options = +
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(SetupTypeDlg)
endDoSetupType =+
    Return $(Status)

[DoGetRemoteSetup]
    set Status = "STATUS_FAILED"
    set RemSQLLog = "C"
    set RemNTLog = ""
    set RemDBLog = ""
    set LocalRemoteSQLDrive = ""
    set LocalRemoteNTDrive = ""
    set LocalRemoteDBDrive = ""
    set RemMode = "DLGBUTTON2"
    read-syms RemoteDlg$(!STF_LANGUAGE)
    LibraryProcedure RemoteDlg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ForListDo $(!SupportedRemoteShares)
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(RemoteDlg),"CALLCOMBO1",$($)
    EndForListDo
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(RemoteDlg),"CALLCOMBO1","BYINDEX","0"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON2","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON3","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON4","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"EDIT1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"CALLCOMBO1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT1","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT2","FALSE"
    else
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(RemoteDlg),"DLGBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(RemoteDlg),"EDIT1",$(!RemoteComputer)
        LibraryProcedure RemSQLLog, $(!DLLSQL), StrBeforeAndAfter $(!LogicalSQLDrive),"BEFORE",":"
        LibraryProcedure RemNTLog, $(!DLLSQL), StrBeforeAndAfter $(!LogicalNTDrive),"BEFORE",":"
        LibraryProcedure RemDBLog, $(!DLLSQL), StrBeforeAndAfter $(!LogicalDBDrive),"BEFORE",":"
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(RemoteDlg),"CALLCOMBO1","BYENTRY",$(RemSQLLog)
    endif
    ifstr(i) $(!StandAlone) != ""
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON1","FALSE"
    endif
    remoteset = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure LocalCB, $(!DLLSQL), IsDlgBtnChecked $(RemoteDlg),"DLGBUTTON1"
        ifstr(i) $(LocalCB) != "CHECKED"
            ifstr(i) $(!RemoteSQLDrive) != ""
                LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteSQLDrive)
                set !RemoteSQLDrive = ""
            endif
            ifstr(i) $(!RemoteNTDrive) != ""
                LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteNTDrive)
                set !RemoteNTDrive = ""
            endif
            ifstr(i) $(!RemoteDBDrive) != ""
                LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteDBDrive)
                set !RemoteDBDrive = ""
            endif
            shell "" DoSetLocalSetup
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = "STATUS_USERQUIT"
            else
                set Status = "STATUS_SUCCESSFUL"
            endif
            goto end_remoteset
        endif

        LibraryProcedure LocalRemoteComputer, $(!DLLSQL), DlgGetEditText $(RemoteDlg),"EDIT1"
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(LocalRemoteComputer),"LASTAFTER","\"
        ifstr(i) $(Temp) != ""
            set LocalRemoteComputer = $(Temp)
        endif

        ifstr(i) $(LocalRemoteComputer) == ""
            read-syms NoRemoteSpec$(!STF_LANGUAGE)
            shell "" MessageError
            goto remoteset
        endif
        ifstr(i) $(RemNTLog) == ""
            set RemNTLog = $(RemSQLLog)
        endif
        ifstr(i) $(RemDBLog) == ""
            set RemDBLog = $(RemSQLLog)
        endif

        detect ReadUnusedDrives
        shell "" AllocateUnusedDrive
        ifstr(i) $($R0) == "STATUS_FAILED"
            read-syms CannotAllocUnusedDrive$(!STF_LANGUAGE)
            shell "" MessageError
            goto remoteset
        else
            set LocalRemoteSQLDrive = $($R1)
        endif
        ifstr(i) $(RemNTLog) != $(RemSQLLog)
            shell "" AllocateUnusedDrive
            ifstr(i) $($R0) == "STATUS_FAILED"
                read-syms CannotAllocUnusedDrive$(!STF_LANGUAGE)
                shell "" MessageError
                goto remoteset
            else
                set LocalRemoteNTDrive = $($R1)
            endif
        else
            set LocalRemoteNTDrive = $(LocalRemoteSQLDrive)
        endif
        ifstr(i) $(RemDBLog) != $(RemSQLLog)
            ifstr(i) $(RemDBLog) != $(RemNTLog)
                shell "" AllocateUnusedDrive
                ifstr(i) $($R0) == "STATUS_FAILED"
                    read-syms CannotAllocUnusedDrive$(!STF_LANGUAGE)
                    shell "" MessageError
                    goto remoteset
                else
                    set LocalRemoteDBDrive = $($R1)
                endif
            else
                set LocalRemoteDBDrive = $(LocalRemoteNTDrive)
            endif
        else
            set LocalRemoteDBDrive = $(LocalRemoteSQLDrive)
        endif

        set ErrText = ""
        LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "CONNECT","\\"$(LocalRemoteComputer)"\"$(RemSQLLog)"$","",$(LocalRemoteSQLDrive)
        ifstr(i) $(Result) != ""
            read-syms NetworkDriveConnectError$(!STF_LANGUAGE)
            LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
            read-syms NetworkDriveConnectSQLInst$(!STF_LANGUAGE)
            LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
            LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(ErrText),$(Result)
            shell "" MessageError
            goto remoteset
        endif
        ifstr(i) $(RemNTLog) != $(RemSQLLog)
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "CONNECT","\\"$(LocalRemoteComputer)"\"$(RemNTLog)"$","",$(LocalRemoteNTDrive)
            ifstr(i) $(Result) != ""
                read-syms NetworkDriveConnectError$(!STF_LANGUAGE)
                LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
                read-syms NetworkDriveConnectNTInst$(!STF_LANGUAGE)
                LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
                LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(ErrText),$(Result)
                shell "" MessageError
                LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteSQLDrive)
                goto remoteset
            endif
        endif
        ifstr(i) $(RemDBLog) != $(RemSQLLog)
            ifstr(i) $(RemDBLog) != $(RemNTLog)
                LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "CONNECT","\\"$(LocalRemoteComputer)"\"$(RemDBLog)"$","",$(LocalRemoteDBDrive)
                ifstr(i) $(Result) != ""
                    read-syms NetworkDriveConnectError$(!STF_LANGUAGE)
                    LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
                    read-syms NetworkDriveConnectDBInst$(!STF_LANGUAGE)
                    LibraryProcedure ErrText, $(!DLLSQL), AppendToString $(ErrText),$(!AddlText)
                    LibraryProcedure !AddlText, $(!DLLSQL), AppendToString $(ErrText),$(Result)
                    shell "" MessageError
                    LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteSQLDrive)
                    ifstr(i) $(RemNTLog) != $(RemSQLLog)
                        LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteNTDrive)
                    endif
                    goto remoteset
                endif
            endif
        endif

        ifstr(i) $(!RemoteSQLDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteSQLDrive)
        endif
        ifstr(i) $(!RemoteNTDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteNTDrive)
        endif
        ifstr(i) $(!RemoteDBDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(!RemoteDBDrive)
        endif

        set !StandAlone = ""
        set !RemoteSQLDrive = $(LocalRemoteSQLDrive)
        set !RemoteNTDrive = $(LocalRemoteNTDrive)
        set !RemoteDBDrive = $(LocalRemoteDBDrive)
        set !LogicalSQLDrive = $(RemSQLLog)":"
        set !LogicalDBDrive = $(RemDBLog)":"
        set !LogicalNTDrive = $(RemNTLog)":"
        shell "" RestoreOldAliasName
        shell "" GetAliasConnectTo $(LocalRemoteComputer)
        set !ComputerName = $(LocalRemoteComputer)
        set !ServerName = $(!ComputerName)
        set !RemoteComputer = $(!ComputerName)
        set !DefSQLPath = $(!RemoteSQLDrive)"\"$(!DefSQLStub)
        set !LogicalSystemMemory = $(!MinSystemMemory)

        LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLWinNT)
        ifstr(i) $(Key) != "KEY_ERROR"
            LibraryProcedure !SystemDirectory, $(!DLLSQL), RegRead $(Key),$(!RegValSystemRoot)
            LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SystemDirectory),"AFTER",":"
            set !RemoteSystemRoot = $(!LogicalNTDrive)$(Temp)
            set !LocalRemoteSystemRoot = $(!RemoteNTDrive)$(Temp)
            set !SystemDirectory = $(!RemoteNTDrive)$(Temp)"\"$(!SystemDir)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)
        endif
        LibraryProcedure TempName, $(!DLLSQL), GetMachineName
        ifstr(i) $(!SQL95Keys) != "TRUE"
            shell "" DoDelete95Key $(TempName), ""
        endif
        LibraryProcedure TestKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServerServer)
        ifstr(i) $(TestKey) != "KEY_ERROR"
            set !SQL95Keys = "TRUE"
            LibraryProcedure Result, $(!DLLSQL), RegClose $(TestKey)
        else
            shell "" DoDupKeys
            ifstr(i) $($R1) == "STATUS_FAILED"
                goto doneremote
            endif
            set !SQL95Keys = "FALSE"
            ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
                set !RemoteKeysDupped = "TRUE"
            else
                set !RemoteKeysDupped = "FALSE"
            endif
        endif
        shell "" GetPreviousInstallationInfo
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set Status = "STATUS_USERQUIT"
            goto end_remoteset
        endif
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(RemoteDlg),"DLGBUTTON1"
        ifstr(i) $(Result) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"EDIT1","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"CALLCOMBO1","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT1","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT2","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON2","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON3","TRUE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON4","TRUE"
            goto remoteset
        else
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"EDIT1","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"CALLCOMBO1","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT1","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"TEXT2","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON2","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON3","FALSE"
            LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(RemoteDlg),"DLGBUTTON4","FALSE"
            goto remoteset
        endif
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        set RemMode = $(DLGEVENT)
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(RemoteDlg),"CALLCOMBO1","BYENTRY",$(RemSQLLog)
        goto remoteset
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON3"
        set RemMode = $(DLGEVENT)
        ifstr(i) $(RemNTLog) == ""
            set TheLog = $(RemSQLLog)
        else
            set TheLog = $(RemNTLog)
        endif
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(RemoteDlg),"CALLCOMBO1","BYENTRY",$(TheLog)
        goto remoteset
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON4"
        set RemMode = $(DLGEVENT)
        ifstr(i) $(RemDBLog) == ""
            set TheLog = $(RemSQLLog)
        else
            set TheLog = $(RemDBLog)
        endif
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(RemoteDlg),"CALLCOMBO1","BYENTRY",$(TheLog)
        goto remoteset
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto remoteset
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBO1"
        LibraryProcedure Result, $(!DLLSQL), DlgGetCmbCurText $(RemoteDlg),"CALLCOMBO1",""
        ifstr(i) $(RemMode) == "DLGBUTTON2"
            set RemSQLLog = $(Result)
        else-ifstr(i) $(RemMode) == "DLGBUTTON3"
            set RemNTLog = $(Result)
        else-ifstr(i) $(RemMode) == "DLGBUTTON4"
            set RemDBLog = $(Result)
        endif
        goto remoteset
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        set Status = "STATUS_BACK"
    else
        goto remoteset
    endif
end_remoteset =+
    ifstr(i) $(Status) != "STATUS_SUCCESSFUL"
        ifstr(i) $(LocalRemoteSQLDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteSQLDrive)
        endif
        ifstr(i) $(LocalRemoteNTDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteNTDrive)
        endif
        ifstr(i) $(LocalRemoteDBDrive) != ""
            LibraryProcedure Result, $(!DLLSQL), NETDriveOperation "DISCONNECT","","",$(LocalRemoteDBDrive)
        endif
    endif
doneremote =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(RemoteDlg)
    ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
        shell "" DoCheckOS
    endif
    Return $(Status)

[DoSetLocalSetup]
    set Status = "STATUS_SUCCESSFUL"
    set !RemoteComputer = ""
    set !LogicalSQLDrive = $(!Primary)
    set !LogicalDBDrive = $(!Primary)
    set !LogicalNTDrive = $(!Primary)
    set !SystemDirectory = $(!STF_WINDOWSSYSPATH)
    set !LogicalSystemMemory = $(!SystemMemory)
    LibraryProcedure !ComputerName, $(!DLLSQL), GetMachineName

    ifstr(i) $(!SQLReleaseNumber) == $(!StandAloneRelease)
        set !StandAlone = "1"
        set !ServerName = ""
    else
        ifstr(i) $(!STF_OS) == "NT"
            LibraryProcedure Result, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!LANManWksta)
            ifstr(i) $(Result) != "SERVICE_RUNNING"
                set !StandAlone = "1"
                set !ServerName = ""
            else
                set !StandAlone = ""
                set !ServerName = $(!ComputerName)
            endif
        else
            set !StandAlone = "1"
            set !ServerName = ""
        endif
    endif
    set !DefSQLPath = $(!Primary)"\"$(!DefSQLStub)

    ifstr(i) $(!RegistryRebuild) == ""
        shell "" GetPreviousInstallationInfo
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            set Status = "STATUS_FAILED"
        endif
    else
        LibraryProcedure !AdminACL, $(!DLLSQL), CreateSecurityAttribute "\\"$(!ComputerName),$(!AdministratorsGroup),"GENERIC_ALL","BUILTIN"
        ifstr(i) $(!AdminACL) == "CANNOT_CREATE_ACL"
            set !AdminACL = ""
        endif
        LibraryProcedure Key, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegOldSQLSetup)
        ifstr(i) $(Key) != "KEY_ERROR"
            LibraryProcedure !OldSQLPath, $(!DLLSQL), RegRead $(Key),$(!RegValSQLPath)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(Key)
        endif
    endif
    Return $(Status)

[DoNewOptions]
    ifstr(i) $(!IniFilePath) != ""
        shell "" DoCharSet
        shell "" DoSortOrder
        shell "" DoScripts
        ifstr(i) $(!StandAlone) == ""
            shell "" DoNetwork
        endif
        LibraryProcedure !AutoServerService, $(!DLLSQL) GetPrivProfStr "NewOptions", "AutoServerService", $(!IniFilePath)
        LibraryProcedure !AutoSchedulerService, $(!DLLSQL) GetPrivProfStr "NewOptions", "AutoExecutiveService", $(!IniFilePath)
        set !TheCharSetPath = $(!SQLPath)"\"$(!CharSets)"\"$(!TheCharSet)
        set Status = STATUS_SUCCESSFUL
        goto endDoNewOptions
    endif
    StartWait
    set Status = "STATUS_FAILED"
    read-syms NewInstallOptionsDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgNewOptions, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    QueryListSize NumNets $(!NetLibList)
    ifstr(i) $(!StandAlone) == ""
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgNewOptions),"DLGBUTTON4","TRUE"
    else
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgNewOptions),"DLGBUTTON4","FALSE"
    endif
    EndWait
    newoptions = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto finish_newoptions
        else
            goto newoptions
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto finish_newoptions
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure !AutoServerService, $(!DLLSQL), IsDlgBtnChecked $(DlgNewOptions),"DLGBUTTON5"
        LibraryProcedure !AutoSchedulerService, $(!DLLSQL), IsDlgBtnChecked $(DlgNewOptions),"DLGBUTTON6"
        set !TheCharSetPath = $(!SQLPath)"\"$(!CharSets)"\"$(!TheCharSet)
        set Status = "STATUS_SUCCESSFUL"
        goto finish_newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        shell "" DoCharSet
        goto newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON2"
        shell "" DoSortOrder
        goto newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON3"
        shell "" DoLanguage
        goto newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON4"
        set !AllowExit = "NO"
        shell "" DoNetwork
        set !AllowExit = "YES"
        goto newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON5"
        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgNewOptions),"DLGBUTTON6"
        ifstr(i) $(Result) != "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgNewOptions),"DLGBUTTON7","FALSE"
        endif
        goto newoptions
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON6"
        LibraryProcedure Result, $(!DLLSQL), IsDlgBtnChecked $(DlgNewOptions),"DLGBUTTON7"
        ifstr(i) $(Result) == "CHECKED"
            LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgNewOptions),"DLGBUTTON6","TRUE"
        endif
        goto newoptions
    endif
    finish_newoptions = +
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgNewOptions)
endDoNewOptions =+
    Return $(Status)

[DoSetFreeDiskSpace]
    LibraryProcedure FreeFormattedSpace, $(!DLLSQL), GetDriveFreeSpace $($1)"\"
    LibraryProcedure FreeSpace, $(!DLLSQL), GetDriveFreeSpace $($1)"\","UNFORMATTED"
    ifstr(i) $(FreeFormattedSpace) == "PLENTY"
        read-syms STR_Plenty
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $($0),$($2),$(!AddlText)
    else
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $($0),$($2),$(FreeFormattedSpace)
    endif
    set Status = "STATUS_SUCCESSFUL"
    Return $(Status),$(FreeSpace)

[BuildMSDB]
    LibraryProcedure Result, $(!DLLSQL), SQLLogin $(!LoginSleepPeriod),$(!LoginSleepRetrys),$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_buildmsdb
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLDBUse $(!Master)

    ifstr(i) $(!RemoteComputer) == ""
        set NewMasterDBPath = $(!MasterDBPath)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!MasterDBPath),"AFTER",":"
        LibraryProcedure NewMasterDBPath, $(!DLLSQL), AppendToString $(!LogicalDBDrive),$(Temp)
    endif

    LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE", $(NewMasterDBPath)"\"$(!MSDBDataDat)
    LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE", $(NewMasterDBPath)"\"$(!MSDBDataLog)

    StartWait

    LibraryProcedure VDevNumber, $(!DLLSQL), GetNextDevNo $(!SQLGetDevNo)
    ifstr(i) $(VDevNumber) == "-1"
        read-syms CantGetDevNo$(!STF_LANGUAGE)
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        goto end_buildmsdb
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLDiskInit)"'"$(!MSDBData)"',"$(!Physname)$(NewMasterDBPath)"\"$(!MSDBDataDat)"',"$(!VdevDatPlus)$(VDevNumber)$(!VdevDatNo)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        goto end_buildmsdb
    endif
    LibraryProcedure VDevNumber, $(!DLLSQL), GetNextDevNo $(!SQLGetDevNo)
    ifstr(i) $(VDevNumber) == "-1"
        read-syms CantGetDevNo$(!STF_LANGUAGE)
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        goto end_buildmsdb
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLDiskInit)"'"$(!MSDBLog)"',"$(!Physname)$(NewMasterDBPath)"\"$(!MSDBDataLog)"',"$(!VdevLogPlus)$(VDevNumber)$(!VdevLogNo)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        LibraryProcedure Result, $(!DLLSQL), SQLLogout
        goto end_buildmsdb
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLLogout

    set Status = "STATUS_SUCCESSFUL"
end_buildmsdb =+
    EndWait
    Return

[ExecNReturnSQLCmd]
    set Status = "STATUS_FAILED"
    set Data   = ""
    LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $($0)
    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$(!LF)
        set Status = "STATUS_FAILED"
        goto finish_sqlexec
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    ifstr(i) $(Result) != "BAD_RESULTS"
        LibraryProcedure Result, $(!DLLSQL), SQLBindColumn $($1), "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!OneNextRow)
        LibraryProcedure Data, $(!DLLSQL), SQLGetBindingData "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    endif
    set Status = "STATUS_SUCCESSFUL"
finish_sqlexec =+
    Return $(Status) $(Data)

[DoGetPath]
    set Status = "STATUS_FAILED"
    start_getpath = +
    ifstr(i) $(!DlgEdit) == ""
        read-syms GetPathDlg$(!STF_LANGUAGE)
        LibraryProcedure !DlgEdit, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
    endif
    getpath = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto getpath
            endif
        else
            set Status = STATUS_CANCEL
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure EditTextOut, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT1"
        ifstr(i) $(EditTextOut) == ""
            ifstr(i) $(!PermitNullName) == "NO"
                read-syms $(!NoNameText)
                shell "" MessageError
                goto getpath
            endif
        endif
        set Status = "STATUS_SUCCESSFUL"
        set !PathOut = $(EditTextOut)
        ifstr(i) $(!CreatePathPrompt) == "YES"
            set DEST = $(!PathOut)
            detect DetectDirectory
            ifstr $(DirectoryThere) == "NO"
                shell "" DoCreateDirectory
                ifstr(i) $($R0) == "STATUS_YES"
                    set !CreatePath = "YES"
                else
                    goto getpath
                endif
            endif
        endif
    endif
    ifstr(i) $(!AutoPopoff) == "YES"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgEdit)
        set !DlgEdit = ""
    endif
    Return $(Status)

[DoGetSpaceSQLPath]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure CurDrv, $(!DLLSQL), GetPrivProfStr "SQLPath", "LogicalSQLDrive", $(!IniFilePath)
        LibraryProcedure Temp, $(!DLLSQL), GetPrivProfStr "SQLPath", "SQLPath", $(!IniFilePath)
        set File = ""
        set Status = STATUS_SUCCESSFUL
        goto endDoGetSpaceSQLPath
    endif
    StartWait
    read-syms $($0)
    LibraryProcedure DlgSpaceSQLPath, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure HardDrives, $(!DLLSQL), ListDriveTypes $($3)
        ForListDo $(HardDrives)
            LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceSQLPath),"CALLCOMBO1",$($)
        EndForListDo
        ifstr(i) $($6) != ""
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceSQLPath),"CALLCOMBO1","BYENTRY",$($6)
        else
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceSQLPath),"CALLCOMBO1","BYINDEX","0"
        endif
    else
        ifstr(i) $(!InstallType) == "2"
            ifstr(i) $($7) == "MASTERPATH"
                LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceSQLPath),"CALLCOMBO1",$(!RemoteDBDrive)
            else
                LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceSQLPath),"CALLCOMBO1",$(!RemoteSQLDrive)
            endif
        else
            LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceSQLPath),"CALLCOMBO1",$(!RemoteSQLDrive)
        endif
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceSQLPath),"CALLCOMBO1","BYINDEX","0"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSpaceSQLPath),"CALLCOMBO1","FALSE"
    endif
    LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgSpaceSQLPath),"CALLCOMBO1",""
    ifstr(i) $($4) != ""
        shell "" DoSetFreeDiskSpace $(DlgSpaceSQLPath),$(CurDrv),"TEXT2"
        set UnformattedSpace = $($R1)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSpaceSQLPath),"TEXT1",$($1)
    endif
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!DefInPath),"AFTER",":"
    ifstr(i) $(Temp) == ""
        set Temp = $(!DefInPath)
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSpaceSQLPath),"EDIT1",$(Temp)
spacesqlpath =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CALLCOMBO1"
        LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgSpaceSQLPath),"CALLCOMBO1",""
        ifstr(i) $($4) != ""
            shell "" DoSetFreeDiskSpace $(DlgSpaceSQLPath),$(CurDrv),"TEXT2"
            set UnformattedSpace = $($R1)
        endif
        goto spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        ifstr(i) $($4) != ""
            ifstr(i) $(!RegistryRebuild) == ""
                ifstr(i) $(!SpaceChecking) != "OFF"
                    ifstr(i) $(UnformattedSpace) != "PLENTY"
                        LibraryProcedure MegSize, $(!DLLSQL), IntMultiply $($2),"1024","DIVIDE"
                        ifint $(UnformattedSpace) < $(MegSize)
                            read-syms STR_InsufficientDiskSpace
                            shell "" MessageError
                            goto spacesqlpath
                        endif
                    endif
                endif
            endif
        endif

        LibraryProcedure PathOut, $(!DLLSQL), DlgGetEditText $(DlgSpaceSQLPath),"EDIT1"
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"AFTER",":"
        ifstr(i) $(Temp) == ""
            set Temp = $(PathOut)
        endif
        ifstr(i) $($5)  == "MASTERFORMAT_MUSTEXIST"
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"LASTAFTER","\"
            ifstr(i) $(Before) == ""
                read-syms DBNoPath$(!STF_LANGUAGE)
                shell "" MessageError
                goto spacesqlpath
            endif
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"LASTBEFORE","\"
            LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"LASTAFTER","\"
            LibraryProcedure PathAfter, $(!DLLSQL), StrBeforeAndAfter $(After),"LASTAFTER","."
            ifstr(i) $(PathAfter) == ""
                read-syms DBNoDat$(!STF_LANGUAGE)
                shell "" MessageError
                goto spacesqlpath
            endif
            LibraryProcedure Result, $(!DLLSQL), DoesFileExist $(CurDrv)$(PathOut)
            ifstr(i) $(Result) != ""
                read-syms MasterMustExist$(!STF_LANGUAGE)
                shell "" MessageError
                goto spacesqlpath
            endif
            set Temp = $(Before)
            set File = $(After)
        endif
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto end_spacesqlpath
        else
            goto spacesqlpath
        endif
    else
        goto spacesqlpath
    endif
end_spacesqlpath =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSpaceSQLPath)
endDoGetSpaceSQLPath =+
    Return $(Status),$(CurDrv),$(Temp),$(File)

[DoGetSpaceMasterPath]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !MasterDBFileName, $(!DLLSQL), GetPrivProfStr "MasterPath", "MasterDBFileName", $(!IniFilePath)
        LibraryProcedure Temp, $(!DLLSQL) GetPrivProfStr "MasterPath", "MasterDBPath", $(!IniFilePath)
        LibraryProcedure !LogicalDBDrive, $(!DLLSQL), GetPrivProfStr "MasterPath", "LogicalDBDrive", $(!IniFilePath)
        set !MasterDBPath = $(!LogicalDBDrive)$(Temp)
        set !DefMasterPath = $(!MasterDBPath)"\"$(!MasterDBFileName)
        LibraryProcedure !MstrSize, $(!DLLSQL), GetPrivProfStr "MasterPath", "MasterSize", $(!IniFilePath)
        LibraryProcedure !SQLMasterSize, $(!DLLSQL), CheckStringFormat "FMT_DATABASE_SIZE",$(!MinMasterSize),$(!MstrSize)
        set Status = STATUS_SUCCESSFUL
        goto endDoGetSpaceMasterPath
    endif
    StartWait
    read-syms $($0)
    LibraryProcedure DlgSpaceMasterSQLPath, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure HardDrives, $(!DLLSQL), ListDriveTypes $($3)
        ForListDo $(HardDrives)
            LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceMasterSQLPath),"CALLCOMBO1",$($)
        EndForListDo
        ifstr(i) $($6) != ""
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceMasterSQLPath),"CALLCOMBO1","BYENTRY",$($6)
        else
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceMasterSQLPath),"CALLCOMBO1","BYINDEX","0"
        endif
    else
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgSpaceMasterSQLPath),"CALLCOMBO1",$(!RemoteDBDrive)
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgSpaceMasterSQLPath),"CALLCOMBO1","BYINDEX","0"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgSpaceMasterSQLPath),"CALLCOMBO1","FALSE"
    endif
    LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgSpaceMasterSQLPath),"CALLCOMBO1",""
    ifstr(i) $($4) != ""
        shell "" DoSetFreeDiskSpace $(DlgSpaceMasterSQLPath),$(CurDrv),"TEXT2"
        set UnformattedSpace = $($R1)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSpaceMasterSQLPath),"TEXT1",$($1)" "$(!MasterDBSize)
    endif
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!DefMasterPath),"AFTER",":"
    ifstr(i) $(Temp) == ""
        set Temp = $(!DefMasterPath)
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgSpaceMasterSQLPath),"EDIT1",$(Temp)
spacesqlpath =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CALLCOMBO1"
        LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgSpaceMasterSQLPath),"CALLCOMBO1",""
        ifstr(i) $($4) != ""
            shell "" DoSetFreeDiskSpace $(DlgSpaceMasterSQLPath),$(CurDrv),"TEXT2"
            set UnformattedSpace = $($R1)
        endif
        goto spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure PathOut, $(!DLLSQL), DlgGetEditText $(DlgSpaceMasterSQLPath),"EDIT1"
        LibraryProcedure !MstrSize, $(!DLLSQL), DlgGetEditText $(DlgSpaceMasterSQLPath),"EDIT2"
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"AFTER",":"
        ifstr(i) $(Temp) == ""
            set Temp = $(PathOut)
        endif

        LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"LASTAFTER","\"
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"LASTBEFORE","\"
        LibraryProcedure PathAfter, $(!DLLSQL), StrBeforeAndAfter $(After),"LASTAFTER","."
        ifstr(i) $(PathAfter) == ""
            read-syms DBNoDat$(!STF_LANGUAGE)
            shell "" MessageError
            goto spacesqlpath
        endif

        ifstr(i) $(!RegistryRebuild) == ""
            LibraryProcedure Result, $(!DLLSQL), DoesFileExist $(CurDrv)$(PathOut)
            ifstr(i) $(Result) == ""
                ifstr(i) $($5)  != "MASTER_DONT_CARE_EXIST"
                    read-syms MasterExists$(!STF_LANGUAGE)
                    read-syms YesNoDlg$(!STF_LANGUAGE)
                    ui start $(DlgTemplate)
                    ifstr(i) $(DLGEVENT) == "NO"
                        goto spacesqlpath
                    endif
                endif
            endif
            LibraryProcedure Result, $(!DLLSQL), CheckStringFormat "FMT_DATABASE_SIZE",$(!MinMasterSize),$(!MstrSize)
            ifstr(i) $(Result) == "BAD_FORMAT"
                read-syms DBSizeInvalid$(!STF_LANGUAGE)
                shell "" MessageError
                goto spacesqlpath
            else
                ifstr(i) $(Result) == "TOO_SMALL"
                    read-syms DBSizeInvalid$(!STF_LANGUAGE)
                    shell "" MessageError
                    goto spacesqlpath
                else
                    ifstr(i) $($4) != ""
                        ifstr(i) $(!SpaceChecking) != "OFF"
                            ifstr(i) $(UnformattedSpace) != "PLENTY"
                                LibraryProcedure MasterK, $(!DLLSQL), IntMultiply $(!MstrSize),"1024"
                                LibraryProcedure FilesK, $(!DLLSQL), IntMultiply $($2),"1024","DIVIDE"
                                LibraryProcedure TotalK, $(!DLLSQL), IntMultiply $(MasterK),$(FilesK),"ADD"
                                ifint $(UnformattedSpace) < $(TotalK)
                                    read-syms STR_InsufficientDiskSpace
                                    shell "" MessageError
                                    goto spacesqlpath
                                endif
                            endif
                        endif
                    endif
                    set !SQLMasterSize = $(Result)
                endif
            endif
        endif
        set Status = "STATUS_SUCCESSFUL"
        set !MasterDBFileName = $(After)
        ifstr(i) $(!RemoteComputer) == ""
            set !LogicalDBDrive = $(CurDrv)
            set !MasterDBPath = $(!LogicalDBDrive)$(Before)
        else
            set !MasterDBPath = $(!RemoteDBDrive)$(Before)
        endif
        set !DefMasterPath = $(!MasterDBPath)"\"$(!MasterDBFileName)

        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
            goto end_spacesqlpath
        else
            goto spacesqlpath
        endif
    else
        goto spacesqlpath
    endif
end_spacesqlpath =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSpaceMasterSQLPath)
endDoGetSpaceMasterPath =+
    Return $(Status)

[DoGetUtilsAndPath]
    StartWait
    read-syms GetSpaceUtilOptsDlg
    LibraryProcedure DlgUtilPath, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure HardDrives, $(!DLLSQL), ListDriveTypes "1"
        ForListDo $(HardDrives)
            LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgUtilPath),"CALLCOMBO1",$($)
        EndForListDo
        ifstr(i) $(!ClientInstallKey) == "TRUE"
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgUtilPath),"CALLCOMBO1","BYENTRY",$(!ClientInstallDrive)
        else
            LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgUtilPath),"CALLCOMBO1","BYINDEX","0"
        endif
    else
        LibraryProcedure Result, $(!DLLSQL), DlgAddCmbEntry $(DlgUtilPath),"CALLCOMBO1",$(!RemoteSQLDrive)
        LibraryProcedure Result, $(!DLLSQL), DlgSetCmbCurSel $(DlgUtilPath),"CALLCOMBO1","BYINDEX","0"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"CALLCOMBO1","FALSE"
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON2","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON3","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON4","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON5","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON9","TRUE"
    ifstr(i) $(!RISCInst) == "YES"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON6","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON6","FALSE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON7","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON7","FALSE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON8","FALSE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON8","FALSE"
    else
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON6","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON6","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON7","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON7","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgUtilPath),"DLGBUTTON8","TRUE"
        LibraryProcedure Result, $(!DLLSQL), EnableDlgBtn $(DlgUtilPath),"DLGBUTTON8","TRUE"
    endif
    LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgUtilPath),"CALLCOMBO1",""
    shell "" DoSetFreeDiskSpace $(DlgUtilPath),$(CurDrv),"TEXT2"
    set UnformattedSpace = $($R1)
    shell "" DoGetUtilSelectionList $(DlgUtilPath)
    set GetCost = "TRUE"
    install InstallUtilFiles
    set GetCost = ""
    LibraryProcedure Result, $(!DLLSQL), CheckStringFormat "FMT_SPACE","KILO",$(SpaceCost)
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgUtilPath),"TEXT1",$(Result)
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!DefInPath),"AFTER",":"
    ifstr(i) $(Temp) == ""
        set Temp = $(!DefInPath)
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgUtilPath),"EDIT1",$(Temp)
spacesqlpath =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CALLCOMBO1"
        LibraryProcedure CurDrv, $(!DLLSQL), DlgGetCmbCurText $(DlgUtilPath),"CALLCOMBO1",""
        shell "" DoSetFreeDiskSpace $(DlgUtilPath),$(CurDrv),"TEXT2"
        set UnformattedSpace = $($R1)
        goto spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "CALLCOMBOKILLFOCUS1"
        goto spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        shell "" DoGetUtilSelectionList $(DlgUtilPath)
        QueryListSize NumNets $(!UtilFiles)
        ifint $(NumNets) == "0"
            read-syms NoUtils$(!STF_LANGUAGE)
            shell "" MessageError
            goto spacesqlpath
        endif

        ifstr(i) $(!SpaceChecking) != "OFF"
            ifstr(i) $(UnformattedSpace) != "PLENTY"
                LibraryProcedure MegSize, $(!DLLSQL), IntMultiply $(SpaceCost),"1024","DIVIDE"
                ifint $(UnformattedSpace) < $(MegSize)
                    read-syms STR_InsufficientDiskSpace
                    shell "" MessageError
                    goto spacesqlpath
                endif
            endif
        endif

        LibraryProcedure PathOut, $(!DLLSQL), DlgGetEditText $(DlgUtilPath),"EDIT1"
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(PathOut),"AFTER",":"
        ifstr(i) $(Temp) == ""
            set Temp = $(PathOut)
        endif
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_spacesqlpath
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
                goto end_spacesqlpath
            else
                goto spacesqlpath
            endif
        endif
    else
        StartWait
        shell "" DoGetUtilSelectionList $(DlgUtilPath)
        set GetCost = "TRUE"
        ifstr(i) $($R0) == "STATUS_BACK"
            goto spacesqlpath
        else-ifstr(i) $($R0) == "STATUS_USERQUIT"
            set Status = "STATUS_USERQUIT"
            goto end_spacesqlpath
        endif
        install InstallUtilFiles
        set GetCost = ""
        LibraryProcedure Result, $(!DLLSQL), CheckStringFormat "FMT_SPACE","KILO",$(SpaceCost)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(DlgUtilPath),"TEXT1",$(Result)
        EndWait
        goto spacesqlpath
    endif
end_spacesqlpath =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgUtilPath)
    Return $(Status),$(CurDrv),$(Temp)

[DoGetSQLBooksInstall]
    ifstr(i) $(!IniFilePath) != ""
        set Status = "STATUS_SUCCESSFUL"
        LibraryProcedure !SQLBooksType, $(!DLLSQL), GetPrivProfStr "NewOptions", "BooksOnline", $(!IniFilePath)
        goto endDoGetSQLBooksInstall
    endif
    set Status = "STATUS_FAIL"
    StartWait
    read-syms SQLBooksOnlineDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgSQLBooks, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"MODAL",""
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSQLBooks),"UNIBUTTON1","TRUE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSQLBooks),"UNIBUTTON2","FALSE"
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgSQLBooks),"UNIBUTTON3","FALSE"
sqlbookenter =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = "STATUS_SUCCESSFUL"
        LibraryProcedure !SQLBooksType, $(!DLLSQL), GetCheckedRadio $(DlgSQLBooks)
        goto sqlbooksdone
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto sqlbooksdone
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        shell "" QueryUserQuit $(!STF_LANGUAGE)
        ifstr(i) $($R1) == "OK"
            set Status = "STATUS_USERQUIT"
        else
            goto sqlbookenter
        endif
    endif
    EndWait
sqlbooksdone =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSQLBooks)
endDoGetSQLBooksInstall =+
    Return $(Status)

[DoGetUtilSelectionList]
    set !UtilFiles = {}
    set !ODBCInstall = "NO"
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON1"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!BCP))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON2"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!ISQL))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON3"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!SQLStarfterEXE))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON4"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!SQLSecManEXE))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON5"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!ReadPipe))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON6"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!MSQueryEXE))
        set !ODBCInstall = "YES"
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON7"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!WebWizardEXE))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON8"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!MSDTCClientEXE))
    endif
    LibraryProcedure BtnState, $(!DLLSQL), IsDlgBtnChecked $($0),"DLGBUTTON9"
    ifstr(i) $(BtnState) == "CHECKED"
        set !UtilFiles = >( $(!UtilFiles), $(!SQLTraceEXE))
    endif
    Return

[DoGetPathNCopy]
    set Status = "STATUS_FAILED"
getnetpath =+
    read-syms $(!CopyPathTemplate)
    set !SQLDLGPath = $(!DefSQLDLGPath)
    shell "" DoGetPath
    ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
        ifstr(i) $(!ExtraEdit) != ""
            LibraryProcedure !ExtraEditText, $(!DLLSQL), DlgGetEditText $(!DlgEdit),$(!ExtraEdit)
            ifstr(i) $(!ExtraEditText) == ""
                set !AddlText = $(!ExtraEditFail)
                shell "" MessageError
                goto getnetpath
            endif
        endif

        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!PathOut),"BEFORE","\"
        LibraryProcedure Type, $(!DLLSQL), GetDrvType $(Before)"\"
        ifstr(i) $(Type) == "DRIVE_REMOVEABLE"
            set !TmpDrive = $(Before)
            read-syms InsertDisk$(!STF_LANGUAGE)
            shell "" MessageError
        endif

        LibraryProcedure Result, $(!DLLSQL), DoesFileExist $(!PathOut)
        ifstr(i) $(Result) != ""
            read-syms FileDoesntExist$(!STF_LANGUAGE)
            shell "" MessageError
            goto getnetpath
        endif
        LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(!PathOut),"AFTER","\"
        ifstr(i) $(After) == ""
            read-syms FileDoesntExist$(!STF_LANGUAGE)
            shell "" MessageError
            goto getnetpath
        endif

        LibraryProcedure !TheStripped, $(!DLLSQL), GetStrippedFilename $(!PathOut)
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!PathOut),"LASTBEFORE","\"

        set !SrcCopyPath = $(Before)"\"
        set !DestCopyPath = $(!DestPath)
        set !OneOffFile = $(!TheStripped)
        read-syms ProgressCopyVars
        install InstallOneOffFileCopy
        ifstr(i) $(STF_INSTALL_OUTCOME) != "STF_SUCCESS"
            read-syms FileCouldNotBeCopied$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto end_getpathncopy
        endif
        set Status = "STATUS_SUCCESSFUL"
    else-ifstr(i) $($R0) == "STATUS_BACK"
        set Status = "STATUS_BACK"
    endif
end_getpathncopy =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgEdit)
    set !DlgEdit = ""
    Return $(Status)

[DoReBuild]
    set Status = "STATUS_FAILED"
    set !DlgHandle = ""

    ifstr(i) $(!TheSortFile) == $(!UserDefined)
        shell "" DoGetSortFileName
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
    endif
    read-syms InstallingDlg$(!STF_LANGUAGE)
    LibraryProcedure !DlgHandle, $(!DLLSQL), BillBoard $(STF_HWND),"",$(!SQLDlgNames)
    StartWait
    install InstallMasterFile
    EndWait

    shell "" UpdateSCM $($0)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        read-syms SCMError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$($R1)
        goto end_rebuild
    endif

    shell "" RegWriteSerialNumberInfo
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_rebuild
    endif

    shell "" RegWriteANSIOEM
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_rebuild
    endif

    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    QueryListSize NumArgs $(TmpParamList)
    LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
    LibraryProcedure Result, $(!DLLSQL), RegSet $(!OpenParamKey),$(!RegValParameter)$(NumArgs),$(!RegTypeString),$(!TraceSQLKeyDB),""
    set !RegValSQL95KeyDB = $(!RegValParameter)$(NumArgs)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)

    set TmpParamList = {}
    LibraryProcedure TmpParamList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSQLServerServer)"\"$(!RegSQLSvrParam),"VALUEDATA"
    QueryListSize NumArgs $(TmpParamList)
    LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
    LibraryProcedure Result, $(!DLLSQL), RegSet $(!OpenParamKey),$(!RegValParameter)$(NumArgs),$(!RegTypeString),$(!SingleUserMode),""
    set !RegValSingleUserArg = $(!RegValParameter)$(NumArgs)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)

    read-syms BillboardRunningNConnSQL$(!STF_LANGUAGE)
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)

    shell "" StartService $(!SQLServerService)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_rebuild
    endif


    LibraryProcedure Result, $(!DLLSQL), SQLLogin $(!LoginSleepPeriod),$(!LoginSleepRetrys),$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_rebuild
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLLogout

    ifint $(!MstrSize) > "25"
        shell "" ExpandMaster
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
    endif

    ifstr(i) $(!TheSortFile) != $(!DefaultSort)
        read-syms BillboardCharset$(!STF_LANGUAGE)
        LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
        StartWait
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!CharSet)" /S"$(!ServerName)" /P /o"$(!SQLPath)"\"$(!InstallDir)"\"$(!CharSetOut)" /L"$(!TheCharSetPath)" "$(!TheSortFile)
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!CharSet)" "$(!AddlText)
            goto end_rebuild
        else-ifstr(i) $(Result) != "0"
            read-syms ProcessRetError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!CharSet)" "$(!AddlText)" "$(Result)
            goto end_rebuild
        endif
        shell "" UpdateSystemTables
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
        shell "" StopService $(!SQLServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
        read-syms BillboardIndexing$(!STF_LANGUAGE)
        LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
        shell "" ReIndexServer
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
    endif
    read-syms BillboardInstScripts$(!STF_LANGUAGE)
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
    shell "" CreateConfig ""
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_rebuild
    endif

    ifstr(i) $(!TheSortFile) != $(!DefaultSort)
        shell "" InstallScripts
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
    else
        shell "" BuildMSDB
        StartWait
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!InstSch),"BEFORE","."
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$(!InstSch)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto noschedule
        endif
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!InstSmsg),"BEFORE","."
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$(!InstSmsg)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto noschedule
        endif
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(!InstConfig),"BEFORE","."
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$(!InstConfig)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto noschedule
        endif
    endif

    shell "" InstallWEBProc
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto noschedule
    endif

    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !CustomScripts, $(!DLLSQL), GetPrivProfStr "Scripts", "CustomScriptList", $(!IniFilePath)
        ifstr(i) $(!CustomScripts) != ""
            LibraryProcedure !CustScPath, $(!DLLSQL), GetPrivProfStr "Scripts", "CustScPath", $(!IniFilePath)
        endif
        ifstr(i) $(!CustomScripts) != ""
            ForListDo $(!CustomScripts)
                StartWait
                LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE","."
                ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!CustScPath)"\"$($)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
                EndWait
                ifstr(i) $(Result) == "PROCESS_ERROR"
                    read-syms ProcessExecError$(!STF_LANGUAGE)
                    LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                    goto noschedule
                endif
            EndForListDo
        endif
    endif

noschedule =+
    ifstr(i) $(!Locale) != ""
        shell "" DoLangInst $(!Locale),"","CHECKED"
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto end_rebuild
        endif
    endif

    shell "" CheckInstallSuccess "FALSE"

    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto end_rebuild
    endif
    set Status = "STATUS_SUCCESSFUL"
    ifstr(i) $(!RegValSQL95KeyDB) != ""
        LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr),$(!RegSQLSvrParam),$(!AdminACL)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenParamKey),$(!RegValSQL95KeyDB)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
    endif
    ifstr(i) $(!RegValSingleUserArg) != ""
        LibraryProcedure !OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
        LibraryProcedure Result, $(!DLLSQL), RegDelValue $(!OpenParamKey),$(!RegValSingleUserArg)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(!OpenParamKey)
    endif

end_rebuild =+
    shell "" StopService $(!SQLServerService)
    ifstr(i) $(!DlgHandle) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgHandle)
    endif
    Return $(Status)

[DoGetNetLibPath]
    set Status = "STATUS_FAILED"
    set !CopyPathTemplate = GetNetLibPathDlg$(!STF_LANGUAGE)
    set !DestPath = $(!SQLPath)"\"$(!Binaries)
    shell "" DoGetPathNCopy
    set Status = $($R0)
    ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
        LibraryProcedure !UserNetLib, $(!DLLSQL), StrBeforeAndAfter $(!TheStripped),"BEFORE","."
    endif
    Return $(Status)

[DoGetSortFileName]
    set Status = "STATUS_FAILED"
    set !CopyPathTemplate = GetSortFileDlg$(!STF_LANGUAGE)
    set !DestPath = $(!SQLPath)"\"$(!CharSets)
    shell "" DoGetPathNCopy
    ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
        set Status = "STATUS_SUCCESSFUL"
        set !TheCharSetPath = $(!SQLPath)"\"$(!CharSets)
        set !TheSortFile = $(!TheStripped)
        set !TheSortConfigValue = $(!ExtraEditText)
    endif
    Return $(Status)

[DoGetSAPassword]
    set !AllowExit = "YES"
    set Status = "STATUS_FAILED"
    ifstr(i) $(!DlgEdit) == ""
        read-syms GetSAPasswordDlg$(!STF_LANGUAGE)
        set !SAPassword = ""
        LibraryProcedure !DlgEdit, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
    endif
    getsapass = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto getsapass
            endif
        else
            set Status = STATUS_CANCEL
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure EditTextOut1, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT1"
        LibraryProcedure EditTextOut2, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT2"
        ifstr(i) $(EditTextOut1) != $(EditTextOut2)
            read-syms PasswordsDontMatch$(!STF_LANGUAGE)
            shell "" MessageError
            goto getsapass
        endif
        set Status = "STATUS_SUCCESSFUL"
        set !SAPassword = $(EditTextOut1)
    endif
    ifstr(i) $(!AutoPopoff) == "YES"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgEdit)
        set !DlgEdit = ""
    endif
    Return $(Status)

[DoGetMailInfo]
    set Status = "STATUS_FAILED"
    ifstr(i) $(!DlgEdit) == ""
        read-syms GetMailInfoDlg$(!STF_LANGUAGE)
        set !CopyMailInfo = ""
        LibraryProcedure !DlgEdit, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
        LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(!DlgEdit),"UNIBUTTON1","TRUE"
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(!DlgEdit),"EDIT1",$(!MSMailUser)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(!DlgEdit),"EDIT2",$(!MSMailPwd)
        LibraryProcedure Result, $(!DLLSQL), DlgSetEditText $(!DlgEdit),"EDIT3",$(!MSMailPwd)
    endif

    getmailinfo = +
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto getmailinfo
            endif
        else
            set Status = STATUS_CANCEL
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure EditTextOut1, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT1"
        LibraryProcedure EditTextOut2, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT2"
        LibraryProcedure EditTextOut3, $(!DLLSQL), DlgGetEditText $(!DlgEdit),"EDIT3"
        ifstr(i) $(EditTextOut2) != $(EditTextOut3)
            read-syms PasswordsDontMatch$(!STF_LANGUAGE)
            shell "" MessageError
            goto getmailinfo
        endif
        LibraryProcedure !CopyMailInfo, $(!DLLSQL), IsDlgBtnChecked $(!DlgEdit),"UNIBUTTON1"
        set Status = "STATUS_SUCCESSFUL"
        set !MSMailUser = $(EditTextOut1)
        set !MSMailPwd = $(EditTextOut2)
    else
        goto getmailinfo
    endif
    ifstr(i) $(!AutoPopoff) == "YES"
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgEdit)
        set !DlgEdit = ""
    endif
    Return $(Status)

[DoGetStreetName]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !StreetName, $(!DLLSQL), GetPrivProfStr "Network", "VinesStreetName", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetStreetNameDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !StreetName = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetMultiProtEn]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure Temp, $(!DLLSQL), GetPrivProfStr "Network", "MultiProtEncrypt", $(!IniFilePath)
        ifstr(i) $(Temp) == "CHECKED"
            set !MultiProtEncrypt = $(!RegValEncrypt)
        else
            set !MultiProtEncrypt = ""
        endif
        set Status = "STATUS_SUCCESSFUL"
        goto endDoGetMultiProtEn
    endif
    read-syms GetMultiProtEncryptDlg$(!STF_LANGUAGE)
    set Status = "STATUS_FAILED"
    LibraryProcedure DlgChk, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"",""
    ifstr(i) $(!MultiProtEncrypt) == $(!RegValEncrypt)
        set BtnState = "TRUE"
    else
        set BtnState = "FALSE"
    endif
    LibraryProcedure Result, $(!DLLSQL), DlgCheckButton $(DlgChk),"DLGBUTTON1",$(BtnState)
getMPEN =+
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
            else
                goto getMPEN
            endif
        else
            set Status = STATUS_CANCEL
        endif
    else-ifstr(i) $(DLGEVENT) == "DLGBUTTON1"
        goto getMPEN
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
    else-ifstr(i) $(DLGEVENT) == "CONTINUE"
        LibraryProcedure Temp, $(!DLLSQL), IsDlgBtnChecked $(DlgChk),"DLGBUTTON1"
        ifstr(i) $(Temp) == "CHECKED"
            set !MultiProtEncrypt = $(!RegValEncrypt)
        else
            set !MultiProtEncrypt = ""
        endif
        set Status = "STATUS_SUCCESSFUL"
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgChk)
endDoGetMultiProtEn =+
    Return $(Status)

[DoGetNamedPipes]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !ServerNMPipeName, $(!DLLSQL), GetPrivProfStr "Network", "ServerNMPipe", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetNamedPipesDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !ServerNMPipeName = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetTCPIPSocket]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !TCPIPSocketNumber, $(!DLLSQL), GetPrivProfStr "Network", "TCPIPSocketNumber", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetTCPIPSocketDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !TCPIPSocketNumber = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetServiceName]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !ServiceName, $(!DLLSQL), GetPrivProfStr "Network", "SPXServiceName", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetServiceNameDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !ServiceName = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetADSPService]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !ADSPServiceName, $(!DLLSQL), GetPrivProfStr "Network", "ADSPObjectName", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetADSPNameDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !ADSPServiceName = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetDECNetObjectID]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !DecNetObjectID, $(!DLLSQL), GetPrivProfStr "Network", "DecNetObjectID", $(!IniFilePath)
        set Status = "STATUS_SUCCESSFUL"
    else
        set Status = "STATUS_FAILED"
        read-syms GetDECNetNameDlg$(!STF_LANGUAGE)
        shell "" DoGetPath
        set Status = $($R0)
        ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
            set !DECNetObjectID = $(!PathOut)
        endif
    endif
    Return $(Status)

[DoGetGenericNetAddress]
    set Status = "STATUS_FAILED"
    read-syms GetNetAddressDlg$(!STF_LANGUAGE)
    shell "" DoGetPath
    set Status = $($R0)
    ifstr(i) $(Status) == "STATUS_SUCCESSFUL"
        set !NetAddress = $(!PathOut)
    endif
    Return $(Status)

[DoCreateDirectory]
    read-syms YesNoDlg$(!STF_LANGUAGE)
    ui start $(DlgTemplate)
    ifstr(i) $(DLGEVENT) == "YES"
        set Status = STATUS_YES
    else
        set Status = STATUS_NO
    endif
    Return $(Status)

[MessageError]
    set Status = "STATUS_FAILED"
    read-syms InfoMessage$(!STF_LANGUAGE)
    ui start $(DlgTemplate)
    Return $(Status)

[DoCharSet]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !TheCharSet, $(!DLLSQL), GetPrivProfStr "CharSet", "CharSet", $(!IniFilePath)
        set Status = STATUS_OK
        goto endDoCharSet
    endif
    StartWait
    set Status = STATUS_CANCEL
    ifstr(i) $(!AllowExit) == "YES"
        set TheCharList = $(!CharSetUserSelList)
    else
        set TheCharList = $(!CharSetSelList)
    endif
    set ListIdx = 0
    ForListDo $(TheCharList)
        set-sub LoopIdx = $(#),1
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(LoopIdx),2
        set-add Idx = $(Idx),2
        set TheCharIdx = *( $(TheCharList), $(Idx) )
        ifstr(i) $(TheCharIdx) == $(!TheCharSet)
            goto doneLoop
        else
            set-add ListIdx = $(ListIdx),1
        endif
    EndForListDo
doneLoop =+
    set DefListItem = $(ListIdx)
    read-syms CharSetsDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgCharSets, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"2",$(TheCharList)
dosetsel =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = STATUS_OK
        set SortType = "Normal"
        LibraryProcedure CharRetList, $(!DLLSQL), ExtractListSet $(DlgCharSets),"1"
        set !TheCharSet = *( $(CharRetList),2 )
        ifstr(i) $(!TheCharSet) == "cpISO"
            set !SortOrderSelList = $(!SortISOSelList)
        else-ifstr(i) $(!TheCharSet) == "cp850"
            set !SortOrderSelList = $(!Sort850SelList)
        else-ifstr(i) $(!TheCharSet) == "cp437"
            set !SortOrderSelList = $(!Sort437SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1250"
            set !SortOrderSelList = $(!Sort1250SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1251"
            set !SortOrderSelList = $(!Sort1251SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1253"
            set !SortOrderSelList = $(!Sort1253SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1254"
            set !SortOrderSelList = $(!Sort1254SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1255"
            set !SortOrderSelList = $(!Sort1255SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1256"
            set !SortOrderSelList = $(!Sort1256SelList)
        else-ifstr(i) $(!TheCharSet) == "cp1257"
            set !SortOrderSelList = $(!Sort1257SelList)
        else
            set SortType = "Defined"
        endif
        ifstr(i) $(SortType) != "Normal"
            set !TheSortFile = $(!TheCharSet)
            set !TheSortConfigValue = "0"
        else
            LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(!DefSortFileIndex),3
            set !TheSortConfigValue = *( $(!SortOrderSelList), $(Idx) )
            set-sub Idx = $(Idx),1
            set !TheSortFile = *( $(!SortOrderSelList), $(Idx) )
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_docharset
    else-ifstr(i) $(DLGEVENT) == "EXIT"
    endif
end_docharset =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgCharSets)
endDoCharSet =+
    Return $(Status)

[DoSortOrder]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !TheSortFile, $(!DLLSQL), GetPrivProfStr "SortOrder", "SortFileName", $(!IniFilePath)
        LibraryProcedure !TheSortConfigValue $(!DLLSQL), GetPrivProfStr "SortOrder", "SortConfigValue", $(!IniFilePath)
        set Status = STATUS_OK
        goto endDoSortOrder
    endif
    StartWait
    set Status = STATUS_CANCEL
    set ListIdx = 0
    ForListDo $(!SortOrderSelList)
        set-sub LoopIdx = $(#),1
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(LoopIdx),3
        set-add Idx = $(Idx),2
        set TheSortIdx = *( $(!SortOrderSelList), $(Idx) )
        ifstr(i) $(TheSortIdx) == $(!TheSortFile)
            goto doneLoop
        else
            set-add ListIdx = $(ListIdx),1
        endif
    EndForListDo
doneLoop =+
    set DefListItem = $(ListIdx)
    read-syms SortOrderDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgSortOrder, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"3",$(!SortOrderSelList)
dosortsel =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = STATUS_OK
        LibraryProcedure SortRetList, $(!DLLSQL), ExtractListSet $(DlgSortOrder),"1"
        set !TheSortFile = *( $(SortRetList), 2)
        set !TheSortConfigValue = *( $(SortRetList), 3 )
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
        goto end_dosortorder
    else-ifstr(i) $(DLGEVENT) == "EXIT"
    endif
end_dosortorder =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgSortOrder)
endDoSortOrder =+
    Return $(Status)

[DoLanguage]
    set Status = STATUS_CANCEL
    read-syms LanguageDlg$(!STF_LANGUAGE)
    LibraryProcedure DlgLanguage, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"2",$(!LangSelList)
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = STATUS_OK
    endif
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgLanguage)
    Return $(Status)

[DoNetwork]
    ifstr(i) $(!IniFilePath) != ""
        LibraryProcedure !NetLibList, $(!DLLSQL), GetPrivProfStr "Network", "NetLibList", $(!IniFilePath)
        set Status = STATUS_OK
        goto endDoNetwork
    endif
    StartWait
    set Status = STATUS_CANCEL
    set DefListItems = {}
    set TheCheckIdx = 0
    ForListDo $(!NetworkSelList)
        set-sub LoopIdx = $(#),1
        LibraryProcedure NetIdx, $(!DLLSQL), IntMultiply $(LoopIdx),3
        set-add NetIdx = $(NetIdx),2
        set NetTmpList = *( $(!NetworkSelList), $(NetIdx) )
        ifcontains(i) $(NetTmpList) in $(!ValidNetLibs)
            ifstr(i) $(NetTmpList) == $(!UserProvided)
                set DefListItems = >( $(DefListItems), $(TheCheckIdx))
            else
                ForListDo $(!NetLibList)
                    ifstr(i) $(NetTmpList) == $($)
                        set DefListItems = >( $(DefListItems), $(TheCheckIdx))
                    EndForListDo
                    goto endLoop
                endif
            EndForListDo
        endif
endLoop =+
        set-add TheCheckIdx = $(TheCheckIdx),1
    endif
EndForListDo
    ifstr(i) $(!AllowExit) == "YES"
        read-syms NetworkDlgEx$(!STF_LANGUAGE)
    else
        read-syms NetworkDlg$(!STF_LANGUAGE)
    endif
    LibraryProcedure DlgNetwork, $(!DLLSQL), SQLDlgDisplay $(STF_HWND),$(DlgTemplate),"",$(!SQLDlgNames),"3",$(!NetworkSelList),$(DefListItems)
donet =+
    EndWait
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    ifstr(i) $(DLGEVENT) == "CONTINUE"
        set Status = STATUS_OK
        LibraryProcedure !NetSelList, $(!DLLSQL), ExtractListSet $(DlgNetwork),"1"
        set !NetLibList = {}
        set !NetAddresses = {}
        set NetSelNum = "0"
        set NmPipesOn = "FALSE"
        ForListDo $(!NetSelList)
            set-sub LoopIdx = $(#),1
            LibraryProcedure NetIdx, $(!DLLSQL), IntMultiply $(LoopIdx),3
            set-add NetIdx = $(NetIdx),2
            set NetTmpList = *( $(!NetSelList), $(NetIdx) )
            ifcontains(i) $(NetTmpList) in $(!ValidNetLibs)
                set-add NetSelNum = $(NetSelNum),1
                ifstr(i) $(NetTmpList) == $(!UserProvided)
                    set-add NetIdx = $(NetIdx),1
                    set NetAddress = *( $(!NetSelList), $(NetIdx) )
                    set !NetAddresses = >( $(!NetAddresses), $(NetAddress))
                    set-sub NetIdx = $(NetIdx),2
                    set NetTmpList = *( $(!NetSelList), $(NetIdx) )
                    set !NetLibList = >( $(!NetLibList), $(NetTmpList))
                else
                    ifstr(i) $(NetTmpList) == $(!NetLibPipes)
                        set NmPipesOn = "TRUE"
                    endif
                    ifstr(i) $(NetTmpList) == $(!NetLibTCPIP)
                        LibraryProcedure Result, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(!TCPIPService)
                        ifstr(i) $(Result) != "SERVICE_RUNNING"
                            read-syms TCPIPNotRunning$(!STF_LANGUAGE)
                            read-syms InfoMessage$(!STF_LANGUAGE)
                            ui start $(DlgTemplate)
                            goto donet
                        endif
                    endif
                    set !NetLibList = >( $(!NetLibList), $(NetTmpList))
                endif
            endif
        EndForListDo
        ifstr(i) $(!InstallType) == "1"
            ifstr(i) $(NmPipesOn) != "TRUE"
                read-syms MustHavePipes$(!STF_LANGUAGE)
                shell "" MessageError
                goto donet
            endif
        endif
        ifstr(i) $(NetSelNum) == "0"
            read-syms NoNets$(!STF_LANGUAGE)
            shell "" MessageError
            goto donet
        endif
    else-ifstr(i) $(DLGEVENT) == "EXIT"
        ifstr(i) $(!AllowExit) == "YES"
            shell "" QueryUserQuit $(!STF_LANGUAGE)
            ifstr(i) $($R1) == "OK"
                set Status = "STATUS_USERQUIT"
                goto end_donet
            else
                goto donet
            endif
        endif
    else-ifstr(i) $(DLGEVENT) == "BACK"
        set Status = "STATUS_BACK"
    endif
end_donet =+
    LibraryProcedure Result, $(!DLLSQL), CloseDialog $(DlgNetwork)
endDoNetwork =+
    Return $(Status)

[RegWriteClientKeys]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSQLClientSetup),"",""
    ifstr(i) $(OpenSetupKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto cli_regend
    endif
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSQLPath),$(!RegTypeString),$(!SQLPath),""
    ifstr(i) $(Result) != "KEY_ERROR"
        set Status = "STATUS_SUCCESSFUL"
    endif
cli_regend =+
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
    Return $(Status)

[UpdateRegistry]
    StartWait
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenVersionKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLServerVer),$(!AdminACL)
    ifstr(i) $(OpenVersionKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenServerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLServerSvr),$(!AdminACL)
    ifstr(i) $(OpenServerKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenSetupKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLSetup),"",""
    ifstr(i) $(OpenSetupKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenSchKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!SQLSchedulerService),""
    ifstr(i) $(OpenSchKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenReplKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegValSQLReplication),""
    ifstr(i) $(OpenSchKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenSchsubKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!SQLSchedulerService)"\"$(!SQLSchedulerSubService),""
    ifstr(i) $(OpenSchKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenMgrKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),$(!RegSQLSvcMgr),""
    ifstr(i) $(OpenMgrKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenMManagementKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegMManagement),"",""
    ifstr(i) $(OpenMManagementKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenLMSvrKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegLMSvrParams),$(!RegSQLSvrParam),$(!AdminACL)
    ifstr(i) $(OpenLMSvrKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    LibraryProcedure OpenPriorityKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegPriorityCtrl),"",""
    ifstr(i) $(OpenPriorityKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto upd_regend
    endif

    shell "" RegWriteELog "\\"$(!ComputerName)
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto upd_regend
    endif

    shell "" RegWriteSystemPaths "\\"$(!ComputerName),$(!RegSystemPaths),""
    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
        goto upd_regend
    endif

    shell "" RegWriteDBLibDefaults "\\"$(!ComputerName)

    shell "" RegWriteVersion $(OpenVersionKey)

    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValTapeWait),$(!RegTypeDWord),"-1","NOEXIST_WRITE"

    LibraryProcedure DefDomain, $(!DLLSQL), GetAccountName "DOMAIN"
    ifstr(i) $(DefDomain) == "WORKGROUP"
        set DefDomain = $(!ComputerName)
    else-ifstr(i) $(DefDomain) == "DOMAIN"
        set DefDomain = $(!ComputerName)
    endif
    shell "" RegWriteSecuritySupport "0",$(!DefGuest),$(DefDomain),"0",$(!DefSecMap1),$(!DefSecMap2),$(!DefSecMap3),"0","NOFORCE"

    ifstr(i) $(!InstallType) == "2"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenServerKey),$(!RegValListenOn),$(!RegTypeMulti),$(!OldListenOn),""
    else
        shell "" RegWriteListenOn $(OpenServerKey),$($0),$($1)
    endif


    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
    LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSQLPath),$(!RegTypeString),$(NewSQLPath),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSetupState),$(!RegTypeString),$(!RegValInstalled),""
    LibraryProcedure InsCRC,$(!DLLSQL), GetInstallCRC
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSetupKey),$(!RegValSetupCRC),$(!RegTypeString),$(InsCRC),""

    ifstr(i) $(!EvalVersion) == "YES"
        LibraryProcedure SQLEvalKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLEvaluation), $(!RegSQLEval),""
        ifstr(i) $(SQLEvalKey) == "KEY_ERROR"
            read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto upd_regend
        endif
    endif

    shell "" RegWriteSchedulerSvc $(OpenSchKey)

    shell "" RegWriteSchedulerSubSvc $(OpenSchsubKey)

    shell "" RegWriteReplication $(OpenReplKey)

    shell "" RegUpdateRdrThreads

    shell "" RegWritePerfMon "\\"$(!ComputerName)

    shell "" RegWriteGroupOrder "\\"$(!ComputerName)

    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenLMSvrKey),$(!RegValLMSvrAnno),$(!RegTypeDWord),"1",""
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenLMSvrKey),$(!RegLMSize),$(!RegTypeDWord),"3",""
    set LMNullSessionPipes = {}
    LibraryProcedure LMNullSessionPipes, $(!DLLSQL), RegRead $(OpenLMSvrKey),$(!RegValNullPipes)
    ifcontains(i) $(!RegValEpmapper) in $(LMNullSessionPipes)
        goto nomapper
    else
        set LMNullSessionPipes = >( $(LMNullSessionPipes),$(!RegValEpmapper) )
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenLMSvrKey),$(!RegValNullPipes),$(!RegTypeMulti),$(LMNullSessionPipes),""
    endif

nomapper =+
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMManagementKey),$(!RegMMSystemCache),$(!RegTypeDWord),"0",""
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenPriorityKey),$(!RegSysPriority),$(!RegTypeDWord),"0",""

    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMgrKey),$(!RegValSvcMgrVerify),$(!RegTypeDWord),"0","NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMgrKey),$(!RegValSvcMgrSvcs),$(!RegTypeMulti),$(!DefSvcMgrServices),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMgrKey),$(!RegValSvcMgrDefSvc),$(!RegTypeString),$(!SQLServerService),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMgrKey),$(!RegValSvcMgrRemote),$(!RegTypeDWord),"1","NOEXIST_WRITE"

    LibraryProcedure Result, $(!DLLSQL), GetServiceState "\\"$(!ComputerName), $(!SNMPService)
    ifstr(i) $(Result) != "SERVICE_NOT_EXIST"
        shell "" RegWriteSNMP
    endif

    set Status = "STATUS_SUCCESSFUL"

upd_regend =+
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenVersionKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenServerKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSetupKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSchKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSchsubKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenReplKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenMgrKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenMManagementKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenLMSvrKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenPriorityKey)
    EndWait
    Return $(Status)

[RegUpdateRdrThreads]
    LibraryProcedure LanKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSCM)"\"$(!LANManWksta),$(!RegSQLSvrParam),$(!AdminACL)
    ifstr(i) $(LanKey) != "KEY_ERROR"
        LibraryProcedure LanThreads, $(!DLLSQL), RegRead $(LanKey),$(!RegValMaxThreads)
        ifstr(i) $(LanThreads) == "KEY_ERROR"
            set LanThreads = $(!RegMaxThreadDefault)
        else
            ifint $(LanThreads) < $(!RegMaxThreadDefault)
                set LanThreads = $(!RegMaxThreadDefault)
            else
                set LanThreads = ""
            endif
        endif
        ifstr(i) $(LanThreads) != ""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(LanKey),$(!RegValMaxThreads),$(!RegTypeDWord),$(LanThreads),""
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(LanKey)
    endif
    Return

[RegWriteSystemPaths]
    set Status = "STATUS_FAILED"
    ifstr(i) $(!STF_OS) == "NT"
        shell "" RegDeleteSystemPaths $($0),$($1),$($2)
        ifstr(i) $($R0) == "STATUS_SUCCESSFUL"
            LibraryProcedure OpenSysPathKey, $(!DLLSQL), RegMakeKey $($0),$($1),"","",$($2)
            ifstr(i) $(OpenSysPathKey) == "KEY_ERROR"
                read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            else
                LibraryProcedure SysPath, $(!DLLSQL), RegRead $(OpenSysPathKey),$(!RegValSysPath)
                LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
                LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
                ifstr(i) $(SysPath) != "KEY_ERROR"
                    ifstr(i) $(SysPath) == ""
                        ifstr(i) $(!NewInstall) != "TRUE"
                            ifstr(i) $(!InstallType) == "1"
                                LibraryProcedure SysPath, $(!DLLSQL), InsertInString $(SysPath),$(!OldSQLPath)"\"$(!Binaries),$(NewSQLPath)"\"$(!Binaries),";"
                            else
                                ifstr(i) $(!RegistryRebuild) != ""
                                    LibraryProcedure SysPath, $(!DLLSQL), InsertInString $(SysPath),$(!OldSQLPath)"\"$(!Binaries),$(NewSQLPath)"\"$(!Binaries),";"
                                else
                                    LibraryProcedure SysPath, $(!DLLSQL), AppendToString $(SysPath),$(NewSQLPath)"\"$(!Binaries),";"
                                endif
                            endif
                        else
                            LibraryProcedure SysPath, $(!DLLSQL), AppendToString $(SysPath),$(NewSQLPath)"\"$(!Binaries),";"
                        endif
                    else
                        ifstr(i) $(!NewInstall) != "TRUE"
                            ifstr(i) $(!InstallType) == "1"
                                LibraryProcedure SysPath, $(!DLLSQL), InsertInString $(SysPath),$(!OldSQLPath)"\"$(!Binaries),$(NewSQLPath)"\"$(!Binaries),";"
                            else
                                ifstr(i) $(!RegistryRebuild) != ""
                                    LibraryProcedure SysPath, $(!DLLSQL), InsertInString $(SysPath),$(!OldSQLPath)"\"$(!Binaries),$(NewSQLPath)"\"$(!Binaries),";"
                                else
                                    LibraryProcedure SysPath, $(!DLLSQL), AppendToString $(SysPath),";"$(NewSQLPath)"\"$(!Binaries),";"
                                endif
                            endif
                        else
                            LibraryProcedure SysPath, $(!DLLSQL), AppendToString $(SysPath),";"$(NewSQLPath)"\"$(!Binaries),";"
                        endif
                    endif
                else
                    set SysPath = $(NewSQLPath)"\"$(!Binaries)
                endif
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSysPathKey),$(!RegValSysPath),$(!RegTypeExpString),$(SysPath),""
                LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSysPathKey)
                set Status = "STATUS_SUCCESSFUL"
            endif
        endif
    else
        LibraryProcedure Result, $(!DLLSQL), SetNewPath $(!SQLPath)"\"$(!Binaries),"TRUE","FALSE"
        ifstr(i) $(Result) == "READONLY"
            read-syms ReadOnlyAutoexec$(!STF_LANGUAGE)
        endif
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteTapeSupport]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenDOSDevKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSystemPaths),$(!RegSysDOSDev),""
    ifstr(i) $(OpenDOSDevKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenDOSDevKey),$(!RegValType0),$(!RegTypeString),$(!DefTapeDev),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenDOSDevKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteSecuritySupport]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenSecKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr),"",$(!AdminACL)
    ifstr(i) $(OpenDBLibKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        ifstr(i) $($8) == "FORCE"
            set UpdateMode = ""
        else
            set UpdateMode = "NOEXIST_WRITE"
        endif
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecLoginMode),$(!RegTypeDWord),$($0),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecDefAccount),$(!RegTypeString),$($1),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecDefDomain),$(!RegTypeString),$($2),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecAuditLevel),$(!RegTypeDWord),$($3),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecMap1),$(!RegTypeString),$($4),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecMap2),$(!RegTypeString),$($5),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecMap3),$(!RegTypeString),$($6),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSecKey),$(!RegSecHostname),$(!RegTypeDWord),$($7),$(UpdateMode)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSecKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegGetSecuritySupport]
    set Status = "STATUS_FAILED"
    set LoginMode = "1"
    set DefAccount = $(!DefGuest)
    LibraryProcedure DefDomain, $(!DLLSQL), GetAccountName "DOMAIN"
    ifstr(i) $(DefDomain) == "WORKGROUP"
        set DefDomain = $(!ComputerName)
    else-ifstr(i) $(DefDomain) == "DOMAIN"
        set DefDomain = $(!ComputerName)
    endif
    set DefAuditLevel = "0"
    set DefMap1 = $(!DefSecMap1)
    set DefMap2 = $(!DefSecMap2)
    set DefMap3 = $(!DefSecMap3)
    set DefSetHostname = "0"
    LibraryProcedure OpenSecKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegSQLServer)"\"$(!RegSQLServerSvr)
    ifstr(i) $(OpenSecKey) != "KEY_ERROR"
        LibraryProcedure LoginMode, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecLoginMode)
        ifstr(i) $(LoginMode) == "KEY_ERROR"
            set LoginMode = "1"
        else
            ifstr(i) $(LoginMode) != ""
                set-add LoginMode = $(LoginMode),1
            else
                set LoginMode = "1"
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecDefAccount)
        ifstr(i) $(Result) != "KEY_ERROR"
            ifstr(i) $(Result) != ""
                set DefAccount = $(Result)
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecDefDomain)
        ifstr(i) $(Result) != "KEY_ERROR"
            ifstr(i) $(Result) != ""
                set DefDomain = $(Result)
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecAuditLevel)
        ifstr(i) $(Result) != "KEY_ERROR"
            ifstr(i) $(Result) != ""
                set DefAuditLevel = $(Result)
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecHostname)
        ifstr(i) $(Result) != "KEY_ERROR"
            ifstr(i) $(Result) != ""
                set DefSetHostname = $(Result)
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecMap1)
        ifstr(i) $(Result) != "KEY_ERROR"
            set DefMap1 = $(Result)
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecMap2)
        ifstr(i) $(Result) != "KEY_ERROR"
            set DefMap2 = $(Result)
        endif
        LibraryProcedure Result, $(!DLLSQL), RegRead $(OpenSecKey),$(!RegSecMap3)
        ifstr(i) $(Result) != "KEY_ERROR"
            set DefMap3 = $(Result)
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSecKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status),$(LoginMode),$(DefAccount),$(DefDomain),$(DefAuditLevel),$(DefMap1),$(DefMap2),$(DefMap3),$(DefSetHostname)

[RegWriteSerialNumberInfo]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenVersionKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLServerVer),$(!AdminACL)
    ifstr(i) $(OpenVersionKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenVersionKey),$(!RegValRegOwner),$(!RegTypeString),$(!FullName),""
        LibraryProcedure SerialNo, $(!DLLSQL), CreateSerialNumber $(!SQLReleaseNumber),$(!FullName)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenVersionKey),$(!RegValSerialNumber),$(!RegTypeDWord),$(SerialNo),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenVersionKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegUpdateTCPIPSupport]
    ifstr(i) $($0) == "TRUE"
        set Status = "STATUS_FAILED"
        LibraryProcedure OpenTCPIPKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegTCPIPService),$(!RegSQLSvrParam),""
        ifstr(i) $(OpenTCPIPKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenTCPIPKey),$(!RegValTCPTries),$(!RegTypeDWord),"4",""
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenTCPIPKey),$(!RegValTCPCnt),$(!RegTypeDWord),"30",""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenTCPIPKey)
            set Status = "STATUS_SUCCESSFUL"
        endif
    else
        LibraryProcedure OpenTCPIPKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName),$(!RegTCPIPService)"\"$(!RegSQLSvrParam)
        ifstr(i) $(OpenTCPIPKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenTCPIPKey),$(!RegValTCPTries)
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenTCPIPKey),$(!RegValTCPCnt)
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenTCPIPKey)
        endif
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteANSIOEM]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenDBLibKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSQLClient),$(!RegSQLDBLib),""
    ifstr(i) $(OpenDBLibKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenDBLibKey),$(!RegValANSIToOEM),$(!RegTypeString),$(!Chosen),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenDBLibKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteDBLibDefaults]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenDBLibKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSQLClient),$(!RegSQLDBLib),""
    ifstr(i) $(OpenDBLibKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenDBLibKey),$(!RegValANSIToOEM),$(!RegTypeString),$(!ANSItoOEMDef),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenDBLibKey),$(!RegValUseIntl),$(!RegTypeString),$(!Chosen),""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenDBLibKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegDeleteSystemPaths]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenSysPathKey, $(!DLLSQL), RegMakeKey $($0),$($1),"","",$($2)
    ifstr(i) $(OpenSysPathKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        ifstr(i) $(!RemoteComputer) == ""
            set !NewDefSQLPath = $(!SQLPath)
        else
            set !NewDefSQLPath = $(!LogicalSQLDrive)$(Temp)
        endif
        LibraryProcedure SysPath, $(!DLLSQL), RegRead $(OpenSysPathKey),$(!RegValSysPath)
        ifstr(i) $(SysPath) != "KEY_ERROR"
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(SysPath),"BEFORESTRING",";"$(!NewDefSQLPath)"\"$(!Binaries)
            LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(SysPath),"AFTERSTRING",";"$(!NewDefSQLPath)"\"$(!Binaries)
            ifstr(i) $(Before) == ""
                LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(SysPath),"BEFORESTRING",$(!NewDefSQLPath)"\"$(!Binaries)
            endif
            ifstr(i) $(After) == ""
                LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(SysPath),"AFTERSTRING",$(!NewDefSQLPath)"\"$(!Binaries)
            endif
            set NewSysPath = ""
            ifstr(i) $(Before) != ""
                set NewSysPath = $(Before)
            endif
            ifstr(i) $(After) != ""
                ifstr(i) $(NewSysPath) == ""
                    LibraryProcedure NewSysPath, $(!DLLSQL), AppendToString $(NewSysPath),$(After)
                else
                    LibraryProcedure NewSysPath, $(!DLLSQL), AppendToString $(NewSysPath),";"$(After)
                endif
            endif
            ifstr(i) $(NewSysPath) == ""
                set NewSysPath = $(SysPath)
            endif
            set OldNewSysPath = $(NewSysPath)
            LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(NewSysPath),"BEFORESTRING",";"$(!NewDefSQLPath)"\"$(!DLLs)
            LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(NewSysPath),"AFTERSTRING",";"$(!NewDefSQLPath)"\"$(!DLLs)
            ifstr(i) $(Before) == ""
                LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $(NewSysPath),"BEFORESTRING",$(!NewDefSQLPath)"\"$(!DLLs)
            endif
            ifstr(i) $(After) == ""
                LibraryProcedure After, $(!DLLSQL), StrBeforeAndAfter $(NewSysPath),"AFTERSTRING",$(!NewDefSQLPath)"\"$(!DLLs)
            endif
            set NewSysPath = ""
            ifstr(i) $(Before) != ""
                set NewSysPath = $(Before)
            endif
            ifstr(i) $(After) != ""
                ifstr(i) $(NewSysPath) == ""
                    LibraryProcedure NewSysPath, $(!DLLSQL), AppendToString $(NewSysPath),$(After)
                else
                    LibraryProcedure NewSysPath, $(!DLLSQL), AppendToString $(NewSysPath),";"$(After)
                endif
            endif
            ifstr(i) $(NewSysPath) == ""
                set NewSysPath = $(OldNewSysPath)
            endif
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSysPathKey),$(!RegValSysPath),$(!RegTypeExpString),$(NewSysPath),""
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSysPathKey)
        endif
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteELog]
    set Status = "STATUS_FAILED"
    LibraryProcedure OpenELogKey, $(!DLLSQL), RegMakeKey $($0),$(!RegEventAppLog),$(!SQLSchedulerService),""
    ifstr(i) $(OpenELogKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogMsgFile),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLSchEventDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogTypes),$(!RegTypeDWord),"7",""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogCMsgFile),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLSchEventDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogCCount),$(!RegTypeDWord),"4",""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenELogKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    LibraryProcedure OpenELogKey, $(!DLLSQL), RegMakeKey $($0),$(!RegEventAppLog),$(!SQLServerService),""
    ifstr(i) $(OpenELogKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogMsgFile),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLEventDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogTypes),$(!RegTypeDWord),"255",""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogCMsgFile),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLEventDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogCCount),$(!RegTypeDWord),"8",""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenELogKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    LibraryProcedure OpenELogKey, $(!DLLSQL), RegMakeKey $($0),$(!RegEventAppLog),$(!SQLCtrs),""
    ifstr(i) $(OpenELogKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogMsgFile),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!EventCtrsDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenELogKey),$(!RegValELogTypes),$(!RegTypeDWord),"7",""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenELogKey)
        set Status = "STATUS_SUCCESSFUL"
    endif
    Return $(Status)

[RegWriteVersion]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValVersion),$(!RegTypeString),$(!ProductVersion),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValRegOrg),$(!RegTypeString),$(!OrgName),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValRegPID),$(!RegTypeString),$(!ProductID),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValSoftType),$(!RegTypeString),$(!RegSQLSysType),""
    Return $(Status)

[RegWriteSchedulerSvc]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegServerAutoStart),$(!RegTypeDWord),$(!RegValServerAutoStart),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchRestart),$(!RegTypeDWord),$(!RegValSchedrestart),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchSysLimit),$(!RegTypeDWord),$(!RegValLimitRows),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchSysMax),$(!RegTypeDWord),$(!RegValMaxRows),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchAutoMail),$(!RegTypeDWord),$(!RegValServerAutoStart),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchServerHost),$(!RegTypeString),"","NOEXIST_WRITE"
    Return $(Status)

[RegWriteSchedulerSubSvc]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
    LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchCmdExec),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLCmdExecDLL)","$(!RegValCmdExec),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchReplSync),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLReplDLL)","$(!RegValReplSync),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchReplReader),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLReplDLL)","$(!RegValReplReader),""
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegSchReplDist),$(!RegTypeString),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLReplDLL)","$(!RegValReplDist),""
    Return $(Status)

[RegWriteReplication]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
    LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValReplDir),$(!RegTypeString),$(NewSQLPath)"\"$(!ReplDir),"NOEXIST_WRITE"
    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValSQLReplDB),$(!RegTypeString),$(!RegSchReplLCDist),"NOEXIST_WRITE"
    Return $(Status)

[RegWriteListenOn]
    set Status = "STATUS_SUCCESSFUL"
    set RPCEncrypt = "FALSE"
    set NewNetLibList = {}
    set CurrentUserAddrIdx = 1
    ForListDo $($1)
        ifstr(i) $($) == $(!NetLibVines)
            set NewNetLibList = >( $(NewNetLibList), $($)","$(!StreetName))
        else-ifstr(i) $($) == $(!NetLibSPX)
            ifstr(i) $(!SocketNumber) == ""
                set NewNetLibList = >( $(NewNetLibList), $($)","$(!ServiceName))
            else
                set NewNetLibList = >( $(NewNetLibList), $($)","$(!ServiceName)","$(!SocketNumber))
            endif
        else-ifstr(i) $($) == $(!NetLibTCPIP)
            set NewNetLibList = >( $(NewNetLibList), $($)","$(!TCPIPSocketNumber))
        else-ifstr(i) $($) == $(!NetLibADSP)
            set NewNetLibList = >( $(NewNetLibList), $($)","$(!ADSPServiceName))
        else-ifstr(i) $($) == $(!NetLibDECNet)
            set NewNetLibList = >( $(NewNetLibList), $($)","$(!DECNetObjectID))
        else-ifstr(i) $($) == $(!NetLibPipes)
            set NewNetLibList = >( $(NewNetLibList), $($)","$(!ServerNMPipeName))
        else-ifstr(i) $($) == $(!NetLibRPC)
            set NewNetLibList = >( $(NewNetLibList), $($))
            set RPCEncrypt = "TRUE"
        else
            set NewNetLibList = >( $(NewNetLibList), $($)","*($($2),$(CurrentUserAddrIdx)))
            set-add CurrentUserAddrIdx = $(CurrentUserAddrIdx),1
        endif

        ifcontains(i) $(!NetLibTCPIP) in $($1)
            shell "" RegUpdateTCPIPSupport "TRUE"
        else
            shell "" RegUpdateTCPIPSupport "FALSE"
        endif

    EndForListDo

    LibraryProcedure Result, $(!DLLSQL), RegSet $($0),$(!RegValListenOn),$(!RegTypeMulti),$(NewNetLibList),""
    ifstr(i) $(RPCEncrypt) == "TRUE"
        LibraryProcedure OpenMPKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegRPCNetLib),$(!AdminACL)
        ifstr(i) $(OpenMPKey) == "KEY_ERROR"
            read-syms ErrorReadRegistry$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto endlistenon
        endif
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenMPKey),$(!RegValRPCSec),$(!RegTypeString),$(!MultiProtEncrypt),$(AdminACL)
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenMPKey)
    endif

endlistenon =+
    Return $(Status)

[RegWriteGroupOrder]
    set Status = "STATUS_SUCCESSFUL"
    shell "" DoGroupOrderNuke $($0)
    set AppendedHandle = "0"
    LibraryProcedure GrpOrderKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSystemGrpOrder),"",""
    ifstr(i) $(GrpOrderKey) != "KEY_ERROR"
        LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(GrpOrderKey),$(!RegValGrpOrderList),"ALLOC_HANDLE"
        ifstr(i) $(CntrsMem) != "KEY_ERROR"
            set OneEntry = {}
            set OneEntry = >( $(OneEntry), $(!SQLServerService))
            LibraryProcedure AppendedHandle, $(!DLLSQL), AppendToHandle $(CntrsMem),$(!RegTypeMulti),$(OneEntry)
            LibraryProcedure Result, $(!DLLSQL), RegSet $(GrpOrderKey),$(!RegValGrpOrderList),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(GrpOrderKey)
    endif
    Return $(Status)

[RegWriteMailEnabled]
    set Status = "STATUS_SUCCESSFUL"
    set AppendedHandle = "0"
    LibraryProcedure OpenCntrKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSQLServerServer),"",$(!AdminACL)
    ifstr(i) $(OpenCntrKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValMailEnabled),$(!RegTypeMulti),"","NOEXIST_WRITE"
        LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(OpenCntrKey),$(!RegValMailEnabled),"ALLOC_HANDLE"
        ifstr(i) $(CntrsMem) != "KEY_ERROR"
            set OneEntry = {}
            set OneEntry = >( $(OneEntry), $($1))
            LibraryProcedure AppendedHandle, $(!DLLSQL), AppendToHandle $(CntrsMem),$(!RegTypeMulti),$(OneEntry)
            LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValMailEnabled),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenCntrKey)
    endif
    Return $(Status)

[RegCopyMailInfo]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure OpenCUMailKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSWMS),"Mail","" ,"TRUE"
    ifstr(i) $(OpenCUMailKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE", $(!SQLPath)"\TMPMAIL0"
        LibraryProcedure Result, $(!DLLSQL), RegSave, $(OpenCUMailKey), $(!SQLPath)"\TMPMAIL0"
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenCUMailKey)
        LibraryProcedure OpenDefMailKey, $(!DLLSQL), RegMakeKey $($0),".DEFAULT",$(!RegSWMS)"\Mail","","", "TRUE"
        ifstr(i) $(OpenDefMailKey) != "KEY_ERROR"
            LibraryProcedure Result, $(!DLLSQL), RegRestore, $(OpenDefMailKey), $(!SQLPath)"\TMPMAIL0"
            LibraryProcedure Result, $(!DLLSQL), Delnode "FILE_DELETE", $(!SQLPath)"\TMPMAIL0"
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenDefMailKey)
        endif
    endif
    Return $(Status)

[RegWriteSNMP]
    set Status = "STATUS_FAIL"

    LibraryProcedure OpenSQLSNMPKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer), $(!RegSQLSNMP),""
    ifstr(i) $(OpenSQLSNMPKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_regwsnmp
    endif

    LibraryProcedure OpenSQLSNMPVerKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName), $(!RegSQLServer), $(!RegSQLSNMP)"\"$(!RegCurrentVer),""
    ifstr(i) $(OpenSQLSNMPVerKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_regwsnmp
    endif

    LibraryProcedure OpenSNMPAgentsKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName), $(!RegSCM)"\"$(!RegSNMPAgents), "", ""
    ifstr(i) $(OpenSQLSNMPVerKey) == "KEY_ERROR"
        read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto end_regwsnmp
    endif

    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSQLSNMPVerKey), $(!RegValPathName), $(!RegTypeExpString), $(!SQLPath)"\"$(!Binaries)"\"$(!SQLSNMPDLL), ""

    set TmpList = {}
    set Idx = "0"
    LibraryProcedure TmpList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSCM)"\"$(!RegSNMPAgents),"VALUEDATA"
    ForListDo $(TmpList)
        LibraryProcedure TmpAfter, $(!DLLSQL), StrBeforeAndAfter $($), "AFTERSTRING", $(!RegSQLServerSvr)
        ifstr(i) $(TmpAfter) != ""
            set Idx = $(#)
        endif
    EndForListDo
    set TmpList = {}
    LibraryProcedure TmpList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSCM)"\"$(!RegSNMPAgents),"VALUENAMES"
    ifstr(i) $(Idx) == "0"
        set Max = "0"
        ForListDo $(TmpList)
            ifint $(Max) < $($)
                set Max = $($)
            endif
        EndForListDo
        set-add ValueName = $(Max), 1
    else
        set ValueName = *($(TmpList), $(Idx))
    endif

    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenSNMPAgentsKey), $(ValueName), $(!RegTypeString), $(!RegSQLServer)"\"$(!RegSQLSNMP)"\"$(!RegCurrentVer), ""

    set Status = "STATUS_SUCCESSFUL"

end_regwsnmp =+
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSQLSNMPVerKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSQLSNMPKey)
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSNMPAgentsKey)

    Return $(Status)

[DoNukeSQLSNMPAgent]
        set Status = "STATUS_FAIL"

        LibraryProcedure OpenSNMPAgentsKey, $(!DLLSQL), RegOpen "\\"$(!ComputerName), $(!RegSCM)"\"$(!RegSNMPAgents)
        ifstr(i) $(OpenSQLSNMPVerKey) == "KEY_ERROR"
          read-syms ErrorUpdatingRegistry$(!STF_LANGUAGE)
          LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
          goto end_regwsnmp
        endif

        set TmpList = {}
        set Idx = "0"
        LibraryProcedure TmpList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSCM)"\"$(!RegSNMPAgents),"VALUEDATA"
        ForListDo $(TmpList)
            LibraryProcedure TmpAfter, $(!DLLSQL), StrBeforeAndAfter $($), "AFTERSTRING", $(!RegSQLServerSvr)
            ifstr(i) $(TmpAfter) != ""
                set Idx = $(#)
            endif
        EndForListDo

        ifstr(i) $(Idx) != "0"
            set TmpList = {}
            LibraryProcedure TmpList, $(!DLLSQL), RegEnumKeyValues "\\"$(!ComputerName),$(!RegSCM)"\"$(!RegSNMPAgents),"VALUENAMES"
            set ValueName = *($(TmpList), $(Idx))
            LibraryProcedure Result, $(!DLLSQL), RegDelValue $(OpenSNMPAgentsKey), $(ValueName)
        endif

        set Status = "STATUS_SUCCESSFUL"

end_nukesqlsnmp =+
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSNMPAgentsKey)

        return $(Status)

[DoGroupOrderNuke]
    set Status = "STATUS_SUCCESSFUL"
    set AppendedHandle = "0"
    LibraryProcedure GrpOrderKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSystemGrpOrder),"",""
    ifstr(i) $(GrpOrderKey) != "KEY_ERROR"
        LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(GrpOrderKey),$(!RegValGrpOrderList),"ALLOC_HANDLE"
        ifstr(i) $(CntrsMem) != "KEY_ERROR"
            LibraryProcedure PriorHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "BEFORESTRING",$(CntrsMem),$(!SQLServerService),"0"
            ifstr(i) $(PriorHandle) != "0"
                LibraryProcedure AfterHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "AFTERSTRING",$(CntrsMem),$(!SQLServerService),"0"
                LibraryProcedure AppendedHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "APPEND_HANDLES",$(PriorHandle),$(AfterHandle),""
            endif
            ifstr(i) $(AppendedHandle) != "0"
                LibraryProcedure Result, $(!DLLSQL), RegSet $(GrpOrderKey),$(!RegValGrpOrderList),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(GrpOrderKey)
    endif
    Return $(Status)

[DoMailNuke]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure OpenCntrKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSQLServerServer),"",$(AdminACL)
    ifstr(i) $(OpenCntrKey) != "KEY_ERROR"
        LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(OpenCntrKey),$(!RegValMailEnabled),"ALLOC_HANDLE"
        ifstr(i) $(CntrsMem) != "KEY_ERROR"
            LibraryProcedure PriorHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "BEFORESTRING",$(CntrsMem),$($1),"0"
            ifstr(i) $(PriorHandle) != "0"
                LibraryProcedure AfterHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "AFTERSTRING",$(CntrsMem),$($1),"0"
                LibraryProcedure AppendedHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "APPEND_HANDLES",$(PriorHandle),$(AfterHandle),""
                ifstr(i) $(AppendedHandle) != "0"
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValMailEnabled),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
                endif
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenCntrKey)
    endif
    Return $(Status)

[DoPerfmonNuke]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure CurrentLocale, $(!DLLSQL), GetDefaultLocale
    LibraryProcedure SQLPerfKey, $(!DLLSQL), RegOpen $($0),$(!RegSCM)"\"$(!SQLServerService)"\"$(!RegSQLPerformance)
    ifstr(i) $(SQLPerfKey) != "KEY_ERROR"
        LibraryProcedure Temp, $(!DLLSQL), RegRead $(SQLPerfKey),$(!RegValFirstCntr)
        set FirstCntr = *($(Temp),1)
        LibraryProcedure LastCntr, $(!DLLSQL), RegRead $(SQLPerfKey),$(!RegValLastCntr)
        LibraryProcedure Temp, $(!DLLSQL), RegRead $(SQLPerfKey),$(!RegValFirstHelp)
        set FirstHelp = *($(Temp),1)
        LibraryProcedure LastHelp, $(!DLLSQL), RegRead $(SQLPerfKey),$(!RegValLastHelp)
nukeAnotherLocale =+
        LibraryProcedure OpenCntrKey, $(!DLLSQL), RegMakeKey $($0),$(!RegNTPerfLib),$(CurrentLocale),""
        ifstr(i) $(OpenCntrKey) != "KEY_ERROR"
            LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(OpenCntrKey),$(!RegValCounters),"ALLOC_HANDLE"
            ifstr(i) $(CntrsMem) != "KEY_ERROR"
                LibraryProcedure PriorHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "BEFORESTRING",$(CntrsMem),$(FirstCntr),"0"
                ifstr(i) $(PriorHandle) != "0"
                    LibraryProcedure AfterHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "AFTERSTRING",$(CntrsMem),$(LastCntr),"1"
                    LibraryProcedure AppendedHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "APPEND_HANDLES",$(PriorHandle),$(AfterHandle),""
                    ifstr(i) $(AppendedHandle) != "0"
                        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValCounters),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
                    endif
                endif
            endif

            LibraryProcedure HelpMem, $(!DLLSQL),  RegRead $(OpenCntrKey),$(!RegValHelp),"ALLOC_HANDLE"
            ifstr(i) $(HelpMem) != "KEY_ERROR"
                LibraryProcedure PriorHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "BEFORESTRING",$(HelpMem),$(FirstHelp),"0"
                ifstr(i) $(PriorHandle) != "0"
                    LibraryProcedure AfterHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "AFTERSTRING",$(HelpMem),$(LastHelp),"1"
                    LibraryProcedure AppendedHandle, $(!DLLSQL), BeforeAndAfterIdxSearchAlloc "APPEND_HANDLES",$(PriorHandle),$(AfterHandle),""
                    ifstr(i) $(AppendedHandle) != "0"
                        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValHelp),$(!RegTypeMulti),$(AppendedHandle),"","HANDLE"
                    endif
                endif
            endif
            LibraryProcedure OpenNTPerfKey, $(!DLLSQL), RegMakeKey $($0),$(!RegNTPerfLib),"",""
            ifstr(i) $(OpenNTPerfKey) != "KEY_ERROR"
                LibraryProcedure LastNTCntr, $(!DLLSQL), RegRead $(OpenNTPerfKey),$(!RegValLastCntr)
                LibraryProcedure LastNTHelp, $(!DLLSQL), RegRead $(OpenNTPerfKey),$(!RegValLastHelp)
                ifstr(i) $(LastNTCntr) == $(LastCntr)
                    set-sub LastNTCntr = $(FirstCntr),2
                    set-sub LastNTHelp = $(FirstHelp),2
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLastCntr),$(!RegTypeDWord),$(LastNTCntr),""
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLastHelp),$(!RegTypeDWord),$(LastNTHelp),""
                endif
                LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenNTPerfKey)
            endif

            ifstr(i) $(CurrentLocale) != $(!DefPerfLangID)
                set CurrentLocale = $(!DefPerfLangID)
                goto nukeAnotherLocale
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(SQLPerfKey)
    endif
    LibraryProcedure Result, $(!DLLSQL), RegEnumDelete "\\"$(!ComputerName),"UNIDELETE",$(!RegSCM),$(!SQLServerService)"\"$(!RegSQLPerformance)
    Return $(Status)

[RegWritePerfMon]
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure CurrentLocale, $(!DLLSQL), GetDefaultLocale
    shell "" DoPerfmonNuke $($0)
    LibraryProcedure OpenNTPerfKey, $(!DLLSQL), RegMakeKey $($0),$(!RegSCM),$(!SQLServerService)"\"$(!RegSQLPerformance),""
    ifstr(i) $(OpenNTPerfKey) != "KEY_ERROR"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLibrary),$(!RegTypeString),$(!SQLCtrsDLL),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValOpen),$(!RegTypeString),"OpenSQLPerformanceData",""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValCollect),$(!RegTypeString),"CollectSQLPerformanceData",""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValClose),$(!RegTypeString),"CloseSQLPerformanceData",""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLoginTO),$(!RegTypeDWord),$(!LoginSleepPeriod),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValQueryTO),$(!RegTypeDWord),"30",""
anotherLocale =+
        LibraryProcedure OpenPerfKey, $(!DLLSQL), RegMakeKey $($0),$(!RegNTPerfLib),"",""
        ifstr(i) $(OpenPerfKey) != "KEY_ERROR"
            LibraryProcedure OpenCntrKey, $(!DLLSQL), RegMakeKey $($0),$(!RegNTPerfLib),$(CurrentLocale),""
            ifstr(i) $(OpenCntrKey) != "KEY_ERROR"
                LibraryProcedure CntrsMem, $(!DLLSQL), RegRead $(OpenCntrKey),$(!RegValCounters),"ALLOC_HANDLE"
                ifstr(i) $(CntrsMem) == "KEY_ERROR"
                    set CntrsMem = ""
                endif
                LibraryProcedure HelpMem, $(!DLLSQL),  RegRead $(OpenCntrKey),$(!RegValHelp),"ALLOC_HANDLE"
                ifstr(i) $(HelpMem) == "KEY_ERROR"
                    set HelpMem = ""
                endif
                LibraryProcedure LastCounter, $(!DLLSQL), RegRead $(OpenPerfKey),$(!RegValLastCntr)
                LibraryProcedure LastHelp, $(!DLLSQL), RegRead $(OpenPerfKey),$(!RegValLastHelp)
                set CurrentCntr = $(LastCounter)
                set OrigCntr = $(LastCounter)
                set CurrentHelp = $(LastHelp)
                set OrigHelp = $(LastHelp)
                install LoadPerfLibrary
                LibraryProcedure NumPerfCntrs, $(!PERFHANDLE), GetNumPerfCounters

                set PerfNameSQLSvrObj = {}
                set PerfHelpSQLSvrObj = {}
                set PerfSQLObjects = {}
                set ListCntr = "1"
                set-sub CntrLimit = $(NumPerfCntrs),1
listLoop =+
                LibraryProcedure CntrListPair, $(!PERFHANDLE), GetPerfCounter $(ListCntr)
                set PerfNameSQLSvrObj = >( $(PerfNameSQLSvrObj), *($(CntrListPair), 1))
                set PerfHelpSQLSvrObj = >( $(PerfHelpSQLSvrObj), *($(CntrListPair), 2))

                ifstr(i) *($(CntrListPair), 1) == *($(CntrListPair), 2)
                    set PerfSQLObjects = >( $(PerfSQLObjects), $(ListCntr))
                endif
                ifint $(ListCntr) > $(CntrLimit)
                else
                    set-add ListCntr = $(ListCntr),1
                    goto listLoop
                endif

                install FreePerfLibrary

                set-add CurrentCntr = $(CurrentCntr),"2"
                set-add CurrentHelp = $(CurrentHelp),"2"
                shell "" DoCreateObjectCntrList $(PerfSQLObjects),$(CurrentCntr)
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValFirstCntr),$(!RegTypeMulti),$($R0),""
                shell "" DoCreateObjectCntrList $(PerfSQLObjects),$(CurrentHelp)
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValFirstHelp),$(!RegTypeMulti),$($R0),""

                ForListDo $(PerfNameSQLSvrObj)
                    set OneEntry = {}
                    set OneEntry = >( $(OneEntry), $(CurrentCntr))
                    set OneEntry = >( $(OneEntry), $($))
                    LibraryProcedure CntrsMem, $(!DLLSQL), AppendToHandle $(CntrsMem),$(!RegTypeMulti),$(OneEntry)
                    set-add CurrentCntr = $(CurrentCntr),"2"
                EndForListDo
                set-sub CurrentCntr = $(CurrentCntr),2
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValCounters),$(!RegTypeMulti),$(CntrsMem),"","HANDLE"
                LibraryProcedure Result, $(!DLLSQL), FreeHandle $(CntrsMem)

                ForListDo $(PerfHelpSQLSvrObj)
                    set OneEntry = {}
                    set OneEntry = >( $(OneEntry), $(CurrentHelp))
                    set OneEntry = >( $(OneEntry), $($))
                    LibraryProcedure HelpMem, $(!DLLSQL), AppendToHandle $(HelpMem),$(!RegTypeMulti),$(OneEntry)
                    set-add CurrentHelp = $(CurrentHelp),"2"
                EndForListDo
                set-sub CurrentHelp = $(CurrentHelp),2
                LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenCntrKey),$(!RegValHelp),$(!RegTypeMulti),$(HelpMem),"","HANDLE"
                LibraryProcedure Result, $(!DLLSQL), FreeHandle $(HelpMem)

                ifstr(i) $(CurrentLocale) == $(!DefPerfLangID)
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenPerfKey),$(!RegValLastCntr),$(!RegTypeDWord),$(CurrentCntr),""
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenPerfKey),$(!RegValLastHelp),$(!RegTypeDWord),$(CurrentHelp),""
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLastCntr),$(!RegTypeDWord),$(CurrentCntr),""
                    LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenNTPerfKey),$(!RegValLastHelp),$(!RegTypeDWord),$(CurrentHelp),""
                else
                    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenPerfKey)
                    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenCntrKey)
                    set CurrentLocale = $(!DefPerfLangID)
                    goto anotherLocale
                endif
                LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenPerfKey)
            endif
            LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenCntrKey)
        endif
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenNTPerfKey)
    endif
    Return $(Status)

[DoCreateObjectCntrList]
    set Objects = {}
    ForListDo $($0)
        set-sub Cntr = $($),1
        LibraryProcedure Idx, $(!DLLSQL), IntMultiply $(Cntr),2
        set-add Idx = $(Idx), $($1)
        set Objects = >( $(Objects), $(Idx))
    EndForListDo
    return $(Objects)

[UpdateOleReg]

    set !DlgHandle = ""
    set Status = "STATUS_SUCCESSFUL"
    ifstr(i) $($0) == ""
        ifstr(i) $(!RegistryRebuild) == ""
            ifstr(i) $(!InstallType) == "1"
                LibraryProcedure !DlgHandle, $(!DLLSQL), BillBoard $(STF_HWND),"",$(!SQLDlgNames)
                read-syms BillboardOle$(!STF_LANGUAGE)
                LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
            else
                read-syms BillboardOle$(!STF_LANGUAGE)
                LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $($1),$(!BillName)
            endif
        endif
    endif
    StartWait
    ifstr(i) $(!RemoteComputer) == ""
        LibraryProcedure Results, $(!DLLSQL), DoOleRegistration $(!SQLPath)"\"$(!Binaries)"\"$(!SQLOle32),"REGISTER"
        ifstr(i) $(Results) != "TRUE"
            set !MsgText = $(Results)
            set Status = "STATUS_FAILED"
            goto end_UpdateOle
        endif
        LibraryProcedure Results, $(!DLLSQL), DoOleRegistration $(!SQLPath)"\"$(!Binaries)"\"$(!ODSOle32),"REGISTER"
        ifstr(i) $(Results) != "TRUE"
            set !MsgText = $(Results)
            set Status = "STATUS_FAILED"
            goto end_UpdateOle
        endif
        ProcessExecute Result,"WAIT",$(!STF_WINDOWSPATH)"\"$(!RegEdit)" /s "$(!SQLPath)"\"$(!Binaries)"\"$(!MSDTCOle)
    else
        shell "" StartService $(!SQLServerService)
        set CmdLine = $(!RemoteSystemRoot)"\"$(!RegEdit)" /s "$(!RemSQLPath)"\"$(!Binaries)"\"$(!MSDTCOle)"' ""  /o"$(!SQLPath)"\"$(!InstallDir)"\MSDTCOLE.OUT /P"$(!SAPassword)
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" exec xp_cmdshell '"$(CmdLine)
        shell "" StopService $(!SQLServerService)
    endif
    EndWait
    ifstr(i) $(Result) == "PROCESS_ERROR"
        read-syms ProcessExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!RegEdit)" "$(!AddlText)
        set Status = "STATUS_FAILED"
        goto end_UpdateOle
    else-ifstr(i) $(Result) != "0"
        read-syms ProcessRetError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!RegEdit)" "$(!AddlText)" "$(Result)
        set Status = "STATUS_FAILED"
    endif
end_UpdateOle=+
    ifstr(i) $(!DlgHandle) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgHandle)
    endif
    return $(Status)

[InstallODBC]
    set !DlgHandle = ""
    set !ODBCError = ""
    set !NonCriticalODBCInstallFail = ""
    set Status = "STATUS_SUCCESSFUL"
    ifstr(i) $(!RegistryRebuild) == ""
        ifstr(i) $(!RemoteComputer) == ""
            LibraryProcedure !DlgHandle, $(!DLLSQL), BillBoard $(STF_HWND),"",$(!SQLDlgNames)
            read-syms BillboardODBC$(!STF_LANGUAGE)
            LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
            LibraryProcedure !ODBCError, $(!DLLSQL), SetupODBC $(!ODBCDir),$(!ODBCDrv)
            ifstr(i) $(!ODBCError) != ""
                set Status = "STATUS_FAILED"
                set !NonCriticalODBCInstallFail = "1"
            endif
            ifstr(i) $(!DlgHandle) != ""
                LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgHandle)
                set !DlgHandle = ""
            endif
        else
            LibraryProcedure !DlgHandle, $(!DLLSQL), BillBoard $(STF_HWND),"",$(!SQLDlgNames)
            read-syms BillboardODBC$(!STF_LANGUAGE)
            LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)
            StartWait
            shell "" StartService $(!SQLServerService)
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                EndWait
                goto finish_odbc
            endif
            ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" exec sp_addextendedproc 'xp_odbcinst','instodbc'"" /o"$(!SQLPath)"\"$(!InstallDir)"\ODBC1.OUT /P"$(!SAPassword)
            EndWait
            ifstr(i) $(Result) == "PROCESS_ERROR"
                read-syms ProcessExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                goto finish_odbc
            else-ifstr(i) $(Result) != "0"
                read-syms ProcessRetError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
                goto finish_odbc
            endif
            StartWait
            ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" exec xp_odbcinst '"$(!RemSQLPath)"\"$(!SQLODBCDir)"', 'SQL Server'""  /o"$(!SQLPath)"\"$(!InstallDir)"\ODBC2.OUT /P"$(!SAPassword)
            EndWait
            ifstr(i) $(Result) == "PROCESS_ERROR"
                read-syms ProcessExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                goto finish_odbc
            else-ifstr(i) $(Result) != "0"
                read-syms ProcessRetError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
                goto finish_odbc
            endif
            StartWait
            ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" exec sp_dropextendedproc 'xp_odbcinst'""  /o"$(!SQLPath)"\"$(!InstallDir)"\ODBC3.OUT /P"$(!SAPassword)
            EndWait
            ifstr(i) $(Result) == "PROCESS_ERROR"
                read-syms ProcessExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                goto finish_odbc
            else-ifstr(i) $(Result) != "0"
                read-syms ProcessRetError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
                goto finish_odbc
            endif
            StartWait
            ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" DBCC instodbc(FREE)""  /o"$(!SQLPath)"\"$(!InstallDir)"\ODBC4.OUT /P"$(!SAPassword)
            EndWait
            ifstr(i) $(Result) == "PROCESS_ERROR"
                read-syms ProcessExecError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
                goto finish_odbc
            else-ifstr(i) $(Result) != "0"
                read-syms ProcessRetError$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
                goto finish_odbc
            endif
        endif
    endif
finish_odbc=+
    ifstr(i) $(!RemoteComputer) != ""
        shell "" StopService $(!SQLServerService)
    endif
    ifstr(i) $(!DlgHandle) != ""
        LibraryProcedure Result, $(!DLLSQL), CloseDialog $(!DlgHandle)
    endif
    return $(Status)

[RegisterMSDTC]
    Set Status = "STATUS_SUCCESSFUL"
    set Cmd = "MSDTC -install "$(!MSDTCService)" "$(!SQLPath)"\"$(!Binaries)" "$(!SQLPath)"\"$(!DataDir)
    ifstr(i) $(!RemoteComputer) == ""
        ProcessExecute Result,"WAIT",$(Cmd)
        ifstr(i) $(Result) == "PROCESS_ERROR"
            set Status = "STATUS_FAILED"
        endif
    else
        StartWait
        shell "" StartService $(!SQLServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            EndWait
            goto finish_instmsdtc
        endif
        StartWait
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"" exec xp_cmdshell '$(Cmd)'""  /o"$(!SQLPath)"\"$(!InstallDir)"\MSDTC.OUT /P"$(!SAPassword)
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            set Status = "STATUS_FAILED"
        else-ifstr(i) $(Result) != "0"
            read-syms ProcessRetError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
            set Status = "STATUS_FAILED"
        endif
    endif
finish_instmsdtc =+
    ifstr(i) $(!RemoteComputer) != ""
        shell "" StopService $(!SQLServerService)
    endif
    return $(Status)

[UpdateSCM]
    set Status = "STATUS_FAILED"
    set ErrorNumber = ""
    set OpenSQLKey = ""
    read-syms BillboardSCM$(!STF_LANGUAGE)
    LibraryProcedure Result, $(!DLLSQL), UpdateBillboard $(!DlgHandle),$(!BillName)

    LibraryProcedure OpenSQLKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServer),"",""
    LibraryProcedure OpenParamKey, $(!DLLSQL), RegMakeKey "\\"$(!ComputerName),$(!RegSQLServerServer),$(!RegSQLSvrParam),$(!AdminACL)
    ifstr(i) $(OpenParamKey) == "KEY_ERROR"
        set ErrorNumber = " #SCM1"
        goto end_updateSCM
    endif

    ifstr(i) $(!RemoteComputer) == ""
        set NewSQLPath = $(!SQLPath)
        set NewMasterPath = $(!MasterDBPath)
    else
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        LibraryProcedure NewSQLPath, $(!DLLSQL), AppendToString $(!LogicalSQLDrive),$(Temp)
        LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!MasterDBPath),"AFTER",":"
        LibraryProcedure NewMasterPath, $(!DLLSQL), AppendToString $(!LogicalDBDrive),$(Temp)
    endif
    ifstr(i) $($0) == "TRUE"
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValParameter)"0",$(!RegTypeString),"-d"$(NewMasterPath)"\"$(!MasterDBFileName),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(!RegValParameter)"1",$(!RegTypeString),"-e"$(NewSQLPath)"\"$(!LogDir)"\"$(!ErrorLog),""
        ifstr(i) $(!InstallType) != "1"
            ifstr(i) $(!SQL95Keys) != "TRUE"
                LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLMonitorService),"",""
                LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLOldServerService),"",""
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLSchedulerService),"",""
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!SQLServerService),"",""
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_REMOVE",$(!MSDTCService),"",""
        set pollLoop = "1"
        ifstr(i) $(!AutoServerService) == "CHECKED"
            set StartType = "A"
        else
            set StartType = ""
        endif
pollSvrCreate =+
            LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_CREATE",$(!SQLServerService),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLServer),"","","",$(StartType),"1"
        ifstr(i) $(Result) != ""
            ifint $(pollLoop) < "5"
                set-add pollLoop = $(pollLoop),1
                goto pollSvrCreate
            endif
            LibraryProcedure Err, $(!DLLSQL), GetLastSetupError
            set ErrorNumber = " #SCM2 - "$(Err)
            goto end_updateSCM
        endif
        set pollLoop = "1"
        ifstr(i) $(!AutoSchedulerService) == "CHECKED"
            set StartType = "A"
        else
            set StartType = ""
        endif
add_scheduler_svc =+
        LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_CREATE",$(!SQLSchedulerService),$(NewSQLPath)"\"$(!Binaries)"\"$(!SQLSchedulerEXE),$(!UserName),$(!UserPassword),"",$(StartType)
        ifstr(i) $(Result) != ""
            ifint $(pollLoop) < "5"
                set-add pollLoop = $(pollLoop),1
                goto add_scheduler_svc
            endif
            LibraryProcedure Err, $(!DLLSQL), GetLastSetupError
            set ErrorNumber = " #SCM3 - "$(Err)
            goto end_updateSCM
        endif

        shell "" DoExtractMasterAndErrorlog "\\"$(!ComputerName)
        set MasterEntry = $($R0)
        set ELogEntry = $($R1)
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(MasterEntry),$(!RegTypeString),"-d"$(NewMasterPath)"\"$(!MasterDBFileName),""
        LibraryProcedure Result, $(!DLLSQL), RegSet $(OpenParamKey),$(ELogEntry),$(!RegTypeString),"-e"$(NewSQLPath)"\"$(!LogDir)"\"$(!ErrorLog),""
    endif
    set Status = "STATUS_SUCCESSFUL"
    LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenParamKey)
end_updateSCM =+
    ifstr(i) $(OpenSQLKey) != ""
        LibraryProcedure Result, $(!DLLSQL), RegClose $(OpenSQLKey)
    endif
    Return $(Status) $(ErrorNumber)

[StartService]
    set Status = "STATUS_FAILED"
    set Svc = $($0)
    ifstr(i) $(Svc) == $(!SQLServerService)
        set Delay = "15"
    else
        set Delay = "10"
    endif
    StartWait
restart_service =+
    LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_START",$(Svc),"",""
    ifstr(i) $(Result) != ""
        goto endStartServ
    endif
    LibraryProcedure Result, $(!DLLSQL), Sleepy $(Delay)
    set PollTime = "0"
pollstate =+
    LibraryProcedure Result, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(Svc)
    ifstr(i) $(Result) == "SERVICE_LIMBO"
        ifint $(PollTime) > "120"
            goto endStartServ
        endif
        LibraryProcedure Result, $(!DLLSQL), Sleepy "5"
        set-add PollTime = $(PollTime),5
        goto pollstate
    endif
    ifstr(i) $(Result) == "SERVICE_RUNNING"
        set Status = "STATUS_SUCCESSFUL"
    endif
endStartServ =+
    ifstr(i) $($1) == "TestCreate"
        ifstr(i) $(Result) == "SVC_NO_PATH"
            set Status = "STATUS_SUCCESSFUL"
            goto donestart
        endif
    endif
    ifstr(i) $(Result) == "CANNOT_LOGON_SERVICE"
        set Status = "STATUS_FAILED"
        goto donestart
    endif
    ifstr(i) $(Status) != "STATUS_SUCCESSFUL"
        read-syms NetStartError$(!STF_LANGUAGE)
        LibraryProcedure Err, $(!DLLSQL), GetLastSetupError
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(Svc)" - "$(!AddlText)" - "$(Err)
    endif
donestart=+
    EndWait
    Return $(Status) $(Result)

[StopService]
    set Status = "STATUS_FAILED"
    set Svc = $($0)
    set Delay = "5"
    StartWait
    LibraryProcedure Result, $(!DLLSQL), DoServiceOp "\\"$(!ComputerName),"SERVICE_STOP",$(Svc),"",""
    ifstr(i) $(Result) == "SERVICE_NOT_EXIST"
        set Status = "STATUS_SUCCESSFUL"
        goto endStopSQL
    else-ifstr(i) $(Result) != ""
        goto endStopSQL
    endif
    set PollTime = "0"
pollstate =+
    LibraryProcedure Result, $(!DLLSQL), GetServiceState "\\"$(!ComputerName),$(Svc)
    ifstr(i) $(Result) == "SERVICE_LIMBO"
        ifint $(PollTime) > "120"
            goto endStopSQL
        endif
        LibraryProcedure Result, $(!DLLSQL), Sleepy $(Delay)
        set-add PollTime = $(PollTime), $(Delay)
        goto pollstate
    endif
    ifstr(i) $(Result) == "SERVICE_STOPPED"
        set Status = "STATUS_SUCCESSFUL"
    endif
endStopSQL =+
    ifstr(i) $(Status) != "STATUS_SUCCESSFUL"
        read-syms NetStopError$(!STF_LANGUAGE)
        LibraryProcedure Err, $(!DLLSQL), GetLastSetupError
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(Svc)" -  "$(!AddlText)" - "$(Err)
    endif
    ifstr(i) $(!RemoteComputer) == ""
        ifstr(i) $(Svc) == $(!SQLServerService)
            LibraryProcedure SemPresent, $(!DLLSQL), IsSQLSemaphoreActive ""
            ifstr(i) $(SemPresent) == "SEMAPHORE_PRESENT"
                LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","1",$(!ServerName),$(!SALogin),$(!SAPassword)
                ifstr(i) $(Result) != "NO_SERVER"
                    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLShutdown)
                endif
            endif
        endif
    endif
    EndWait
    Return $(Status)

[UpdateMSIN]
    ifstr(i) $(!RemoteComputer) != ""
        LibraryProcedure NewSQLPath, $(!DLLSQL), StrBeforeAndAfter $(!SQLPath),"AFTER",":"
        set NewSQLPath = $(!LogicalNTDrive)$(NewSQLPath)
        set SqlIni = $(!LocalRemoteSystemRoot)"\"$(!SQLBookIni)
    else
        set SqlIni = $(!SQLBookIni)
        set NewSQLPath = $(!SQLPath)
    endif

    LibraryProcedure DateStr, $(!DLLSQL),GetDateStr
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSeries),$(!SQLBookB2),$(!SQLBookMVB),$(SqlIni)
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookAllTitle),$(!SQLBookMVB),$(!SQLBookMVB),$(SqlIni)
    ifstr(i) $(!STF_OS) != "NT"
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSetSec),$(!SQLBookLisNa),"SQLUser",$(SqlIni)
    else
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSetSec),$(!SQLBookLisNa),$(!FullName),$(SqlIni)
    endif
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSetSec),$(!SQLBookLisOr),$(!OrgName),$(SqlIni)
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSetSec),$(!SQLBookLisVr),$(!SQLBookLisDt),$(SqlIni)
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookSetSec),$(!SQLBookLisLr),$(DateStr),$(SqlIni)
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!SQLBookTitle),$(!SQLBooksFullTitle),$(SqlIni)
    ifstr(i) $(!SQLBooksType) == "1"
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!SQLBookInsType),$(!SQLBookCInsType),$(SqlIni)
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!RegValSysPath),$(NewSQLPath)"\"$(!InstallDir),$(SqlIni)
    else
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!SQLBookInsType),$(!SQLBookSInsType),$(SqlIni)
        LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!RegValSysPath),$(!STF_CWDDIR),$(SqlIni)
    endif
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!SQLBookLDir),$(NewSQLPath)"\"$(!Binaries),$(SqlIni)
    LibraryProcedure Result, $(!DLLSQL), WritePrivProfStr $(!SQLBookMVB),$(!SQLBookExe),$(NewSQLPath)"\"$(!Binaries),$(SqlIni)
    Return

[CheckInstalledScripts]
    set Status = "STATUS_FAILED"
    set TempList = $($0)
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        goto chkinstsp_end
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLDBUse $(!Master)

    ForListDo $(!OptionalScriptList)
        LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $($)
    EndForListDo

    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        goto chkinstsp_end
    endif
    set ListIdx = 0
    ForListDo $(!OptionalScriptRetList)
        LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
        ifstr(i) $(Result) == "BAD_RESULTS"
            goto chkinstsp_end
        endif
        LibraryProcedure Result, $(!DLLSQL), SQLBindColumn "STRINGBIND", "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!OneNextRow)
        LibraryProcedure Data, $(!DLLSQL), SQLGetBindingData "1"
        LibraryProcedure Result, $(!DLLSQL), NonCaseSensSearch $(Data),$($)
        ifstr(i) $(Result) != "NOT_FOUND"
            ifstr(i) $(ListIdx) == "0"
                set TempList = >( $(TempList), $(!HelpSQL))
                set !CheckInstList = >( $(!CheckInstList), $(!SQLHelpSQL))
                set !CheckInstRetList = >( $(!CheckInstRetList), $(!RetHelpSQL))
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
        set-add ListIdx = $(ListIdx),1
    EndForListDo
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    set Status = "STATUS_SUCCESSFUL"
chkinstsp_end =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    shell "" CheckMSDB
    Return $(Status) $(TempList) $($R0)

[CheckMSDB]
    set !BMsdb = ""
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        goto chkmsdb_end
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLDBUse $(!Master)
    LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $(!SQLmsdb)
    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        set !BMsdb = "YES"
        goto chkmsdb_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    ifstr(i) $(Result) == "BAD_RESULTS"
        set !BMsdb = "YES"
        goto chkmsdb_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLBindColumn "STRINGBIND", "1"
    LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!OneNextRow)
    LibraryProcedure Data, $(!DLLSQL), SQLGetBindingData "1"
    LibraryProcedure Result, $(!DLLSQL), NonCaseSensSearch $(Data),$(!Msdb)
    ifstr(i) $(Result) == "NOT_FOUND"
        set !BMsdb = "YES"
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
chkmsdb_end =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    Return

[ExpandMaster]
    set Status = "STATUS_FAILED"
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        goto exMaster_end
    endif

    LibraryProcedure Result, $(!DLLSQL), SQLDBUse $(!Master)
    LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $(!ExpMstr)$(!SQLMasterSize)
    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        goto exMaster_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
    ifstr(i) $(Result) == "BAD_RESULTS"
        goto exMaster_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    Set Status = "STATUS_SUCCESSFUL"
exMaster_end =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    Return $(Status)

[CheckInstallSuccess]
    set Status = "STATUS_FAILED"
    set !NonCriticalScriptFailure = ""
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto chkinst_end
    endif
    set CheckNonCritList = $(!NonCriticalCheck)
    set CheckNonCritList = >( $(CheckNonCritList),$(!Pubs))

    LibraryProcedure Result, $(!DLLSQL), SQLDBUse $(!Master)
    ForListDo $(!CheckInstList)
        LibraryProcedure Result, $(!DLLSQL), SQLAddtoCmdBuff $($)
    EndForListDo

    LibraryProcedure Result, $(!DLLSQL), SQLExecuteCmdBuff
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" CKI #1"$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto chkinst_end
    endif
    ForListDo $(!CheckInstRetList)
        LibraryProcedure Result, $(!DLLSQL), SQLGetNextResultSet
        ifstr(i) $(Result) == "BAD_RESULTS"
            read-syms SQLBadResults$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$($)
            goto chkinst_end
        endif
        LibraryProcedure Result, $(!DLLSQL), SQLBindColumn "STRINGBIND", "1"
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!OneNextRow)
        LibraryProcedure Data, $(!DLLSQL), SQLGetBindingData "1"
        LibraryProcedure Result, $(!DLLSQL), NonCaseSensSearch $(Data),$($)
        ifstr(i) $(Result) == "NOT_FOUND"
            ifcontains(i) $($) in $(CheckNonCritList)
                set !NonCriticalScriptFailure = "1"
            else
                read-syms SQLBadResults$(!STF_LANGUAGE)
                LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)$($)
                goto chkinst_end
            endif
        endif
        LibraryProcedure Result, $(!DLLSQL), SQLNextRow $(!PurgeRows)
    EndForListDo
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    StartWait
    ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /Q"sp_check_objects" /o"$(!SQLPath)"\"$(!InstallDir)"\FINALCHK.OUT /P"$(!SAPassword)
    EndWait

    ifstr(i) $(Result) == "PROCESS_ERROR"
        read-syms ProcessExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
        goto chkinst_end
    else-ifstr(i) $(Result) != "0"
        read-syms ProcessRetError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)" "$(Result)
        goto chkinst_end
    endif

    ifstr(i) $($0) != "TRUE"
        shell "" StopService $(!SQLServerService)
        ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
            goto chkinst_end
        endif
    endif
    set Status = "STATUS_SUCCESSFUL"
chkinst_end =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    Return $(Status)

[CreateConfig]
    set Status = "STATUS_FAILED"
    LibraryProcedure ConfigFile, $(!DLLSQL), CreateNOpenFile $(!SQLPath)"\"$(!InstallDir)"\"$(!InstConfig)
    ifstr(i) $(Result) == "Cannot Create File"
        read-syms CannotCreateFile$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto crconfig_end
    endif
    LibraryProcedure ConfigMemory, $(!DLLSQL), CalcSQLReqMem $(!LogicalSystemMemory)
    ForListDo $(!ConfigList)
        LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$($)
    EndForListDo
    LibraryProcedure Temp, $(!DLLSQL), StrBeforeAndAfter $(!MasterDBPath),"AFTER",":"
    LibraryProcedure NewMasterPath, $(!DLLSQL), AppendToString $(!LogicalDBDrive),$(Temp)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLPhysName1)$(NewMasterPath)"\"$(!MasterDBFileName)$(!SQLPhysName2)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    ifstr(i) $($0) != ""
        ifint $(ConfigMemory) > $($0)
            LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLMemory)$(ConfigMemory)$(!LF)
            LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
        endif
    else
        LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLMemory)$(ConfigMemory)$(!LF)
        LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    endif
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLAllowUpdatesOff)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLReconfigure)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLNameServer1)$(!ComputerName)$(!SQLNameServer2)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), WriteToFile $(ConfigFile),$(!SQLGo)$(!LF)
    LibraryProcedure Result, $(!DLLSQL), CloseFile $(ConfigFile)
    ifstr(i) $(Result) == "DISK_FULL"
        read-syms DiskFull$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto crconfig_end
    endif
    set Status = "STATUS_SUCCESSFUL"
crconfig_end =+
    Return $(Status)

[InstallScripts]
    set Status = "STATUS_FAILED"
    shell "" BuildMSDB
    ForListDo $(!InstScriptsList)
        StartWait
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE","."
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$($)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto instscr_end
        endif
    EndForListDo
    ForListDo $(!AddlScripts)
        StartWait
        LibraryProcedure Before, $(!DLLSQL), StrBeforeAndAfter $($),"BEFORE","."
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /Usa /i"$(!SQLPath)"\"$(!InstallDir)"\"$($)" /o"$(!SQLPath)"\"$(!InstallDir)"\"$(Before)".OUT /P"
        EndWait
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto instscr_end
        endif
    EndForListDo
    ifcontains(i) $(!InstPubs) in $(!AddlScripts)
        LibraryProcedure Results $(!DLLSQL) InstallPubsFiles $(!ComputerName),"",$(!SQLPath)"\"$(!InstallDir),$(!PubsFileList)
    endif

    set Status = "STATUS_SUCCESSFUL"
instscr_end =+
    Return $(Status)

[InstallWEBProc]
    set Status = "STATUS_FAILED"
    set TmpList = {}
    LibraryProcedure TmpList, $(!DLLSQL), GetDBNames $(!ComputerName), $(!SALogin), $(SAPassword)
    ForListDo $(TmpList)
        ProcessExecute Result,"WAIT",$(!SQLPath)"\"$(!Binaries)"\"$(!ISQL)" /n /S"$(!ServerName)" /U"$(!SALogin)" /P"$(!SAPassword)" /i"$(!SQLPath)"\"$(!InstallDir)"\"$(!WEB)" /d"$($)
        ifstr(i) $(Result) == "PROCESS_ERROR"
            read-syms ProcessExecError$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!ISQL)" "$(!AddlText)
            goto endInstWEB
        endif
    EndForListDo
    set Status = "STATUS_SUCCESSFUL"
endInstWEB =+
    return $(Status)

[ReIndexServer]
    set Status = "STATUS_FAILED"

    LibraryProcedure Result, $(!DLLSQL), Sleepy "5"

    shell "" StartService $(!SQLServerService)
    LibraryProcedure Result, $(!DLLSQL), Sleepy "15"
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "5","3",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        shell "" StartService $(!SQLServerService)
        LibraryProcedure Result, $(!DLLSQL), Sleepy "10"
        LibraryProcedure Result, $(!DLLSQL), SQLLogin "5","5",$(!ServerName),$(!SALogin),$(!SAPassword)
        ifstr(i) $(Result) == "NO_SERVER"
            read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
            LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
            goto reindex_end
        endif
    endif
    set Status = "STATUS_SUCCESSFUL"

    LibraryProcedure Result, $(!DLLSQL), SQLLogout
reindex_end =+
    Return $(Status)

[UpdateSystemTables]
    set Status = "STATUS_FAILED"
    LibraryProcedure Result, $(!DLLSQL), SQLLogin "0","4",$(!ServerName),$(!SALogin),$(!SAPassword)
    ifstr(i) $(Result) == "NO_SERVER"
        read-syms NoLoginToSQLServer$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto update_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!UpdateSortOrder1)$(!TheSortConfigValue)$(!UpdateSortOrder2)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" UST #1"$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto update_end
    endif
    LibraryProcedure Result, $(!DLLSQL), SQLExecute $(!SQLReconfigure)
    ifstr(i) $(Result) == "BAD_SQL_EXEC"
        read-syms SQLExecError$(!STF_LANGUAGE)
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)" UST #2"$(!LF)
        LibraryProcedure !AddlText, $(!DLLSQL), SQLGetErrorMsg
        LibraryProcedure !MsgText, $(!DLLSQL), AppendToString $(!MsgText),$(!AddlText)
        goto update_end
    endif
    set Status = "STATUS_SUCCESSFUL"
update_end =+
    LibraryProcedure Result, $(!DLLSQL), SQLLogout
    Return $(Status)

[DoNetLibPrompts]
    set Status = "STATUS_FAILED"
    set FirstUserDefined = 0
    set CurrentGeneric = 1
    set NewNetList = {}
    set NewNetAddresses = {}
    ForListDo $($0)
        ifstr(i) $($) == $(!NetLibPipes)
            ifstr(i) $($1) == "TRUE"
                shell "" DoGetNamedPipes
                ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                    set Status = $($R0)
                    goto end_netlib_prompts
                endif
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibSPX)
            shell "" DoGetServiceName
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibVines)
            shell "" DoGetStreetName
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibTCPIP)
            shell "" DoGetTCPIPSocket
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibADSP)
            shell "" DoGetADSPService
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibDECNet)
            shell "" DoGetDECNetObjectID
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else-ifstr(i) $($) == $(!NetLibRPC)
            shell "" DoGetMultiProtEn
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetList = >($(NewNetList), $($))
        else
            ifstr(i) $($) == $(!UserDefined)
                ifstr(i) $(FirstUserDefined) == "0"
                    shell "" DoGetSpaceSQLPath GetSQLPathDlg,$(InstallationReqSpace),$(SpaceCost),"1","","",$(!LogicalSQLDrive)
                    ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                        set Status = $($R0)
                        goto end_netlib_prompts
                    endif
                    set !SQLPath = $($R1)$($R2)
                    set !DefSQLPath = $(!SQLPath)
                    set !CreateSQLPath = $(!SQLPath)
                    ifstr(i) $(!RemoteComputer) == ""
                        set !LogicalSQLDrive = $($R1)
                    endif
                    set FirstUserDefined = 1
                endif
                shell "" DoGetNetLibPath
                ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                    set Status = $($R0)
                    goto end_netlib_prompts
                endif
                set NewNetList = >($(NewNetList), $(!UserNetLib))
                set !UserDefinedName = $(!UserNetLib)
                set !NetAddress = ""
            else
                set NewNetList = >($(NewNetList), $($))
                set !UserDefinedName = $($)
                set !NetAddress = *($(!NetAddresses), $(CurrentGeneric))
                set-add CurrentGeneric = $(CurrentGeneric),1
            endif
            shell "" DoGetGenericNetAddress
            ifstr(i) $($R0) != "STATUS_SUCCESSFUL"
                set Status = $($R0)
                goto end_netlib_prompts
            endif
            set NewNetAddresses = >($(NewNetAddresses), $(!NetAddress))
        endif
    EndForListDo
    set Status = "STATUS_SUCCESSFUL"
end_netlib_prompts =+
    ifstr(i) $(Status) != "STATUS_SUCCESSFUL"
        ifstr(i) $($2) == "TRUE"
            set NewNetList = {}
            set NewNetAddresses = {}
        endif
    endif
    Return $(Status) $(NewNetList) $(NewNetAddresses)

[Popup]
    set tmpvar = $($0)
    read-syms PopupInfo
    ui start $(DlgTemplate)
    ui pop 1
    Return "STATUS_SUCCESSFUL"

[AllocateUnusedDrive]
    set Status = "STATUS_FAILED"
    set Drive  = ""
    ifstr(i) $(!STF_UNUSEDDRIVES) == {}
        goto finish_allocate
    else-ifstr(i) $(!STF_UNUSEDDRIVES) == ""
        goto finish_allocate
    else
        set NewDriveList = {}
        ForListDo $(!STF_UNUSEDDRIVES)
            ifstr(i) $(#) != 1
                set NewDriveList = >($(NewDriveList), $($))
            else
                set Drive  = $($)
                set Status = "STATUS_SUCCESSFUL"
            endif
        EndForListDo
        set !STF_UNUSEDDRIVES = $(NewDriveList)
    endif
    finish_allocate = +
    Return $(Status) $(Drive)

[LoadSetupLibrary]
    LoadLibrary "y" $(!STF_CWDDIR)sqlsetup.dll !DLLSQL
    exit

[DispCheckUpgrade]
    read-syms CheckUpgradeWarning$(!STF_LANGUAGE)
    Libraryprocedure DlgUpg, $(!DLLSQL), SQLDlgDisplay $(STF_HWND), $(!DlgTemplate), "", $(!SQLDlgNames), "MODAL", ""
    LibraryProcedure DLGEVENT, $(!DLLSQL), WaitEvent
    Libraryprocedure Result, $(!DLLSQL), CloseDialog $(DlgUpg)
    Return

[LoadLocalLicenseLibrary]
    LoadLibrary "x" $(!STF_CWDDIR)liccpa.cpl !DLLCPL
    exit

[LoadSystemLicenseLibrary]
    LoadLibrary "x" $(!STF_WINDOWSSYSPATH)"\"liccpa.cpl !DLLCPL
    exit

[FreeLicenseLibrary]
    FreeLibrary $(!DLLCPL)
    exit

[LoadSetupWLibrary]
    LoadLibrary "y" $(!STF_CWDDIR)sqlsetuw.dll !DLLSQL
    exit

[FreeSetupLibrary]
    FreeLibrary $(!DLLSQL)
    exit

[LoadPerfLibrary]
    LoadLibrary "w" $(!SQLPath)"\"$(!Binaries)"\"sqlctr60.dll !PERFHANDLE
    exit

[FreePerfLibrary]
    FreeLibrary $(!PERFHANDLE)
    exit

[Install-Shutdown]
    LibraryProcedure STATUS,$(!DLLSQL),ShutdownSystem "\\"$(!ComputerName)
    exit

[LanguageID]
    ENG

[LanguageTextENG]
    "English (American)"

[LanguageVar]
    STF_LANGUAGE    =       "" ? $(!DLLSQL) GetLanguage
    LanguageList    =       ^(LanguageID, 1)

[DriveTypeVar]
    DriveType       =       "" ? $(!DLLSQL) GetTypeOfDrive $(DriveToExamine)

[DetectDirectory]
    DirectoryThere  =       "-" ? $(!DLLSQL) DoesDirExist $(DEST)

[NETIsValidName]
    LibraryProcedure STATUS,$(!DLLSQL),NetNameCheck $(Name)
    exit

[CreateSQLDirectory]
    CreateDir $(!DestPath)
    exit

[InstallOneOffFileCopy]
    AddSectionFilesToCopyList "OneOffCopyFile", $(!SrcCopyPath), $(!DestCopyPath)
    CopyFilesInCopyList
    exit

[InstallMasterFile]
    SetSilentCopy
    ifstr(i) $(!TheSortFile) == $(!DefaultSort)
        AddSectionFilesToCopyList "MasterDefFile", $(!SQLPath)"\"$(!InstallDir), $(!MasterDBPath)
    else
        AddSectionFilesToCopyList "MasterAltFile", $(!SQLPath)"\"$(!InstallDir), $(!MasterDBPath)
    endif
    CopyFilesInCopyList
    ClearSilentCopy
    exit

[CopyLangFiles]
    CreateDir $(!DestPath)
    AddSectionFilesToCopyList "LocaleFile", $(!SrcPath), $(!DestPath)
    CopyFilesInCopyList
    exit

[InstallBaseInstallFiles]
    ifstr(i) $(GetCost) == ""
        CreateDir $(!MasterDBPath)
        CreateDir $(!SQLPath)
        CreateDir $(!SQLPath)"\"$(!Binaries)
        CreateDir $(!SQLPath)"\"$(!DOSBinaries)
        CreateDir $(!SQLPath)"\"$(!InstallDir)
        CreateDir $(!SQLPath)"\"$(!Binaries)
        CreateDir $(!SQLPath)"\"$(!Symbols)
        CreateDir $(!SQLPath)"\"$(!Symbols)"\"$(!Exes)
        CreateDir $(!SQLPath)"\"$(!Symbols)"\"$(!Binaries)
        CreateDir $(!SQLPath)"\"$(!CharSets)
        CreateDir $(!SQLPath)"\"$(!LogDir)
        CreateDir $(!SQLPath)"\"$(!ReplDir)
        CreateDir $(!SQLPath)"\"$(!SQLOleDir)
        CreateDir $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)
        CreateDir $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)"\"$(!VBDir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP437Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP850Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!ISO1Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1250Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1251Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1253Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1254Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1255Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1256Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP1257Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP932Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP936Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP949Dir)
        CreateDir $(!SQLPath)"\"$(!CharSets)"\"$(!CP950Dir)
        CreateDir $(!SQLPath)"\"$(!SNMPDir)
        CreateDir $(!SQLPath)"\"$(!BackupDir)
        ifstr(i) $(!RemoteComputer) != ""
            ifstr(i) $(!ODBCInstall) == "YES"
                CreateDir $(!SQLPath)"\"$(!SQLODBCDir)
            endif
        endif
        ifstr(i) $(!RISCInst) != "YES"
            CreateDir $(!SystemDirectory)"\..\"$(!MSQueryDir)
        endif
    endif
    ifstr(i) $(!RISCInst) != "YES"
        AddSectionFilesToCopyList "MSQuery", $(!STF_CWDDIR),$(!SystemDirectory)"\..\"$(!MSQueryDir)
        AddSectionFilesToCopyList "MSQrySys", $(!STF_CWDDIR),$(!SystemDirectory)
        AddSectionFilesToCopyList "MSQrySysRoot", $(!STF_CWDDIR),$(!SystemDirectory)"\.."
        AddSectionFilesToCopyList "WebWriter", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "WebWizSys", $(!STF_CWDDIR),$(!SystemDirectory)
        AddSectionFilesToCopyList "WebWiz", $(!STF_CWDDIR),$(!SQLPath)"\"$(!Binaries)
    endif
    ifstr(i) $(!RdrCopy) != "FALSE"
        AddSectionFilesToCopyList "NewRDR", $(!STF_CWDDIR),$(!SystemDirectory)"\drivers"
        AddSectionFilesToCopyList "NewRPC", $(!STF_CWDDIR),$(!SystemDirectory)
    endif
    AddSectionFilesToCopyList "BaseInstallExes", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "BaseInstallExeDBGs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Symbols)"\"$(!Exes)
    AddSectionFilesToCopyList "DOSInstallExes", $(!STF_CWDDIR), $(!SQLPath)"\"$(!DOSBinaries)
    AddSectionFilesToCopyList "BaseInstallDLLs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "BaseInstallDLLDBGs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Symbols)"\"$(!Binaries)
    AddSectionFilesToCopyList "MasterFiles", $(!STF_CWDDIR), $(!SQLPath)"\"$(!InstallDir)
    AddSectionFilesToCopyList "ClientDLLs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "ClientDLLs", $(!STF_CWDDIR), $(!SystemDirectory)
    AddSectionFilesToCopyList "ControlPanel", $(!STF_CWDDIR),  $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "InstallDLLs", $(!SQLPath)"\"$(!Binaries), $(!SystemDirectory)
    AddSectionFilesToCopyList "InstallExes", $(!SQLPath)"\"$(!Binaries), $(!SystemDirectory)
    AddSectionFilesToCopyList "BaseInstall", $(!STF_CWDDIR), $(!SQLPath)"\"$(!InstallDir)
    AddSectionFilesToCopyList "SQLTraceServer", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "SQLTraceClient", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Charset437", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP437Dir)
    AddSectionFilesToCopyList "Charset850", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP850Dir)
    AddSectionFilesToCopyList "CharsetISO", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!ISO1Dir)
    AddSectionFilesToCopyList "Charset1250", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1250Dir)
    AddSectionFilesToCopyList "Charset1251", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1251Dir)
    AddSectionFilesToCopyList "Charset1253", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1253Dir)
    AddSectionFilesToCopyList "Charset1254", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1254Dir)
    AddSectionFilesToCopyList "Charset1255", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1255Dir)
    AddSectionFilesToCopyList "Charset1256", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1256Dir)
    AddSectionFilesToCopyList "Charset1257", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP1257Dir)
     AddSectionFilesToCopyList "Charset932", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP932Dir)
    AddSectionFilesToCopyList "Charset936", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP936Dir)
    AddSectionFilesToCopyList "Charset949", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP949Dir)
    AddSectionFilesToCopyList "Charset950", $(!STF_CWDDIR), $(!SQLPath)"\"$(!CharSets)"\"$(!CP950Dir)
    AddSectionFilesToCopyList "SNMP", $(!STF_CWDDIR), $(!SQLPath)"\"$(!SNMPDir)
    ifstr(i) $(!Locale) != ""
        ifstr(i) $(GetCost) == ""
            CreateDir $(!SQLPath)"\"$(!LocalesDir)"\"$(!Locale)
        endif
        AddSectionFilesToCopyList "LocaleFile", $(!STF_CWDDIR), $(!SQLPath)"\"$(!LocalesDir)"\"$(!Locale)
    endif
    AddSectionFilesToCopyList "Util1", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Util2", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Util3", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Util3Read", $(!STF_CWDDIR), $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)
    AddSectionFilesToCopyList "Util3Samp", $(!STF_CWDDIR), $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)"\"$(!VBDir)
    AddSectionFilesToCopyList "Util3Help", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Util5", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "Util6", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    ifstr(i) $(!ODBCInstall) == "YES"
        ifstr(i) $(!RemoteComputer) != ""
            AddSectionFilesToCopyList "ODBC1", $(!STF_CWDDIR)$(!ODBCDir), $(!SQLPath)"\"$(!SQLODBCDir)
            AddSectionFilesToCopyList "ODBCRem", $(!STF_CWDDIR), $(!SystemDirectory)
        endif
    endif
    ifstr(i) $(!SQLBooksType) == "1"
        AddSectionFilesToCopyList "SQLBooks1", $(!STF_CWDDIR),$(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "SQLBooks2", $(!STF_CWDDIR),$(!SQLPath)"\"$(!InstallDir)
        AddSectionFilesToCopyList "SQLBooks3", $(!SQLBooksDir),$(!SQLPath)"\"$(!InstallDir)
    else-ifstr(i) $(!SQLBooksType) == "2"
        AddSectionFilesToCopyList "SQLBooks1", $(!STF_CWDDIR),$(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "SQLBooks2", $(!STF_CWDDIR),$(!SQLPath)"\"$(!InstallDir)
    endif
    AddSectionFilesToCopyList "ReplScript", $(!STF_CWDDIR), $(!SQLPath)"\"$(!ReplDir)
    ifstr(i) $(!RISCInst) != "YES"
        AddSectionFilesToCopyList "MSDTCServer", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "MSDTCLog", $(!STF_CWDIR), $(!SQLPath)"\"$(!DataDir)
        AddSectionFilesToCopyList "MSDTCClient", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "MSDTCSys", $(!STF_CWDIR), $(!SystemDirectory)
    endif
    ifstr(i) $(GetCost) == ""
        ifstr(i) $(!RdrCopy) != "FALSE"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\drivers\rdr.sys"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\rpclts3.dll"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\rpclts6.dll"
        endif
        CopyFilesInCopyList
    else
        GetCopyListSize "SpaceCost","BYTES"
        ClearCopyList
    endif
    exit

[InstallUtilFiles]
    ifstr(i) $(GetCost) == ""
        CreateDir $(!SQLPath)
        CreateDir $(!SQLPath)"\"$(!Binaries)
        CreateDir $(!SQLPath)"\"$(!Binaries)
        ifstr(i) $(!SQLBooksType) == "1"
            CreateDir $(!SQLPath)"\"$(!InstallDir)
        else-ifstr(i) $(!SQLBooksType) == "2"
            CreateDir $(!SQLPath)"\"$(!InstallDir)
        endif
        ifcontains(i) $(!SQLStarfterEXE) in $(!UtilFiles)
            CreateDir $(!SQLPath)"\"$(!SQLOleDir)
            CreateDir $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)
            CreateDir $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)"\"$(!VBDir)
        endif
        ifcontains(i) $(!MSQueryEXE) in ($(!UtilsFiles)
            CreateDir $(!SystemDirectory)"\..\"$(!MSQueryDir)
        endif
    endif
    ifstr(i) $(!RdrCopy) != "FALSE"
        AddSectionFilesToCopyList "NewRDR", $(!STF_CWDDIR),$(!SystemDirectory)"\drivers"
        AddSectionFilesToCopyList "NewRPC", $(!STF_CWDDIR),$(!SystemDirectory)
    endif
    ifcontains(i) $(!BCP) in $(!UtilFiles)
        AddSectionFilesToCopyList "Util1", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    endif
    ifcontains(i) $(!ISQL) in $(!UtilFiles)
        AddSectionFilesToCopyList "Util2", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    endif
    ifcontains(i) $(!SQLStarfterEXE) in $(!UtilFiles)
        AddSectionFilesToCopyList "Util3", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "Util3Help", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "Util3DLL", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "Util3Samp", $(!STF_CWDDIR), $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)"\"$(!VBDir)
        AddSectionFilesToCopyList "Util3Read", $(!STF_CWDDIR), $(!SQLPath)"\"$(!SQLOleDir)"\"$(!SampleDir)
    endif
    ifcontains(i) $(!SQLSecManEXE) in $(!UtilFiles)
        AddSectionFilesToCopyList "Util5", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    endif
    ifstr(i) $(!RISCInst) != "YES"
        ifcontains(i) $(!MSQueryEXE) in $(!UtilFiles)
            AddSectionFilesToCopyList "MSQuery", $(!STF_CWDDIR),$(!SystemDirectory)"\..\"$(!MSQueryDir)
            AddSectionFilesToCopyList "MSQrySys", $(!STF_CWDDIR),$(!SystemDirectory)
            AddSectionFilesToCopyList "MSQrySysRoot", $(!STF_CWDDIR),$(!SystemDirectory)"\.."
        endif
        ifcontains(i) $(!WebWizardEXE) in $(!UtilFiles)
            AddSectionFilesToCopyList "WebWiz", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
            AddSectionFilesToCopyList "WebWizSys", $(!STF_CWDDIR), $(!SystemDirectory)
        endif
        ifcontains(i) $(!MSDTCClientEXE) in $(!UtilFiles)
            AddSectionFilesToCopyList "MSDTCClient", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
        endif
    endif
    ifcontains(i) $(!SQLTraceEXE) in $(!UtilFiles)
        AddSectionFilesToCopyList "SQLTraceClient", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    endif
    ifcontains(i) $(!ReadPipe) in $(!UtilFiles)
        AddSectionFilesToCopyList "Util6", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    endif
    AddSectionFilesToCopyList "UtilDLLs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "ClientDLLs", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "ClientDLLs", $(!STF_CWDDIR), $(!SystemDirectory)
    AddSectionFilesToCopyList "ControlPanel", $(!STF_CWDDIR),  $(!SQLPath)"\"$(!Binaries)
    AddSectionFilesToCopyList "UtilHelp", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    ifstr(i) $(!SQLBooksType) == "1"
        AddSectionFilesToCopyList "SQLBooks1", $(!STF_CWDDIR),$(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "SQLBooks2", $(!STF_CWDDIR), $(!SQLPath)"\"$(!InstallDir)
        AddSectionFilesToCopyList "SQLBooks3", $(!SQLBooksDir), $(!SQLPath)"\"$(!InstallDir)
    else-ifstr(i) $(!SQLBooksType) == "2"
        AddSectionFilesToCopyList "SQLBooks1", $(!STF_CWDDIR),$(!SQLPath)"\"$(!Binaries)
        AddSectionFilesToCopyList "SQLBooks2", $(!STF_CWDDIR), $(!SQLPath)"\"$(!InstallDir)
    endif
        AddSectionFilesToCopyList "RegSvr32", $(!STF_CWDDIR), $(!SQLPath)"\"$(!Binaries)
    ifstr(i) $(GetCost) == ""
        ifstr(i) $(!RdrCopy) != "FALSE"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\drivers\rdr.sys"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\rpclts3.dll"
            LibraryProcedure $Results,$(!DLLSQL), FileRenameVersions $(!SystemDirectory)"\rpclts6.dll"
        endif
        CopyFilesInCopyList
    else
        GetCopyListSize "SpaceCost","BYTES"
        ClearCopyList
    endif
    exit

[OneOffCopyFile]
    1, $(!OneOffFile)

[ReadUnusedDrives]
    !STF_UNUSEDDRIVES = {} ? $(!DLLSQL) GetUnusedDrives

[GeneralConstants]
    Radio1          = "1"
    Radio2          = "2"
    Radio3          = "3"
    Radio4          = "4"
    Radio5          = "5"
    Radio6          = "6"
    Radio7          = "7"
    Radio8          = "8"
    Radio9          = "9"
    Chosen          = "ON"
    NotChosen       = "OFF"
    InstallDefault  = $(Radio3)
    SetupOption     = $(InstallDefault)

[UiVars]
    SetupLang       = "ENG"
    ProductVersion  = "6.50.163"
    OS2             = "OS/2"
    WindowsNT       = "WINDOWS/NT"
    MinUpgradeVersion = "6.00.121"
    PurgeRows       = "1"
    OneNextRow      = "2"
    LoginSleepPeriod= "5"
    LoginSleepRetrys= "5"
    Primary         = "C:"
    SQLServerService= "MSSQLServer"
    SQLOldServerService= "SQLServer"
    SQLMonitorService="SQLMonitor"
    SQLSchedulerService="SQLExecutive"
    SQLOldSchedulerService="SQLScheduler"
    SQLSchedulerSubService="Subsystems"
    TCPIPService    = "TCPIP"
    MSDTCService    = "MSDTC"
    SNMPService     = "SNMP"
    LANManService   = "LanmanServer"
    LANManWksta     = "LanmanWorkstation"
    RegValMaxThreads = "MaxThreads"
    RegMaxThreadDefault = "50"
    AdministratorsGroup = {"SYSTEM","Administrators"}
    SystemGroup     = "SYSTEM"
    DefGuest        = "guest"
    DOSBinaries     = "BIN"
    Binaries        = "BINN"
    Exes            = "EXE"
    DataDir         = "DATA"
    DLLs            = "DLL"
    Symbols         = "SYMBOLS"
    UpgradeDirPath  = "CHARSETS\CP850"
    CharSets        = "CHARSETS"
    InstallDir      = "INSTALL"
    LogDir          = "LOG"
    DataDir         = "DATA"
    ReplDir         = "REPLDATA"
    SystemDir       = "SYSTEM32"
    System16Dir     = "SYSTEM"
    ExtendedSpExDir = "EXTENDSP"
    IncludeDir      = "INCLUDE"
    SampleDir       = "SAMPLES"
    SQLOleDir    = "SQLOLE"
    VBDir        = "VB"
    LibDir          = "LIB"
    ODBCDir         = "ODBC"
    SQLODBCDir      = "SQLODBC"
    ODBCDrv         = "SQL Server"
    CP437Dir        = "CP437"
    CP850Dir        = "CP850"
    ISO1Dir         = "CPISO"
    CP1250Dir       = "CP1250"
    CP1251Dir       = "CP1251"
    CP1253Dir       = "CP1253"
    CP1254Dir       = "CP1254"
    CP1255Dir       = "CP1255"
    CP1256Dir       = "CP1256"
    CP1257Dir       = "CP1257"
    CP932Dir        = "CP932"
    CP936Dir        = "CP936"
    CP949Dir        = "CP949"
    CP950Dir        = "CP950"
    MSDTCDir        = "MSDTC"
    SNMPDir         = "SNMP"
    BackupDir       = "BACKUP"
    MSQueryDir      = "MSAPPS\MSQuery"
    LocalesDir      = "LOCALES"
    ErrorLog        = "ERRORLOG"
    CharSet         = "CHARSET.EXE"
    BCP             = "BCP.EXE"
    SetupEXE        = "SETUP.EXE"
    ConsoleEXE      = "CONSOLE.EXE"
    StopLite        = "SQLMGR.EXE"
    ReadPipe        = "READPIPE.EXE"
    LangInst        = "LANGINST.EXE"
    SQLTransferEXE  = "SQLXFR.EXE"
    WebWizardEXE    = "WEBWIZ.EXE"
    SQLTraceEXE        = "SQLTRACE.EXE"
    PerfMonEXE      = "PERFMON.EXE"
    SQLStarfterEXE  = "SQLEW.EXE"
    SQLClientEXE    = "WINDBVER.EXE"
    SQLSecManEXE    = "SQSECMGR.EXE"
    ISQLWEXE        = "ISQLW.EXE"
    SQLMonitorEXE   = "SQLMONTR.EXE"
    SQLCtrsPMC      = "SQLCTRS.PMC"
    SQLCtrs         = "SQLCTR60"
    SQLCtrsDLL      = "SQLCTR60.DLL"
    OldSQLCtrs    = "SQLCTRS"
    DefLangFile     = "SERVER.LOC"
    EventCtrsDLL    = "EVNTCT60.DLL"
    StarFterOle     = "SQLOLE.REG"
    MSDTCOle        = "MSDTC.REG"
    RegEdit         = "REGEDIT.EXE"
    ISQL            = "ISQL.EXE"
    ISQLOut         = "ISQL.OUT"
    HelpSQLHLP      = "HELPSQL.HLP"
    HelpAdmin       = "SQLADMIN.HLP"
    HelpObject      = "SQLOBJ.HLP"
    HelpSQLNTSetup  = "SQLSETUP.HLP"
    HelpODBCInst    = "DRVSSRVR.HLP"
    SQLOleHlp       = "SQLOLE.HLP"
    SQLOle32    = "SQLOLE32.DLL"
    ODSOle32        =   "ODSOLE32.DLL"
    WinHelpEXE      = "WINHLP32.EXE"
    Win95HelpEXE      = "WINHELP.EXE"
    NotePadEXE      = "NOTEPAD.EXE"
    SQLEventDLL     = "SQLEVN60.DLL"
    SQLSchEventDLL  = "SQLEXEC.DLL"
    SQLCmdExecDLL   = "CMDEXEC.DLL"
    SQLReplDLL      = "SQLREPL.DLL"
    MSVCModule      = "MSVCRT40.DLL"
    MSVC20Module    = "MSVCRT20.DLL"
    MFCModule       = "MFC40.DLL"
    CTL3DModule     = "CTL3D32.DLL"
    MasterDB        = "MASTER.DAT"
    DefMasterDB     = $(!MasterDB)
    SQLServer       = "SQLSERVR.EXE"
    SQLSchedulerEXE = "SQLEXEC.EXE"
    MSDTCEXE        = "MSDTC.EXE"
    MSDTCDacEXE     = "DAC.EXE"
    MSDTCServerEXE  = "SERVER.EXE"
    MSDTCClientEXE  = "CLIENT.EXE"
    MSDTCSrv1       = "SRV1"
    MSDTCSrv2       = "SRV2"
    MSDTCSrv3       = "SRV3"
    MSQueryEXE      = "MSQRY32.EXE"
    CMDExec         = "CMDEXEC.DLL"
    SQLOut          = "SQLSERVR.OUT"
    UpgradeOut      = "CHKUPG.OUT"
    LangInstOut     = "LANGINST.OUT"
    CharSetOut      = "CHARSET.OUT"
    InstConfig      = "CONFIG.SQL"
    DropAll         = "DROPALL.SQL"
    InstUpg         = "UPGRADE1.SQL"
    InstChkObj      = "CHECKOBJ.SQL"
    InstMsgs        = "MESSAGES.SQL"
    InstSptVal      = "U_TABLES.SQL"
    InstSysCfg      = "CONFIGUR.SQL"
    InstProc        = "PROCSYST.SQL"
    InstRepl        = "INSTREPL.SQL"
    InstEarly       = "EARLY1.SQL"
    InstSch         = "INSTMSDB.SQL"
    InstSmsg        = "SERVMSGS.SQL"
    InstXPStar      = "XPSTAR.SQL"
    InstSQLOle      = "SQLOLE60.SQL"
    InstOM          = "OBJECT60.SQL"
    InstAdmin       = "ADMIN60.SQL"
    UnAdmin         = "UNADMIN.SQL"
    UnObject        = "UNOBJ.SQL"
    TempSp          = "TEMPSP.SQL"
    InstCat         = "INSTCAT.SQL"
    HelpSQL         = "HELPSQL.SQL"
    InstPubs        = "INSTPUBS.SQL"
    WEB             = "WEB.SQL"
    ExpandEXE       = "EXPAND.EXE"
    SQLSNMPDLL      = "SQLSNMP.DLL"
    UpdateSortOrder1= "update master.dbo.sysconfigures set value = "
    UpdateSortOrder2= ", config = 1123 where config = 123"
    SQLGo           = "go"
    SQLReconfigure  = "reconfigure with override"
    SQLShutdown     = "shutdown with nowait"
    SQLAddLogin     = "sp_addlogin "
    SQLAllowUpdatesOn= "sp_configure 'allow_updates', 1"
    SQLUseMaster    = "use master"
    SQLPhysName1    = "update master.dbo.sysdevices set phyname='"
    SQLPhysName2    = "' where name = 'master'"
    SQLRecoveryInterval="sp_configure 'recovery interval', 5"
    SQLAllowUpdatesOff= "sp_configure 'allow updates', 0"
    SQLUserConns    = "sp_configure 'user connections', 20"
    SQLMemory       = "sp_configure 'memory', "
    SQLOpenDBs      = "sp_configure 'open databases', 20"
    SQLLocks        = "sp_configure 'locks', 5000"
    SQLOpenObjs     = "sp_configure 'open objects', 500"
    SQLProcCache    = "sp_configure 'procedure cache', 30"
    SQLFillFactor   = "sp_configure 'fill factor', 0"
    SQLDBSize       = "sp_configure 'database size', 2"
    SQLMediaRetent  = "sp_configure 'media retention', 0"
    SQLRecoveryFlags= "sp_configure 'recovery flags', 0"
    SQLNameServer1  = "sp_addserver "
    SQLNameServer2  = ",local"
    SQLGrantAdmin   = "xp_grantlogin 'Administrators',admin"
    SQLSetLang      = "sp_configure 'default language', 1"
    SQLGetMemory    = "select value from master.dbo.sysconfigures where config = 104"
    SQLspWho        = "select name from master.dbo.sysobjects where name = 'sp_who' "
    SQLSPTValues    = "select name from master.dbo.sysobjects where name = 'spt_values' "
    SQLAddXProc     = "select name from master.dbo.sysobjects where name = 'sp_addextendedproc' "
    SQLCtrsUsers    = "select name from master.dbo.sysobjects where name = 'MS_sqlctrs_users' "
    SQLInfoExt      = "select name from master.dbo.sysobjects where name = 'spt_datatype_info_ext' "
    SQLSpecCols     = "select name from master.dbo.sysobjects where name = 'sp_special_columns' "
    SQLXPStar1      = "select name from master.dbo.sysobjects where name = 'xp_regread'"
    SQLXPStar2      = "select name from master.dbo.sysobjects where name = 'xp_subdirs'"
    SQLOle1         = "select name from master.dbo.sysobjects where name = 'sp_MShelpcolumns'"
    SQLHelpSQL      = "select name from master.dbo.sysobjects where name = 'sp_helpsql'"
    SQLCheckVersion = "select value from master.dbo.sysconfigures where config = 122"
    SQLGetMasterOS  = "select name from master.dbo.spt_values where low = 2048"
    SQLCheckRO      = "select count(*) from master.dbo.sysdatabases where status & 1024 > 0"
    SQLCheckMasterSpace="declare @dbsize int "$(!LF)+
    "declare @dbreserve int "$(!LF)+
    "select @dbsize = (sum(size) * 2048) / 1024 from master.dbo.sysusages where dbid = 1 and (segmap = 7 or segmap = 3) "$(!LF)+
    "select @dbreserve = (sum(reserved) * 2048) / 1024 from master.dbo.sysindexes where indid in (0, 1, 255) "$(!LF)+
    "select @dbsize - @dbreserve"$(!LF)+
    "go "
    SQLCheckSuspect = "select count(*) from master.dbo.sysdatabases where status & 256 > 0"
    SQLGetConfOpen  = "select value from master.dbo.syscurconfigs where config=105"
    SQLGetNumDBs    = "select count(*) from master.dbo.sysdatabases"
    SQLUpgObjects   = "declare @needed int"$(!LF)+
    "declare @got int"$(!LF)+
    "declare @databases int"$(!LF)+
    "select @got = value from master..syscurconfigs where config=107"$(!LF)+
    "select @databases = count(*) from master..sysdatabases"$(!LF)+
    "select @needed = 13 + 13 * @databases +20"$(!LF)+
    "if(@needed > @got and @needed > 100)"$(!LF)+
    "begin exec sp_configure 'open objects',@needed"$(!LF)+
    "reconfigure with override end"
    SQLUpgConfigMem = "declare @cfgmem int"$(!LF)+
    "declare @numusers int"$(!LF)+
    "declare @opendb   float"$(!LF)+
    "declare @locks    float"$(!LF)+
    "declare @openobj  float"$(!LF)+
    "declare @memneed  int"$(!LF)+
    "select @cfgmem= value from master.dbo.sysconfigures where config=104"$(!LF)+
    "select @numusers= 19 * value from master.dbo.sysconfigures where config=103"$(!LF)+
    "select @opendb= .5 * value from master.dbo.sysconfigures where config=105"$(!LF)+
    "select @openobj= .04 * value from master.dbo.sysconfigures where config=107"$(!LF)+
    "select @locks=  .0156 * value from master.dbo.sysconfigures where config=106"$(!LF)+
    "select  @memneed =  2300 + @numusers + @opendb + @openobj + @locks"$(!LF)+
    "if @memneed < 2800 select @memneed = 2800"$(!LF)+
    "if @memneed > @cfgmem begin"$(!LF)+
    "exec sp_configure 'memory',@memneed"$(!LF)+
    "reconfigure with override end"
    SQLSelectDBNames = "SELECT name FROM master.dbo.sysdatabases"

    SQLDiskInit = "DISK INIT NAME = "
    MSDBData    = "MSDBData"
    Physname     = "PHYSNAME='"
    MSDBDataDat = "MSDB.DAT"
    VdevDatPlus  = "VDEVNO="
    VdevDatNo   =  ",SIZE=3072"
    MSDBLog     = "MSDBLog"
    MSDBDataLog = "MSDBLOG.DAT"
    VdevLogPlus  = "VDEVNO="
    VdevLogNo    = ",SIZE=1024"
    SQLGetDevNo  = "declare @i int select @i = 127 while exists (select * from master.dbo.sysdevices where (low/0x01000000)&0xff = @i) and @i <> 0 select @i = @i - 1 if @i = 0 select -1 else select @i"

    CheckLogin    = "select name from master.dbo.syslogins where name = "
    SQLmsdb         = "select name from master.dbo.sysdatabases where name = 'msdb'"
    Msdb            = "msdb"
    InstallSetInstld= {"1","3"}
    InstallSetDual=   {"3"}
    InstallSet      = {"4","5","6","7","8","9","10"}
    CompleteInstSet = {"1","2","3","4","5","6","7","8","9","10"}
    EvalSet = {"1", "2", "3"}
    SupportedRemoteShares = {"C","D","E","F","G","H","I","J","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
    PubsFileList = { "1622","5LAKES.BMP","1389","ALGODATA.BMP","0877","BINNET.BMP","9901","GGGG.BMP","9999","LUCERNE.BMP","0736","NEWMOON.BMP","1756","RAMONA.BMP","9952","SCOOTNEY.BMP",+
    "1622","5LAKES.TXT","1389","ALGODATA.TXT","0877","BINNET.TXT","9901","GGGG.TXT","9999","LUCERNE.TXT","1756","RAMONA.TXT","9952","SCOOTNEY.TXT","0736","NEWMOON.TXT" }
    NetLibPipes     = "SSNMPN60"
    NetLibSPX       = "SSMSSP60"
    NetLibVines     = "SSMSVI60"
    NetLibTCPIP     = "SSMSSO60"
    NetLibADSP      = "SSMSAD60"
    NetLibDECNet    = "SSMSDE60"
    NetLibRPC       = "SSMSRP60"
    ClientLibPipes  = "DBNMPNTW"
    ClientLibSPX    = "DBMSSPXN"
    ClientLibVine   = "DBMSVINN"
    ClientLibTCPIP  = "DBMSSOCN"
    DBLibDLL        = "NTWDBLIB.DLL"
    DefTCPIPSocket  = "1433"
    DefMonTCPIPSocket = "1434"
    DefDECNetObjectID = "#150"
    ConsolePipe     = "\\.\pipe\sql\console"
    MonitorPipe     = "\\.\pipe\winsql\backup"
    DefListenOn     = {"SSNMPN60,\\.\pipe\sql\query"}
    SvrPipe         = "\\.\pipe\sql\query"
    MonNetLibPipeCon= "?1:\\?1\pipe\winsql\backup"
    MonNetLibSPXCon = "?1:?1_mon"
    MonNetLibVineCon= "?1@?2:?1_mon?2"
    MonNetLibTCPIPCon= "?1,?2:?1,"$(!DefMonTCPIPSocket)
    DefSvcMgrServices={$(!SQLServerService),$(!SQLSchedulerService),$(!MSDTCService)}
    DefScriptList   = {$(!InstPubs),$(!HelpSQL)}
    NetLibDefList   = {$(!NetLibPipes)}
    NetLibList      = {$(!NetLibPipes)}

    AddlScripts     = {}
    NetSelList      = {}
    ConfigList      = {$(SQLAllowUpdatesOn)$(!LF),$(!SQLGo)$(!LF)$(!SQLReconfigure)$(!LF),$(!SQLGo)$(!LF)$(!SQLUseMaster)$(!LF)$(!SQLGo)$(!LF)}
    DelDLLList      = {"opends60.dll","ssnmpn60.dll","ssmsso60.dll","sqlevn60.dll","xpsql60.dll","xpstar.dll","charset.exe", "sqlsvc32.dll"}
    DelODBCDLLList  = "instodbc.dll"
    ClientDLLList   = {$(!ClientLibPipes)".DLL",$(!ClientLibSPX)".DLL",$(!ClientLibVine)".DLL",$(!ClientLibTCPIP)".DLL",$(!DBLibDLL)}

    CheckInstDefList= {$(!SQLspWho),$(!SQLSPTValues),$(!SQLAddXProc),$(!SQLCtrsUsers),$(!SQLInfoExt),+
    $(!SQLSpecCols),$(!SQLXPStar1),$(!SQLXPStar2),$(!SQLOle1)}
    CheckInstDefRetList= {"sp_who","spt_values","sp_addextendedproc","MS_sqlctrs_users",+
    "spt_datatype_info_ext","sp_special_columns","xp_regread","xp_subdirs","sp_MShelpcolumns"}

    NonCriticalCheck= {"sp_MSdevice_list","sp_MSuser_info","sp_helpsql"}
    OptionalScriptRetList= {"sp_helpsql"}
    OptionalScriptList={$(!SQLObject1),$(!SQLHelpSQL)}
    CheckInstList   = $(!CheckInstDefList)
    CheckInstRetList= $(!CheckInstDefRetList)

    XpStarChk1      = "xp_regread"
    XpStarChk2      = "xp_subdirs"
    SQLOleChk1      = "sp_MShelpcolumns"
    Master          = "master"
    RetHelpSQL      = "sp_helpsql"

    STF_WINDOWSSYSPATH = "" ? $(!DLLSQL) GetWindowsNtSysDir
    STF_WINDOWSPATH = "" ? $(!DLLSQL) GetWindowsNtDir
    STF_UNUSEDDRIVES = {} ? $(!DLLSQL) GetUnusedDrives

    MsgText         =       ""
    InstallType     =       ""
    DlgHandle       =       ""

    TheCharSet      =       ""
    TheCharSetPath  =       ""
    TheSortFile     =       ""
    DefaultSort     =       "nocase.iso"
    TheSortConfigValue=     ""
    ComputerName    =       ""
    Registration    =       ""
    Owner           =       ""
    ProductID       =       ""
    SALogin         =       "sa"
    SAPassword      =       ""
    YesNoQ          =       ""
    CreateSQLPath   =       ""
    OrgName         =       ""
    FullName        =       ""
    SingleUserMode  =       "-m"
    WasSingleMode   =       ""
    MachineName     =       ""
    MasterDBPath    =       ""
    DefMasterPath   =       "DATA"
    CreateMasterPath=       "NO"
    UserDefined     =       "UU"
    UserProvided    =       "PP"
    DefSQLStub      =       "MSSQL"
    DefNETPath      =       "A:\"
    CreateSQLPath   =       "NO"
    MasterExistCheck=       "NO"
    DefMasterSize   =       "25"
    SQLMasterSize   =       ""
    MinMasterSize   =       "25"
    NETPath         =       ""
    CreateNETPath   =       "NO"
    DefSocketNumber =       ""
    DefTapeDev      =       "\DEVICE\Tape0"
    DefSecMap1      =       "\"
    DefSecMap2      =       "-"
    DefSecMap3      =       " "
    SecTokDomainSep =       "\"
    SecTokSpace     =       " "
    CopyMailInfo    =       ""
    UserName        =       ""
    UserPassword    =       ""
    CurInstalledVer =       ""
    SQLBooksType    =       "1"
    BMsdb           =       ""

    RegTypeString   =       "REG_SZ"
    RegTypeExpString=       "REG_EXPAND_SZ"
    RegTypeMulti    =       "REG_MULTI_SZ"
    RegTypeDWord    =       "REG_DWORD"
    RegValRegOwner  =       "RegisteredOwner"
    RegValRegOrg    =       "RegisteredOrganization"
    RegValRegPID    =       "RegisteredProductID"
    RegValSoftType  =       "SoftwareType"
    RegValSerialNumber=     "SerialNumber"
    RegValVersion   =       "CurrentVersion"
    RegValListenOn  =       "ListenOn"
    RegValConsole   =       "Console"
    RegValTapeWait  =       "Tapeloadwaittime"
    RegValParameter =       "SQLArg"
    RegValSQLPath   =       "SQLPath"
    RegValSvcMgrVerify =    "Action Verify"
    RegValSvcMgrSvcs=       "Services"
    RegValSvcMgrRemote =    "Remote"
    RegValSvcMgrDefSvc =    "DefaultSvc"
    RegValPathName  =       "Pathname"

    RegSQLSysType   =       "System"
    RegSWMS         =       "SOFTWARE\Microsoft"
    RegEventAppLog  =       "SYSTEM\CurrentControlSet\Services\EventLog\Application"
    RegLMSvrParams  =       "SYSTEM\CurrentControlSet\Services\LanmanServer"
    RegTCPIPService =       "SYSTEM\CurrentControlSet\Services\Tcpip"
    RegSCM          =       "SYSTEM\CurrentControlSet\Services"
    RegSystemGrpOrder =     "SYSTEM\CurrentControlSet\Control\ServiceGroupOrder"
    RegSystemPaths  =       "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
    RegMManagement  =       "SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management"
    RegPriorityCtrl =       "SYSTEM\CurrentControlSet\Control\PriorityControl"
    RegLicInfoKey   =       "SYSTEM\CurrentControlSet\Services\LicenseInfo"
    RegSQLLicInfoKey   =       "SYSTEM\CurrentControlSet\Services\LicenseInfo\MSSQL6.50"
    RegSQL60LicInfoKey  =   "SYSTEM\CurrentControlSet\Services\LicenseInfo\MSSQL6.00"
    SMSVersionKey   =       "SOFTWARE\Microsoft\SMS\Setup"
    RegOLE          =       "SOFTWARE\Classes"
    RegCLSID        =       "CLSID"
    RegSNMPAgents      =    "SNMP\Parameters\ExtensionAgents"

    RegValLicMode   =       "Mode"
    RegValLicCon    =       "ConcurrentLimit"
    RegValLicFlip   =       "FlipAllow"
    RegValLicDspName =      "DisplayName"
    RegValLicFDspName =     "FamilyDisplayName"
    RegLicDspName   =       "Microsoft SQL Server 6.5"
    RegLicFDspName  =       "Microsoft SQL Server"
    RegLMSize       =       "Size"
    RegMMSystemCache=       "LargeSystemCache"
    RegUserPaths    =       "Environment"
    RegSysDOSDev    =       "DOS Devices"
    RegSysPriority  =       "Win32PrioritySeparation"
    RegValGrpOrderList =    "List"
    RegValTape0     =       "Tape0"
    RegValELogMsgFile =     "EventMessageFile"
    RegValELogTypes =       "TypesSupported"
    RegValELogCMsgFile =    "CategoryMessageFile"
    RegValELogCCount =      "CategoryCount"

    RegValLMSvrAnno =       "Lmannounce"
    RegValSysPath   =       "Path"
    RegSQLServer    =       "SOFTWARE\Microsoft\MSSQLServer"
    RegOldSQLServer =       "SOFTWARE\Microsoft\SQLServer"
    RegOldSQLServerServer = "SOFTWARE\Microsoft\SQLServer\Server"
    RegSQLServer60Server =  "SOFTWARE\Microsoft\SQLServer60\SQL Service Manager"
    RegSQLServerServer =    "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer"
    RegOldSQLClient =       "SOFTWARE\Microsoft\SQLServer\Client"
    RegSQLClient    =       "SOFTWARE\Microsoft\MSSQLServer\Client"
    RegSQLScheduler =       "SOFTWARE\Microsoft\MSSQLServer\SQLExecutive"
    RegSQLReplication =     "SOFTWARE\Microsoft\MSSQLServer\Replication"

    RegSQLAdmin     =       "SQL Administrator"
    RegISQLW        =       "ISQL/w"
    RegSQLOM        =       "SQL Object Manager"
    RegStarFighter  =       "SQLEW"
    RegSecMan       =       "SQL Security Manager"
    RegSQLSetup     =       "SOFTWARE\Microsoft\MSSQLServer\Setup"
    RegSQLSNMP      =       "SNMP"
    RegCurrentVer   =       "CurrentVersion"
    RegSQLClientSetup     = "SOFTWARE\Microsoft\MSSQLServer\ClientSetup"
    RegOldSQLSetup  =       "SOFTWARE\Microsoft\SQLServer\Setup"
    RegSQLSetupKey  =       "Setup"
    RegSQLClientSetupKey  = "ClientSetup"
    RegSecLoginMode =       "LoginMode"

    RegSQLEvaluation =      "SOFTWARE\Microsoft\Windows\CurrentVersion"
    RegSQLEval = "ESvQaLl"

    RegValSQLReplDir =      "Directory"
    RegValSQLReplDB =       "DistributionDB"
    RegValSQLReplication =  "Replication"
    RegValRealTime  =       "RealTime"
    RegValSMPStat   =       "SMPStat"
    RegValSqlMailPair =     "SQLMAP60,startmail"
    RegValMailEnabled =     "StartupHandlers"
    MSMailUser      =       ""
    MSMailPwd       =       ""
    RegValMSMailUser =      "MailAccountName"
    RegValMSMailPwd  =      "MailPassword"
    RegSecDefAccount =      "DefaultLogin"
    RegSecDefDomain  =      "DefaultDomain"
    RegSecAuditLevel =      "AuditLevel"
    RegSecHostname  =       "SetHostname"
    RegSecMap1      =       "Map_"
    RegSecMap2      =       "Map#"
    RegSecMap3      =       "Map$"
    RegNTPerfLib    =       "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib"
    RegSQLWinNT     =       "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
    RegSQLSvcMgr    =       "SQL Service Manager"
    RegSQLDBLib     =       "DB-Lib"
    RegSQLConnectTo =       "ConnectTo"
    RegSQLPrefServers =     "PrefServers"
    RegMonitor =            "Monitor"
    RegClient =             "Client"
    RegSQLServerVer =       "CurrentVersion"
    RegValSMSVersion   =    "Version"
    RegSQLServerSvr =       "MSSQLServer"
    RegOldSQLServerSvr =    "Server"
    RegSQLSvrParam  =       "Parameters"
    RegSQLPerformance =     "Performance"
    RegSvcStart     =       "Start"
    RegServerAutoStart  =   "RestartSQLServer"
    RegSchRestart   =       "RestartSQLServerInterval"
    RegSchSysLimit  =       "SyshistoryLimitRows"
    RegSchSysMax  =         "SyshistoryMaxRows"
    RegSchAutoMail =        "MailAutoStart"
    RegSchServerHost =      "ServerHost"
    RegSchCmdExec   =       "CmdExec"
    RegSchReplSync  =       "Sync"
    RegSchReplReader =       "LogReader"
    RegSchReplDist  =       "Distribution"
    RegSchReplLCDist  =     ""
    RegValDSQUERY   =       "DSQUERY"
    RegValServerAutoStart =  "1"
    RegValBackupTime=       "15"
    RegValBackupRetry =     "3"
    RegValTime      =       "60"
    RegValTableSize =       "1000"
    RegValMntr      =       "OFF"
    RegValTimeout   =       "360"
    RegValServer    =       ""
    RegValBackup    =       "ON"
    RegValLogsize   =       "4096"
    RegValLibrary   =       "Library"
    RegValPerfSync  =       "Synchronous"
    RegValOpen      =       "Open"
    RegValCollect   =       "Collect"
    RegValClose     =       "Close"
    RegValFirstCntr =       "FirstCounter"
    RegValFirstHelp =       "FirstHelp"
    RegValLastCntr  =       "Last Counter"
    RegValLastHelp  =       "Last Help"
    RegValLoginTO   =       "LoginTimeOut"
    RegValQueryTO   =       "QueryTimeOut"
    RegValCounters  =       "Counters"
    RegValHelp      =       "Help"
    RegValSystemRoot=       "SystemRoot"
    RegValCurBuild  =       "CurrentBuildNumber"
    RegValANSIToOEM =       "AutoAnsiToOem"
    RegValTCPTries  =       "TcpKeepTries"
    RegValTCPCnt    =       "TcpKeepCnt"
    RegValUseIntl   =       "UseIntlSettings"
    RegValReplDir   =       "WorkingDirectory"
    RegValSchedrestart =    "5"
    RegValLimitRows =       "1"
    RegValMaxRows =         "1000"
    RegValCmdExec   =       "CmdExecStart,CmdEvent,CmdExecStop,10"
    RegValReplSync  =       "sync_start,sync_event,sync_stop,100"
    RegValReplReader=       "logreader_start,logreader_event,logreader_stop,25"
    RegValReplDist  =       "distribution_start,distribution_event,distribution_stop,100"

    DefPerfLangID   =       "009"
    SystemMemory    =       "" ? $(!DLLSQL) GetMemorySize
    MinSystemMemory =       12000
    MinOSVersion    =       "3.51.1057.0"
    RdrMinOSVersion =       "3.51.1057.0"
    LicenseMin      =       "1057"
    SQLBookB2       =       "SQLBOOKS"
    SQLBookMVB      =       "SQLBOOKS.MVB"
    SQLBookSetSec   =       "SQLBOOKS.Settings"
    SQLBookLDir     =       "LocalDir"
    SQLBookExe      =       "Exe"
    SQLBookTitle    =       "title"
    SQLBookInsType  =       "installtype"
    SQLBookSInsType =       "Standard"
    SQLBookCInsType =       "Complete"
    SQLBookSeries   =       "series"
    SQLBookAllTitle =       "all titles"
    SQLBookLisNa    =       "licensed.name"
    SQLBookLisOr    =       "licensed.organization"
    SQLBookLisVr    =       "license_version"
    SQLBookLisLr    =       "license_last_read"
    SQLBookLisDt    =       "5/21/94"
    SQLBookIni      =       "INFOVIEW.INI"
    KeysDupped      =       "FALSE"
    RemoteKeysDupped =      "FALSE"
    SQL95Keys       =       "FALSE"
    NewInstall      =       "FALSE"
    MultiProtEncrypt =      ""
    RegRPCNetLib     =      "RPCNetLib"
    RegValRPCSec     =      "Security"
    RegValEncrypt    =      "Encrypt"
    RegValClientImp  =      "ImpersonateClient"
    ExpMstr          =      "disk resize name = master,size = "
    MstrSize         =      "25"
    RdrCopy          =      "TRUE"
    OldListenOn      =      {$(!NetLibPipes)","$(!SvrPipe)}
    PerSeatMode      =      0
    PerSeatNumber    =      50
    RemoteSystemRoot =      ""
    LocalRemoteSystemRoot =      ""
    OldSQLMapi       =      "SQLMAPI,startmail"
    LicenseSet       =      "FALSE"
    ClientInstallKey =      "FALSE"
    RegLicenseSubKey =      "MSSQL6.50"
    RegLic60SubKey  =       "MSSQL6.00"
    LicGeneralHelp   =      "152"
    LicServerHelp    =      "154"
    LicSeatHelp      =      "153"
    LicFullSetup     =      "FULLSETUP"
    LicRemoteFullSetup =    "REMOTEFULLSETUP"
    LicUnattendedFullSetup = "UNATTENDED"
    LicenseWritten   =      "FALSE"
    TraceSQLKeyDB    =      "-T3643"
    TFlagBypassSSP  =       "-T4022"
    RegValNullPipes =     "NullSessionPipes"
    RegValEpmapper  =    "EPMAPPER"
    RegOldLicenseSubKey =   "SQL"
    RegValSetupState =      "SetupStatus"
    RegValSetupCRC     =    "CRC"
    RegValUpgrading  =      "Upgrade"
    RegValInstalled  =      "Installed"
    StandAloneRelease=      "20971545"
    SQLBooksDir     =       "..\SQLBKS65"
    SQLUseMaster        = "use master"
        SQLReleaseNumber=    "4227071"
;*************************************************************************
;*************************************************************************
;* INTERNATIONALIZABLE CODE
;* This file should be appended to setup.src to make setup.inf
;*************************************************************************
;*************************************************************************
    UpgMemNT42                = "750"
    InstScriptsList            = {$(!InstUpg),$(!InstChkObj),$(!InstMsgs),$(!InstSptVal),$(!InstSysCfg),$(!InstProc),$(!InstRepl),$(!InstCat),$(!InstConfig),$(!InstXPStar),$(!InstSch),$(!InstSmsg),$(!InstSQLOle)}
    UpgScriptsNT42            = {$(!DropAll),$(!UnAdmin),$(!UnObject),$(!InstUpg),$(!InstChkObj),$(!InstMsgs),$(!InstSptVal),$(!InstSysCfg),$(!InstProc),$(!InstRepl),$(!InstEarly),$(!InstCat),$(!InstConfig),$(!InstXPStar),$(!InstSch),$(!InstSmsg),$(InstSQLOle),$(!InstOM),$(!InstAdmin)}
    DrpBinnFiles            = {"bldmastr.exe","upgrade.exe","sqlmontr.exe","netsql.exe","wtapedir.exe","tapeutil.hlp","ntwdbver.exe"}
    DrpDLLFiles                = {"opendsnt.dll","ssnmpntw.dll","xpsql.dll","sqlperf.dll","ssmssocn.dll","sqlevent.dll","sqlctrs.dll","evntctrs.dll","xplogin.dll","ssmsspxn.dll","sqlmapi.dll"}
    DrpInsFiles                = {"instmstr.sql","instmodl.sql","admin2.sql","object2.sql","unobj.sql","instnt.sql","mstrfree.sql","dnnt42.sql","readme.hlp"}
    ANSItoOEMDef            = "ON"
    Setup_Title                = "Microsoft SQL Server 6.5"
    LicenseFamilyName        = "Microsoft SQL Server"
    SQLProgmanGrpName        = "Microsoft SQL Server 6.5"
    SQL60ProgmanGrpName     = "Microsoft SQL Server 6.0"
    SQLBetaProgmanGrpName    = "Microsoft SQL Server 6.0 Beta"
    SQLUtilsGrpName            = "Microsoft SQL Server 6.5 Utilities"
    OldSQLProgmanGrpName    = "SQL Server for Windows NT"
    SQLBooksFullTitle        = "SQL Server Books Online"
    DefSQLDLGPath            = "SQL Server Path"
    SQLPubs                    = "select name from master.dbo.sysdatabases where name like 'pubs'"
    Pubs                    = "pubs"
    PleaseWait                = "You may continue with another task..."

    MasterDBSize            = " + master size"

    CharSetSelList            = {    "ISO Character Set (Default)","cpISO", +
                                "850 Multilingual","cp850", +
                                "437 US English","cp437", +
                                "932 Japanese","cp932", +
                                "936 Chinese (simplified)","cp936", +
                                "949 Korean","cp949", +
                                "950 Chinese (traditional)","cp950", +
                                "1250 Central European","cp1250", +
                                "1251 Cyrillic","cp1251", +
                                "1253 Greek","cp1253", +
                                "1254 Turkish","cp1254", +
                                "1255 Hebrew","cp1255", +
                                "1256 Arabic","cp1256", +
                                "1257 Baltic","cp1257"}

    CharSetUserSelList        = {    "ISO Character Set (Default)","cpISO", +
                                "850 Multilingual","cp850", +
                                "437 US English","cp437", +
                                "932 Japanese","cp932", +
                                "936 Chinese (simplified)","cp936", +
                                "949 Korean","cp949", +
                                "950 Chinese (traditional)","cp950", +
                                "1250 Central European","cp1250", +
                                "1251 Cyrillic","cp1251", +
                                "1253 Greek","cp1253", +
                                "1254 Turkish","cp1254", +
                                "1255 Hebrew","cp1255", +
                                "1256 Arabic","cp1256", +
                                "1257 Baltic","cp1257"}

    TCPIPName = "TCP/IP Sockets"

    ValidNetLibs        = {$(!NetLibPipes),$(!NetLibRPC),$(!NetLibSPX),$(!NetLibTCPIP),$(!NetLibADSP),$(!NetLibVines),$(!NetLibDECNet),$(!UserDefined),$(!UserProvided)}
    DefNetworkSelList    = {    "Named Pipes",$(!NetLibPipes),"0","Multi-Protocol",$(!NetLibRPC),"1",+
                            "NWLink IPX/SPX",$(!NetLibSPX),"2",$(!TCPIPName),$(!NetLibTCPIP),"3",+
                            "Apple Talk ADSP",$(!NetLibADSP),"4","Banyan VINES",$(!NetLibVines),"5",+
                            "DEC Net Sockets",$(!NetLibDECNet),"6"}

    DefNetworkRISCSelList = {    "Named Pipes",$(!NetLibPipes),"0","Multi-Protocol",$(!NetLibRPC),"1",+
                                "NWLink IPX/SPX",$(!NetLibSPX),"2",$(!TCPIPName),$(!NetLibTCPIP),"3",+
                                "Apple Talk ADSP",$(!NetLibADSP),"4","DEC Net Sockets",$(!NetLibDECNet),"5"}

    DefSecNetworkSelList = {"Named Pipes",$(!NetLibPipes),"0","Multi-Protocol",$(!NetLibRPC),"1" }

    SecStrNotUsed        = "(not used)"
    SecStrDomSep        = "(domain separator '\')"
    SecStrSpace            = "(space)"
    DefSecurityTokens    = {    $(!SecStrNotUsed),$(!SecStrDomSep),$(!SecStrSpace),"-",".","'",+
                            "!","@","%","^","&"}

    UpgErrorMastSpace    = "There is insufficient space in the master database"$(!LF)
    UpgErrorROs            = "Read Only databases are present"$(!LF)
    UpgErrorSuspect        = "There are suspect databases"$(!LF)
    UpgErrorNumDBs        = "There are too many databases"$(!LF)

    DefUserProvNet        = {"User provided",$(!UserDefined),"3"}
;    NetworkDefList        = {"Named Pipes",$(NetLibPipes),"0"}
    DefSortFileIndex    = 1
    Sort850SelList        = {    "Dictionary order, case-insensitive","nocase.850","42",+
                            "Binary order","cp850bin.850","40", +
                            "Dictionary order, case-sensitive","diction.850","41",  +
                            "Dictionary order, case-insensitive, uppercase preference","nocasepr.850","43", +
                            "Dictionary order, case-insensitive, accent-insensitive","noaccent.850","44", +
                            "Strict compatibility with Version 1.x case-insensitive databases","nocase34.850","49", +
                            "Alternate dictionary order, case-sensitive","altdict.850","55",+
                            "Alternate dictionary order, case-insensitive","altnocs.850","61",+
                            "Alternate dictionary order, case-insensitive, uppercase preference","altnocsp.850","56",+
                            "Alternate dictionary order, case-insensitive, accent-insensitive","altnoacc.850","57",+
                            "Scandinavian dictionary order, case-sensitive","scandict.850","59",+
                            "Scandinavian dictionary order, case-insensitive, uppercase preference","scannocp.850","58",+
                            "Custom",$(!UserDefined),""}
    Sort437SelList        = {    "Dictionary order, case-insensitive","nocase.437","32", +
                            "Binary order","cp437bin.437","30", +
                            "Dictionary order, case-sensitive","diction.437","31", +
                            "Dictionary order, case-insensitive, uppercase preference","nocasepr.437","33", +
                            "Dictionary order, case-insensitive, accent-insensitive","noaccent.437","34",+
                            "Custom",$(!UserDefined),""}
    SortISOSelList        = {    "Dictionary order, case-insensitive","nocase.iso","52",+
                            "Binary order","iso_1bin.iso","50", +
                            "Dictionary order, case-sensitive","diction.iso","51", +
                            "Dictionary order, case-insensitive, uppercase preference","nocasepr.iso","53", +
                            "Dictionary order, case-insensitive, accent-insensitive","noaccent.iso","54",+
                            "Dictionary order, case-insensitive, uppercase pref. for Danish/Norwegian","danonocp.iso","183",+
                            "Dictionary order, case-insensitive, uppercase pref. for Icelandic","islanocp.iso","186",+
                            "Dictionary order, case-insensitive, uppercase pref. for Swedish/Finnish (Std)","svf2nocp.iso","185",+
                            "Dictionary order, case-insensitive, uppercase pref. for Swedish/Finnish (Phone)","svf1nocp.iso","184",+
                            "Custom",$(!UserDefined),""}
    Sort1250SelList        = {    "Dictionary order, case-insensitive","nocase.250","82", +
                            "Binary order","binary.250","80", +
                            "Dictionary order, case-sensitive","diction.250","81", +
                            "Czech dictionary order, case-sensitive", "csydic.250", "83", +
                            "Czech dictionary order, case-insensitive", "csync.250", "84" +
                            "Hungarian dictionary order, case-sensitive", "hundic.250", "85", +
                            "Hungarian dictionary order, case-insensitive", "hunnc.250", "86", +
                            "Polish dictionary order, case-sensitive", "plkdic.250", "87", +
                            "Polish dictionary order, case-insensitive", "plknc.250", "88", +
                            "Romanian dictionary order, case-sensitive", "romdic.250", "89", +
                            "Romanian dictionary order, case-insensitive", "romnc.250", "90", +
                            "Croatian dictionary order, case-sensitive", "shldic.250", "91", +
                            "Croatian dictionary order, case-insensitive", "shlnc.250", "92", +
                            "Slovak dictionary order, case-sensitive", "skydic.250", "93", +
                            "Slovak dictionary order, case-insensitive", "skync.250", "94", +
                            "Slovenian dictionary order, case-sensitive", "slvdic.250", "95", +
                            "Slovenian dictionary order, case-insensitive", "slvnc.250", "96", +
                            "Custom",$(!UserDefined),""}
    Sort1251SelList        = {    "Dictionary order, case-insensitive","nocase.251","106", +
                            "Binary order","binary.251","104", +
                            "Dictionary order, case-sensitive","diction.251","105", +
                            "Ukrainian dictionary order, case-sensitive", "ukrdic.251", "107", +
                            "Ukrainian dictionary order, case-insensitive", "ukrnc.251", "108", +
                            "Custom",$(!UserDefined),""}
    Sort1253SelList        = {    "Dictionary order, case-insensitive","nocase.253","114", +
                            "Binary order","binary.253","112", +
                            "Dictionary order, case-sensitive","diction.253","113", +
                            "Mixed Dictionary order", "grmxtdct.253", "120", +
                            "Dictionary order, case-sensitive, accent-sensitive", "graltdct.253", "121", +
                            "Dictionary order, case-insensitive, accent-insensitive", "grnoacce.253", "124", +
                            "Custom",$(!UserDefined),""}
    Sort1254SelList        = {    "Dictionary order, case-insensitive","nocase.254","130", +
                            "Binary order","binary.254","128", +
                            "Dictionary order, case-sensitive","diction.254","129", +
                            "Custom",$(!UserDefined),""}
    Sort1255SelList        = {    "Dictionary order, case-insensitive","nocase.255","138", +
                            "Binary order","binary.255","136", +
                            "Dictionary order, case-sensitive","diction.255","137", +
                            "Custom",$(!UserDefined),""}
    Sort1256SelList        = {    "Dictionary order, case-insensitive","nocase.256","146", +
                            "Binary order","binary.256","144", +
                            "Dictionary order, case-sensitive","diction.256","145", +
                            "Custom",$(!UserDefined),""}
    Sort1257SelList        = {    "Dictionary order, case-insensitive","nocase.257","154", +
                            "Binary order","binary.257","152", +
                            "Dictionary order, case-sensitive","nocase.257","153", +
                            "Estonian dictionary order, case-sensitive", "etidic.257", "155", +
                            "Estonian dictionary order, case-insensitive", "etinc.257", "156", +
                            "Latvian dictionary order, case-sensitive", "lvidic.257", "157", +
                            "Latvian dictionary order, case-insensitive", "lvinc.257", "158", +
                            "Lithuanian dictionary order, case-sensitive", "lthdic.257", "159", +
                            "Lithuanian dictionary order, case-sensitive", "lthdic.257", "160", +
                            "Custom",$(!UserDefined),""}
    Sort932SelList        = {    "Dictionary order, case-insensitive (NT-provided)","cp932nls.932","193", +
                            "Binary order","cp932bin.932","50", +
                            "Custom",$(!UserDefined),""}
    Sort936SelList        = {    "Dictionary order, case-insensitive (NT-provided)","cp936nls.936","199", +
                            "Binary order","cp936bin.936","198", +
                            "Custom",$(!UserDefined),""}
    Sort949SelList        = {    "Dictionary order, case-insensitive (NT-provided)","cp949nls.949","195", +
                            "Binary order","cp949bin.949","194", +
                            "Custom",$(!UserDefined),""}
    Sort950SelList        = {    "Dictionary order, case-insensitive (NT-provided)","cp950nls.950","197", +
                            "Binary order","cp950bin.950","196", +
                            "Custom",$(!UserDefined),""}

[RemoveOldSQLGroup]
    set SQLGroup = $(!OldSQLProgmanGrpName)
    RemoveProgmanItem $(SQLGroup),"SQL Setup","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Service Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL/w","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Tape Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Security Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Transfer Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Help","COMMON"
    RemoveProgmanItem $(SQLGroup),"Release Notes","COMMON"
    RemoveProgManGroup $(SQLGroup),"COMMON"
    exit

[CreateSQLProgmanItems]
    set SQLGroup = $(!SQLProgmanGrpName)
    ifstr(i) $(!STF_OS) == "95"
        set Isqlw2 = "ISQL_w"
    else
        set Isqlw2 = "ISQL/w"
    endif
    CreateProgManGroup $(SQLGroup),"","COMMON"

    RemoveProgmanItem $(SQLGroup),"SQL Setup","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Service Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL/w 2.0","COMMON"
    RemoveProgmanItem $(SQLGroup),$(Isqlw2),"COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Tape Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Security Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Transfer Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Enterprise Manager","COMMON"
    ifstr(i) $(!InstallType) != "2"
        RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32","COMMON"
        RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32","COMMON"
    endif
    RemoveProgmanItem $(SQLGroup),"SQL Performance Monitor","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Books Online","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Distributed Management Objects","COMMON"
    RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),"COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Help","COMMON"
    RemoveProgmanItem $(SQLGroup),"Microsoft ODBC SQL Server Driver","COMMON"
    RemoveProgmanItem $(SQLGroup),"Release Notes","COMMON"
    RemoveProgmanItem $(SQLGroup),"Readme.txt","COMMON"
    RemoveProgmanItem  $(SQLGroup),"MSDTC Administrative Console","COMMON"
    RemoveProgmanItem  $(SQLGroup),"Client","COMMON"
    RemoveProgmanItem  $(SQLGroup),"MS Query","COMMON"

    CreateProgmanItem  $(SQLGroup),"SQL Enterprise Manager",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLStarfterEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLStarfterEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Service Manager",$(!SQLPath)"\"$(!Binaries)"\"$(!StopLite),$(!SQLPath)"\"$(!Binaries)"\"$(!StopLite),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),$(Isqlw2),$(!SQLPath)"\"$(!Binaries)"\"$(!ISQLWEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!ISQLWEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Security Manager",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLSecManEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLSecManEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Trace",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLTraceEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLTraceEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Client Configuration Utility",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLClientEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLClientEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Performance Monitor",$(!PerfMonEXE)" "$(!SQLPath)"\"$(!Binaries)"\"$(!SQLCtrsPMC),$(!PerfMonEXE),0,"COMMON"
    ifstr(i) $(!RISCInst) != "YES"
        CreateProgmanItem  $(SQLGroup),"MS Query",$(!SystemDirectory)"\..\"$(!MSQueryDir)"\"$(!MSQueryEXE),$(!SystemDirectory)"\..\"$(!MSQueryDir)"\"$(!MSQueryEXE),0,"COMMON"
        CreateProgmanItem  $(SQLGroup),"SQL Web Page Wizard",$(!SQLPath)"\"$(!Binaries)"\"$(!WebWizardEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!WebWizardEXE),0,"COMMON"
    endif
    ifstr(i) $(!SQLBooksType) == "1"
        CreateProgmanItem  $(SQLGroup),$(!SQLBooksFullTitle), $(!SQLPath)"\"$(!Binaries)"\INFOVIEW.EXE "$(!SQLBookMVB),$(!SQLPath)"\"$(!InstallDir)"\SQLBOOKS.ICO",0,"COMMON"
    else-ifstr(i) $(!SQLBooksType) == "2"
        CreateProgmanItem  $(SQLGroup),$(!SQLBooksFullTitle), $(!SQLPath)"\"$(!Binaries)"\INFOVIEW.EXE "$(!SQLBookMVB),$(!SQLPath)"\"$(!InstallDir)"\SQLBOOKS.ICO",0,"COMMON"
    endif
    CreateProgmanItem  $(SQLGroup),"Microsoft ODBC SQL Server Driver",$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE)" "$(!STF_WINDOWSSYSPATH)"\"$(!HelpODBCInst),$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Distributed Management Objects",$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE)" "$(!SQLPath)"\"$(!DLLs)"\"$(!SQLOleHlp),$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"Readme.txt",$(!STF_WINDOWSSYSPATH)"\"$(!NotePadEXE)" "$(!SQLPath)"\"$(!InstallDir)"\readme.txt",$(!STF_WINDOWSSYSPATH)"\"$(!NotePadEXE),0,"COMMON"
    CreateProgmanItem  $(SQLGroup),"SQL Setup",$(!SQLPath)"\"$(!Binaries)"\"$(!SetupEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SetupEXE),0,"COMMON"

    exit

[NukeSQLProgmanItems]
    set SQLGroup = $(!ProgramTitle)
    ifstr(i) $(!STF_OS) == "95"
        set Isqlw2 = "ISQL_w"
    else
        set Isqlw2 = "ISQL/w"
    endif
    RemoveProgmanItem $(SQLGroup),"SQL Setup","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Service Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL/w 2.0","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL_w","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL/w","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Tape Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Security Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Transfer Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Enterprise Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance Monitor","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Web Page Wizard","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Trace","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Books Online","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Distributed Management Objects","COMMON"
    RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),"COMMON"
    RemoveProgmanItem $(SQLGroup),"Microsoft ODBC SQL Server Driver","COMMON"
    RemoveProgmanItem $(SQLGroup),"Readme.txt","COMMON"
    RemoveProgmanItem  $(SQLGroup),"MS Query","COMMON"
    RemoveProgManItem $(SQLGroup), "DB-Library Help", "COMMON"
    RemoveProgManGroup $(SQLGroup),"COMMON"
    exit

[NukeSQL60ProgmanItems]
    set SQLGroup = $(!SQL60ProgramTitle)
    ifstr(i) $(!STF_OS) == "95"
        set Isqlw2 = "ISQL_w"
    else
        set Isqlw2 = "ISQL/w"
    endif
    RemoveProgmanItem $(SQLGroup),"SQL Setup","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Service Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"ISQL/w 2.0","COMMON"
    RemoveProgmanItem $(SQLGroup),$(Isqlw2),"COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Tape Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Security Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Transfer Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Enterprise Manager","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance Monitor","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Performance","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Books Online","COMMON"
    RemoveProgmanItem $(SQLGroup),"SQL Distributed Management Objects","COMMON"
    RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),"COMMON"
    RemoveProgmanItem $(SQLGroup),"Microsoft ODBC SQL Server Driver","COMMON"
    RemoveProgmanItem $(SQLGroup),"Readme.txt","COMMON"
    RemoveProgManItem $(SQLGroup), "DB-Library Help", "COMMON"
    RemoveProgManGroup $(SQLGroup),"COMMON"
    exit

[CreateUtilProgmanItems]
    ifstr(i) $(!UserType) == "Admin"
        set SQLGroup = $(!SQLProgmanGrpName)
        set ProgmanType = "COMMON"
    else
        set SQLGroup = $(!SQLUtilsGrpName)
        set ProgmanType = "VITAL"
    endif
    ifstr(i) $(!STF_OS) == "95"
        set Isqlw2 = "ISQL_w"
    else
        set Isqlw2 = "ISQL/w"
    endif
    CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32",$(ProgmanType)
    CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32",$(ProgmanType)
    ifcontains(i) $(!SQLStarfterEXE) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),"SQL Enterprise Manager",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),"SQL Enterprise Manager",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLStarfterEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLStarfterEXE),0,$(ProgmanType)
    endif
    ifcontains(i) $(!ISQL) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),$(Isqlw2),$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),"ISQL/w 2.0",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),$(Isqlw2),$(!SQLPath)"\"$(!Binaries)"\"$(!ISQLWEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!ISQLWEXE),0,$(ProgmanType)
    endif
    ifcontains(i) $(!SQLSecManEXE) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),"SQL Security Manager",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),"SQL Security Manager",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLSecManEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLSecManEXE),0,$(ProgmanType)
    endif
    ifcontains(i) $(!MSQueryEXE) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem  $(SQLGroup),"MS Query",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),"MS Query",$(!SystemDirectory)"\..\"$(!MSQueryDir)"\"$(!MSQueryEXE),$(!SystemDirectory)"\..\"$(!MSQueryDir)"\"$(!MSQueryEXE),0,$(ProgmanType)
    endif
    ifcontains(i) $(!WebWizardEXE) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem  $(SQLGroup),"SQL Web Page Wizard",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),"SQL Web Page Wizard",$(!SQLPath)"\"$(!Binaries)"\"$(!WebWizardEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!WebWizardEXE),0,$(ProgmanType)
    endif
    ifcontains(i) $(!SQLTraceEXE) in $(!UtilFiles)
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem  $(SQLGroup),"SQL Trace",$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),"SQL Trace",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLTraceEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLTraceEXE),0,$(ProgmanType)
    endif
    CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility",$(ProgmanType)
    CreateProgmanItem  $(SQLGroup),"SQL Client Configuration Utility",$(!SQLPath)"\"$(!Binaries)"\"$(!SQLClientEXE),$(!SQLPath)"\"$(!Binaries)"\"$(!SQLClientEXE),0,$(ProgmanType)
    ifstr(i) $(!SQLBooksType) == "1"
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),$(!SQLBooksFullTitle), $(!SQLPath)"\"$(!Binaries)"\INFOVIEW.EXE "$(!SQLBookMVB),$(!SQLPath)"\"$(!InstallDir)"\SQLBOOKS.ICO",0,$(ProgmanType)
    else-ifstr(i) $(!SQLBooksType) == "2"
        CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
        RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),$(ProgmanType)
        CreateProgmanItem  $(SQLGroup),$(!SQLBooksFullTitle), $(!SQLPath)"\"$(!Binaries)"\INFOVIEW.EXE "$(!SQLBookMVB),$(!SQLPath)"\"$(!InstallDir)"\SQLBOOKS.ICO",0,$(ProgmanType)
    endif
    CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Help",$(ProgmanType)
    ifstr(i) $(!STF_OS) == "NT"
        CreateProgmanItem  $(SQLGroup),"SQL Help",$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE)" "$(!SQLPath)"\"$(!Binaries)"\"$(!HelpSQLHLP),$(!STF_WINDOWSSYSPATH)"\"$(!WinHelpEXE),0,$(ProgmanType)
    else
        CreateProgmanItem  $(SQLGroup),"SQL Help",$(!STF_WINDOWSPATH)"\"$(!Win95HelpEXE)" "$(!SQLPath)"\"$(!Binaries)"\"$(!HelpSQLHLP),$(!STF_WINDOWSPATH)"\"$(!Win95HelpEXE),0,$(ProgmanType)
    endif
    exit

[NukeClientProgmanItems]
    ifstr(i) $(!UserType) == "Admin"
        set SQLGroup = $(!SQLProgmanGrpName)
        set ProgmanType = "COMMON"
    else
        set SQLGroup = $(!SQLUtilsGrpName)
        set ProgmanType = "VITAL"
    endif
    ifstr(i) $(!STF_OS) == "95"
        set Isqlw2 = "ISQL_w"
    else
        set Isqlw2 = "ISQL/w"
    endif
    CreateProgManGroup $(SQLGroup),"",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Administrator Win32",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Object Manager Win32",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Enterprise Manager",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),$(Isqlw2),$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"ISQL/w 2.0",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Security Manager",$(ProgmanType)
;    RemoveProgmanItem $(SQLGroup),"SQL Web Page Wizard",$(ProgmanType)
;    RemoveProgmanItem $(SQLGroup),"SQL Trace",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Client Configuration Utility",$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),$(!SQLBooksFullTitle),$(ProgmanType)
    RemoveProgmanItem $(SQLGroup),"SQL Help",$(ProgmanType)
    RemoveProgManGroup $(SQLGroup),$(ProgmanType)
    exit

[Source Media Descriptions]
    1  = "Microsoft SQL Server for Windows NT Diskette #1"

[QueryFullNameOrgNameDlgENG]
    DlgTemplate        =    "DLG_QUERY_FULLNAME_ORGNAME"
    !SQLDlgNames    = {    "@Caption","Enter Name and Organization", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","144",+
                        "@DlgText","Please enter your full name in the Name box below.  "+
                        "If SQL Server will be used for business purposes, enter the name of your company "+
                        "or organization in the Company box."$(!LF)$(!LF)+
                        "In the Product ID box enter the ID for this copy of SQL Server.  The Product "+
                        "ID is provided on the SQL Server CD box."$(LF)$(LF),+
                        "@Edit1Label","&Name:",+
                        "@Edit2Label","&Company:",+
                        "@Edit3Label","&Product ID:",+
                        "@Continue","C&ontinue",+
                        "@Exit","E&xit",+
                        "@Help","&Help",+
                        "@EDITIN1",$(!FullName),+
                        "@EDITIN2",$(!OrgName),+
                        "@EDITIN3",$(!ProductID),+
                        "@EDITLEN1","100",+
                        "@EDITLEN2","100",+
                        "@EDITLEN3","100"}

[VerifyFullNameOrgNameDlgENG]
    DlgTemplate        =    "DLG_VERIFY_FULLNAME_ORGNAME"
    !SQLDlgNames    = {    "@Caption","Verify Name and Organization", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","145",+
                        "@DlgText","Please verify that the information you typed is correct."$(!LF)$(!LF)+
                        "If you want to change the name, company or the Product ID, "+
                        "choose Change. Otherwise, choose Continue.",+
                        "@Static1Label","Name:",+
                        "@Static1Text",$(!FullName),+
                        "@Static2Label","Company:",+
                        "@Static2Text",$(!OrgName),+
                        "@Static3Label","Product ID:",+
                        "@Static3Text",$(!ProductID),+
                        "@Continue","C&ontinue",+
                        "@Cancel","Chan&ge",+
                        "@Exit","E&xit",+
                        "@Help","&Help"}

[WelcomeDlgENG]
    DlgTemplate        =    "DLG_WELCOME"
    !SQLDlgNames    = {    "@Caption","Welcome", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","100",+
                        "@DlgText","Welcome to Setup. "$(!LF)$(!LF)+
                        "The Setup program for Microsoft SQL Server ("+
                        $(!ProductVersion)") installs "$(!SQLServerBase)" on your "+
                        "computer.  Each Setup dialog box contains basic instructions for "+
                        "completing an installation.  If you want additional "+
                        "information and instructions about a dialog box or an option, "+
                        "press the Help key, F1."$(!LF)$(!LF)+
                        "To learn how to use SQL Server Setup, press F1."$(!LF)$(!LF)+
                        "To install "$(!SQLServerBase)" on your computer now, choose Continue "+
                        "or press ENTER."$(!LF)$(!LF)+
                        "To exit Setup without installing "$(!SQLServerBase)", press F3.",+
                        "@ABOUT","",+
                        "@Continue","C&ontinue",+
                        "@Help","&Help",+
                        "@Exit","E&xit"}

[AlreadyInstalledDlgENG]
    DlgTemplate        =    "DLG_INSTALLED"
    !SQLDlgNames    = {    "@Caption","SQL Server Already Installed",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","146",+
                        "@DlgText1","The Setup program has detected that SQL "+
                        "Server has already been installed by:",+
                        "@RegInfo",$(!Registration),+
                        "@ProductID",$(!ProductID),+
                        "@DlgText2","It is acceptable for the legal owner to"+
                        " reinstall this product in order to update"+
                        " an existing copy or to replace a corrupted"+
                        " or missing version of the program.",+
                        "@DlgText3","You can continue to install the product, "+
                        "but you should be aware that this product "+
                        "is protected by copyright law and "+
                        "international treaties.",+
                        "@DlgText4","Unauthorized reproduction or distribution of"+
                        " this program or any portion of it may"+
                        " result in severe civil and criminal penalties"+
                        " and will be prosecuted to the maximum extent under the law.",+
                        "@Continue","C&ontinue",+
                        "@Cancel","E&xit",+
                        "@Help","&Help"}

[SetupDoneDlgENG]
    DlgTemplate        =    "DLG_RESTART"
    !SQLDlgNames    = {    "@Caption",$(!Setup_Title),+
                        "@DlgText",$(!MsgText)$(!LF)$(!LF)$(!AddlText),+
                        "@WindowsText","Exit to "$(!WindowsBase),+
                        "@Windows","E&xit to "$(!WindowsBase)}

[SetupDoneDlg95ENG]
    DlgTemplate        =    "DLG_RESTART"
    !SQLDlgNames    = {    "@Caption",$(!Setup_Title),+
                        "@DlgText",$(!MsgText)$(!AddlText),+
                        "@WindowsText","Exit to "$(!WindowsBase),+
                        "@Windows","E&xit to "$(!WindowsBase)}

[PopupInfo]
    DlgType        = "Info"
    DlgTemplate    = "REBOOT"
    Caption        = $(!Setup_Title)
    DlgText        = $(tmpvar)

[InstallTypeChoicesDlgENG]
    DlgTemplate        =    "DLG_INSTALLTYPE"
    !SQLDlgNames    = {    "@Caption",$(!Setup_Title)" - Options",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","103",+
                        "@DEFRADIO",$(!DefRadio), +
                        "@DlgText1","Choose one of the following installation options:", +
                        "@DlgText2","When you are ready to proceed with the installation, "+
                        "choose Continue. To cancel the installation, choose Exit.",+
                        "@RadioText1","&Install SQL Server and Utilities",+
                        "@RadioText2","&Upgrade SQL Server", +
                        "@RadioText3","Install U&tilities Only",+
                        "@RadioText4","Change &Network Support",+
                        "@RadioText5","Add &Language",+
                        "@RadioText6","Rebuild &Master Database",+
                        "@RadioText7","Set Server O&ptions",+
                        "@RadioText8","Set &Security Options",+
                        "@RadioText9","&Remove SQL Server", +
                        "@Remote","R&emote",+
                        "@Continue","C&ontinue",+
                        "@Help","&Help",+
                        "@Exit","E&xit"}

[NewInstallOptionsDlgENG]
    DlgTemplate        =    "DLG_NEWINSTALL"
    !SQLDlgNames    = {    "@Caption"," Installation Options", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","104",+
                        "@DlgText1","Select or clear an option by clicking a check box.", +
                        "@DlgText2","Select individual characteristics for an option by choosing the appropriate button.", +
                        "@DlgCharSet","Character Set ...............................................................", +
                        "@DlgSortOrder","Sort Order ....................................................................", +
                        "@DlgSetText","Se&ts...", +
                        "@DlgOrdersText","O&rders...", +
                        "@DlgNetText","&Networks...", +
                        "@DlgSetupText","C&ontinue", +
                        "@DlgBackText","&Back", +
                        "@DlgExitText","E&xit", +
                        "@DlgHelpText","&Help",+
                        "@DlgAddlNets","Additional Network Support ...........................................", +
                        "@AutoStart","&Auto Start SQL Server at boot time",+
                        "@AutoStartMonitor","Auto Start SQL &Executive at boot time" }

[CharSetsDlgENG]
    DlgTemplate        =    "DLG_SINGLELIST"
    !SQLDlgNames    = {    "@Caption","Select Character Set", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","105",+
                        "@OK","&OK","@Cancel","&Cancel","@Help","&Help",+
                        "@DEFLISTITEM",$(DefListItem),+
                        "@DlgText1","Select Character &Set:",+
                        "@DlgText2","Important: It is critical that you select the correct character "+
                        "set.  If you later need to change the selected character set, you will need "+
                        "to rebuild your databases and reload your data",+
                        "@DlgText3","For information on character sets, choose the Help button or press F1"}

[SortOrderDlgENG]
    DlgTemplate        =    "DLG_SINGLEWIDELIST"
    !SQLDlgNames    = {    "@Caption","Select Sort Order", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","106",+
                        "@DEFLISTITEM",$(DefListItem),+
                        "@OK","&OK","@Cancel","&Cancel","@Help","&Help",+
                        "@DlgText1","Sort O&rder:",+
                        "@DlgText2","Important: It is critical that you select the correct sort "+
                        "order.  If you later need to change the selected sort order, you will need "+
                        "to rebuild your databases and reload your data",+
                        "@DlgText3","For information on sort orders, choose the Help button or press F1"}

[NetworkDlgENG]
    DlgTemplate        =    "DLG_SINGLEMULTLIST"
    !SQLDlgNames    = {    "@Caption","Select Network Protocols", +
                        "@Checks","ON",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","107",+
                        "@OK","&OK","@Cancel","&Cancel","@Help","&Help",+
                        "@DlgText1","Install/Uninstall &Networks:",+
                        "@DlgText2","" }

[NetworkDlgExENG]
    DlgTemplate        =    "DLG_SINGLEMULTLISTBACK"
    !SQLDlgNames    = {    "@Caption","Select Network Protocols",+
                        "@Checks","ON",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","107",+
                        "@OK","&OK","@Cancel","E&xit","@Help","&Help","@Back","&Back",+
                        "@DlgText1","Install/Uninstall &Networks:",+
                        "@DlgText2","" }

[InstallCompletedENG]
    DlgTemplate        =    "DLG_REBREST"
    !SQLDlgNames    = {    "@Caption",$(!Setup_Title)" - Completed", +
                        "@DlgText",$(!RebootType)$(!LF)$(!LF)+
                        "The system paths have been updated and will become effective "+
                        "when the system is rebooted. Be sure to remove any floppy disks from "+
                        "the computer before you reboot."$(!LF)$(!AddlText),+
                        "@WindowsText","Exit to "$(!WindowsBase)".",+
                        "@Windows","E&xit to "$(!WindowsBase)".",+
                        "@RebootLater","Reboot later.",+
                        "@RebootText",$(!RebootText),+
                        "@Reboot","&Reboot"}

[InstallCompletedLocalENG]
    !RebootText = "Reboot"

[InstallCompletedRemoteENG]
    !RebootText = "Remote Reboot"

[UpgradeWarning1ENG]
    !DlgTemplate    =    "DLG_THREEBUTS"
    !SQLDlgNames    = {    "@Caption","Upgrade SQL Server",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","148",+
                        "@DlgText1","It is advisable that you back up all your databases (including the master database) before upgrading your installation of Microsoft SQL Server."+
                        " In addition you should run chkupg.exe to check for potential upgrade problems.",+
                        "@DlgText2","If you want to terminate the upgrade, choose Exit.",+
                        "@DlgText3","To proceed with the upgrade, choose Resume.",+
                        "@Continue","&Resume",+
                        "@Back","&Back",+
                        "@Exit","E&xit",+
                        "@Help","&Help"}

[UpgradeWarning2ENG]
    !DlgTemplate    =    "DLG_TWOBUTS"
    !SQLDlgNames    = {    "@Caption","Upgrade SQL Server",+
                        "@DlgText1","Are you sure you want to continue with upgrading SQL Server?", +
                        "@DlgText2","If you want to terminate the upgrade, choose Exit.",+
                        "@DlgText3","To proceed with the upgrade, choose Resume.",+
                        "@Continue","&Resume",+
                        "@Exit","E&xit"}

[RebuildOptionsDlg]
    DlgTemplate        =    "DLG_REBUILD"
    !SQLDlgNames    = {    "@Caption",$(!Setup_Title)" Rebuild Options", +
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","130",+
                        "@DlgText1","Select the options you want to use for rebuilding the MASTER device by selecting "+
                        "the appropriate button.",+
                        "@DlgCharSet","Character Set ...............................................................", +
                        "@DlgSortOrder","Sort Order ....................................................................", +
                        "@DlgSetText","Se&ts...", +
                        "@DlgOrdersText","O&rders...", +
                        "@DlgSetupText","C&ontinue", +
                        "@DlgBackText","&Back", +
                        "@DlgExitText","E&xit", +
                        "@DlgHelpText","&Help"}

[RebuildDlgENG]
    DlgTemplate        =    "DLG_THREEBUTS"
    !SQLDlgNames    = {    "@Caption","Rebuild MASTER Database",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","147",+
                        "@DlgText1","Rebuilding the master database will result in the "+
                        "loss of previously created databases.", +
                        "@DlgText2","If you want to terminate the rebuild, choose Exit.",+
                        "@DlgText3","To proceed with the rebuild, choose Resume.",+
                        "@Continue","&Resume",+
                        "@Back","&Back",+
                        "@Exit","E&xit",+
                        "@Help","&Help"}

[NukeDlgENG]
    DlgTemplate        =    "DLG_NUKE"
    !SQLDlgNames    = {    "@Caption","Remove SQL Server",+
                        "@DlgText1","Selecting this option will remove SQL Server from this computer. If you choose to "+
                        "remove the SQL Server files from "$(!SQLPath)", all information will be lost and cannot be recovered.", +
                        "@DlgText2","If you want to terminate the operation, choose Exit.",+
                        "@DlgText3","To proceed with removing SQL Server, choose Resume.",+
                        "@Check1","Re&move files from: "$(!SQLPath),+
                        "@Continue","&Resume",+
                        "@Back","&Back",+
                        "@Exit","E&xit"}

[ServerParamsDlgENG]
    DlgTemplate        =    "DLG_SVR_PARAMS"
    !SQLDlgNames    = {    "@Caption","Server Parameters",+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID","108",+
                        "@DlgText1","&Parameter:",+
                        "@DlgText2","&Existing Parameters:",+
                        "@Continue","&OK",+
                        "@Cancel","&Cancel",+
                        "@Help","&Help",+
                        "@Add","&Add",+
                        "LISTBOX_NOTIFY","",+
                        "@Remove","&Remove",+
                        "@Exit","E&xit"}

[GetPathDlgENG]
    DlgTemplate        =    $(!Template)
    !SQLDlgNames    = {    "@Caption",$(!SQLDLGPath),+
                        "@HELPFILE",$(!HelpSQLNTSetup),+
                        "@HELPID",$(!HelpID),+
                        "@DlgText1",$(!Text1),+
                        "@DlgText2",$(!Text2),+
                        "@Edit1Label",$(!EditLabel),+
                        "@Edit2Label",$(!Edit2Label),+
                        "@EDITIN1",$(!EditIn),+
                        "@EDITLEN1","256",+
                        "@Continue","C&ontinue",+
                        "@Help","&Help",+
                        "@Back","&Back",+
                        "@Exit",$(!Ex)}

[GetSpaceSQLPathDlgENG]
    DlgTemplate        =    "DLG_SPACESQLPATH"
    !DefInPath        =    $(!DefSQLPath)
    !SQLDlgNames    = {    "@Caption","SQL Server Installation Path",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","112",+
                                 "@DlgText1","The Setup program will copy the SQL Server files into the "+
                                             "following drive and directory:",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@DlgSpaceReq","Required Space:",+
                                 "@DlgSpaceAvail","Available Space:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetSQLPathDlg]
        DlgTemplate     =       "DLG_NEWSQLPATH"
        !DefInPath      =       $(!DefSQLPath)
        !SQLDlgNames    =       {"@Caption","SQL Server Installation Path",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","101",+
                                 "@DlgText1","Please specify where the Setup program can find the existing SQL Server "+
                                             "installation.",+
                                 "@DlgText2","To instruct Setup to use the SQL Server system files in a different directory on the "+
                                             "selected drive, use the BACKSPACE key to delete characters, and then "+
                                             "type the directory containing SQL Server system files you want Setup to use.",+
                                 "@DlgText3","To instruct Setup to use the SQL Server system files on a different drive, in the "+
                                             " Drive box, select a drive letter from the list of available drives.",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetSpaceMasterPathDlg]
        DlgTemplate     =       "DLG_SPACEMASTERPATH"
        !SQLDlgNames    =       {"@Caption","MASTER Device Creation",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","102",+
                                 "@DlgText1","The Setup program will create the MASTER device using the following filename and drive:",+
                                 "@DlgText2","Note: The minimum MASTER device size is 25MB, but it's a good idea "+
                                             "to specify extra room for future use.",+
                                 "@DlgText3","For information on the MASTER device options, choose the Help button "+
                                             "or press F1.",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@DlgText6","MASTER device Si&ze (MB):",+
                                 "@DlgSpaceReq","Required Space:",+
                                 "@DlgSpaceAvail","Available Space:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@EDITIN2",$(!DefMasterSize),+
                                 "@EDITLEN2","5",+
                                 "@EDITRESTRICT2","NUMBERS",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetMasterPathDlg]
        DlgTemplate     =       "DLG_MASTERPATH"
        !SQLDlgNames    =       {"@Caption","Rebuild MASTER Device",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","113",+
                                 "@DlgText1","The Setup program will rebuild the MASTER device using the following filename and drive:",+
                                 "@DlgText2","Note: The minimum MASTER device size is 25MB, but it's a good idea "+
                                             "to specify extra room for future use.",+
                                 "@DlgText3","For information on the MASTER device options, choose the Help button "+
                                             "or press F1.",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@DlgText6","MASTER device Si&ze (MB):",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@EDITIN2",$(!DefMasterSize),+
                                 "@EDITLEN2","5",+
                                 "@EDITRESTRICT2","NUMBERS",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetUpgradeSQLPathDlgENG]
        DlgTemplate     =       "DLG_NEWSQLPATH"
        !DefInPath      =       $(!DefSQLPath)
        !SQLDlgNames    =       {"@Caption","SQL Server Upgrade Path",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","117",+
                                 "@DlgText1","The Setup program will copy the SQL Server files into the "+
                                             "following drive and directory:",+
                                 "@DlgText2","To copy the SQL Server files to a different directory on the "+
                                             "selected drive, use the BACKSPACE key to delete characters, and then "+
                                             " type the directory where you want the Setup program to copy the SQL Server files.",+
                                 "@DlgText3","To copy the SQL Server files to a different drive, in the "+
                                             " Drive box, select a drive letter from the list of available drives.",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetUpgradeSQLMasterPathDlg]
        DlgTemplate     =       "DLG_NEWSQLPATH"
        !DefInPath      =       $(!DefMasterPath)
        !SQLDlgNames    =       {"@Caption","SQL Server Upgrade MASTER Device Path",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","127",+
                                 "@DlgText1","The Setup program will upgrade the MASTER device file "+
                                             "contained in the following drive and directory:",+
                                 "@DlgText2","To upgrade the MASTER device within in a different directory on the "+
                                             "selected drive, use the BACKSPACE key to delete characters, and then "+
                                             " type the filename of the MASTER device that the Setup program will upgrade.",+
                                 "@DlgText3","To upgrade the MASTER device on a different drive, in the "+
                                             " Drive box, select a drive letter from the list of available drives.",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}


[GetSpaceUtilOptsDlg]
        DlgTemplate     =       "DLG_CLIENT_UTILS"
        !DefInPath      =       $(!DefSQLPath)
        !SQLDlgNames    =       {"@Caption","Install Client Utilities",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","110",+
                                 "@DlgText1","The Setup program will copy the SQL Server utility files into the "+
                                             "following drive and directory:",+
                                 "@DlgText4","Dri&ve:",+
                                 "@DlgText5","&Directory:",+
                                 "@DlgText6","Utilities to be installed:",+
                                 "@Chk1","BCP",+
                                 "@Chk2","ISQL/w",+
                                 "@Chk3","SQL Enterprise Manager",+
                                 "@Chk4","SQL Security Manager",+
                                 "@Chk5","Configuration Diagnostics",+
                                 "@Chk6","MS Query",+
                                 "@Chk7","SQL Web Page Wizard",+
                                 "@Chk8","MS DTC Client Support",+
                                 "@Chk9","SQL Trace Utility",+
                                 "@DlgSpaceReq","Required Space:",+
                                 "@DlgSpaceAvail","Available Space:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetNetLibPathDlgENG]
        !Template       =       "DLG_SQLPATHBACK"
        !NoNameText     =       DBNoPathENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "NO"
        !ExtraEdit      =       ""
        !Text1          =       "The Setup program will copy the following user-defined Net-Library "+
                                "to the hard disk."
        !Text2          =       "To copy the Net-Library file from a different "+
                                "location, use the BACKSPACE key to delete "+
                                "characters, and then type the drive, path and filename "+
                                "from which you want the Setup program to copy the Net-Library file."
        !EditIn         =       $(!DefNETPath)
        !EditLabel      =       "&Path:"
        !HelpID         =       "114"
        !Ex             =       "E&xit"

[GetSortFileDlgENG]
        !Template       =       "DLG_SQLLONGEDITEXTRA"
        !NoNameText     =       DBNoPathENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "NO"
        !ExtraEdit      =       "EDIT2"
        !ExtraEditFail  =       "Please supply the sort order ID."
        !Text1          =       "The Setup program will copy the following character set "+
                                "file to the hard disk:"
        !Text2          =       "To copy the character set file from a different "+
                                "location, use the BACKSPACE key to delete "+
                                "characters, and then type the drive, path and filename "+
                                "from which you want the Setup program to copy the character set file."
        !EditIn         =       $(!DefNETPath)
        !HelpID         =       "115"
        !EditLabel      =       "Sort &Filename:"
        !Edit2Label     =       "Sort &Order Number:"
        !Ex             =       "E&xit"

[GetLangFileDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "The Setup program will copy the following language file "+
                                "to the hard disk:"
        !Text2          =       "To copy the language file from a different "+
                                "location, use the BACKSPACE key to delete "+
                                "characters, and then type the drive, path and filename "+
                                "from which you want the Setup program to copy the language files."
        !EditIn         =       $(!DefNETPath)
        !HelpID         =       "116"
        !EditLabel      =       "&Path:"
        !Ex             =       "E&xit"

[GetSAPasswordDlgENG]
        DlgTemplate     =       "DLG_SQLPASSWORDEDIT"
        !PermitNullName =       "YES"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "Please enter and confirm the SA password that the upgrade "+
                                "will use to log in to the SQL Server."
        !Text2          =       "To enter a different SA password, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the password "+
                                "you want the Setup program to use when upgrading."
        !SQLDlgNames    =       {"@Caption","SA Password",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID",118,+
                                 "@DlgText1",$(!Text1),+
                                 "@DlgText2",$(!Text2),+
                                 "@Edit1Label","&SA Password:",+
                                 "@Edit2Label","&Confirm Password:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@EDITIN2","",+
                                 "@EDITLEN2","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetMailInfoDlgENG]
        DlgTemplate     =       "DLG_MAILINFOEDIT"
        !PermitNullName =       "YES"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "In order to auto start the mail client, a valid mail login name "+
                                "and password must be entered. "
        !SQLDlgNames    =       {"@Caption","Mail Login",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID",132,+
                                 "@DlgText1",$(!Text1),+
                                 "@Edit1Label","&Mail Login Name:",+
                                 "@Edit2Label","Mail &Password:",+
                                 "@Edit3Label","&Confirm Password:",+
                                 "@Chk1","Copy &SQLMail configuration from current user account",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","256",+
                                 "@EDITIN2","",+
                                 "@EDITLEN2","256",+
                                 "@EDITIN2","",+
                                 "@EDITLEN2","256",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetStreetNameDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoStreetENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "SQL Server will use the following StreetTalk PC-based service name:"
        !Text2          =       "To enter a different PC-based service name, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the PC-based service name "+
                                "you want SQL Server to use."
        !EditIn         =       $(!StreetName)
        !EditLabel      =       "&Service Name:"
        !HelpID         =       "140"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "Street Talk service name"

[GetNamedPipesDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoPipeENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "SQL Server will use the following Named Pipe name:"
        !Text2          =       "To enter a different Named Pipe name, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the Named Pipe name "+
                                "you want SQL Server to use."
        !EditIn         =       $(!ServerNMPipeName)
        !EditLabel      =       "&Named Pipe name:"
        !HelpID         =       "150"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "Named Pipe name"

[GetTCPIPSocketDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !NoNameText     =       NoTCPIPSocketENG
        !Text1          =       "SQL Server will listen on the following TCP/IP port number: "
        !Text2          =       "To enter a different TCP/IP port number, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the TCP/IP port number "+
                                "you want SQL Server to listen on."
        !EditLabel      =       "&Port Number:"
        !EditIn         =       $(!TCPIPSocketNumber)
        !HelpID         =       "121"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "TCP/IP Socket Number"

[GetServiceNameDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoServiceENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "SQL Server will use the following Novell Bindery service name:"
        !Text2          =       "To enter a different Novell Bindery service name, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the Novell Bindery service name "+
                                "you want the SQL Server to use."
        !EditIn         =       $(!ServiceName)
        !EditLabel      =       "&Service Name:"
        !HelpID         =       "122"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "Novell Bindery service name"

[GetADSPNameDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoADSPENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "SQL Server will use the following Apple Talk service object name:"
        !Text2          =       "To enter a different Apple Talk service object name, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the Apple Talk service object name "+
                                "you want the SQL Server to use."
        !EditIn         =       $(!ADSPServiceName)
        !EditLabel      =       "&Service Name:"
        !HelpID         =       "142"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "Apple Talk service object name"


[GetDECNetNameDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoDECNetENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "SQL Server will use the following DECNet Object ID:"
        !Text2          =       "To enter a different DECNet Object ID, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the DECNet Object ID "+
                                "you want the SQL Server to use."
        !EditIn         =       $(!DECNetObjectID)
        !EditLabel      =       "&Object ID:"
        !HelpID         =       "141"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       "DECNet Object ID"

[GetMultiProtEncryptDlgENG]
        DlgTemplate     =       "DLG_ONECHECK"
        !SQLDlgNames    =       {"@Caption","Multi Protocol Encryption" ,+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","151",+
                                 "@DlgText1","SQL Server can enable encryption on Multi Protocol connections.",+
                                 "@DlgText2","To enable encryption, check the box above, "+
                                              "to disable encryption uncheck the box.",+
                                 "@Chk1","&Enable Multi Protocol Encryption",+
                                 "@Continue","C&ontinue",+
                                 "@Help","&Help",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit"}

[GetNetAddressDlgENG]
        !Template       =       "DLG_SQLLONGEDIT"
        !NoNameText     =       NoNetENG
        !PermitNullName =       "NO"
        !CreatePathPrompt=      "NO"
        !AutoPopoff     =       "YES"
        !Text1          =       "The Setup program will enter the following network "+
                                "address associated with the "$(!UserDefinedName)" Net-Library in the Windows NT Registry:"
        !Text2          =       "To enter a different network address, "+
                                "use the BACKSPACE key to delete "+
                                "characters, and then type the network address "+
                                "you want the Setup program to enter in the Windows NT Registry."
        !EditIn         =       $(!NetAddress)
        !EditLabel      =       "&Network Address:"
        !HelpID         =       "123"
        !Ex             =       "E&xit"
        !SQLDLGPath     =       $(!UserDefinedName)

[GetLangInfoDlgENG]
        DlgTemplate     =       "DLG_DUALEDIT"
        !SQLDlgNames    =       {"@Caption","Select Language",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","124",+
                                 "@DlgText1","To install a language, specify the "+
                                 "official language name and the SQL Server SA password. ",+
                                 "@DlgText2","To change the language name or the SA password, "+
                                 "use the BACKSPACE key to delete characters, and "+
                                 "then type the information you want the Setup program to use.",+
                                 "@EditLabel1","Language &Name:",+
                                 "@EDITLEN1","30",+
                                 "@EditLabel2","SA &Password:",+
                                 "@EDITLEN2","30",+
                                 "@Chk1","&Default Language",+
                                 "@Continue","C&ontinue",+
                                 "@Exit","E&xit",+
                                 "@Back","&Back",+
                                 "@Help","&Help"}

[ServerOptsDlgENG]
        DlgTemplate     =       "DLG_SERVEROPTIONS"
        !SQLDlgNames    =       {"@Caption","Select Server Options",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","125",+
                                 "@DlgText1","Startup",+
                                 "@DlgText2","&Root Directory:",+
                                 "@DlgText3","Master &Database Path:",+
                                 "@DlgText4","Errorlo&g Path:",+
                                 "@Chk1","&Auto Start Server At Boot Time",+
                                 "@Chk2","Auto Start Executive At Boot Ti&me",+
                                 "@Chk7","A&uto Start Mail Client",+
                                 "@Chk4","&Windows NT Event Logging",+
                                 "@Chk5","S&QL PerfMon Integration",+
                                 "@Radio1","D&irect Response Mode",+
                                 "@Radio2","&On Demand Mode",+
                                 "@Chk8","xp_cmdsh&ell - Impersonates Client",+
                                 "@Chk9","Enable SNMP support",+
                                 "@EDITLEN1","256",+
                                 "@EDITLEN2","256",+
                                 "@EDITLEN3","256",+
                                 "@Connect","Co&nnect",+
                                 "@Continue","&Change Options",+
                                 "@Exit","E&xit",+
                                 "@Params","&Parameters",+
                                 "@TapeSup","&Tape Support",+
                                 "@MailLog","Mail &Login", +
                                 "@Back","&Back",+
                                 "@Help","&Help"}

[RemoteDlgENG]
        DlgTemplate     =       "DLG_REMOTE"
        !SQLDlgNames    =       {"@Caption","Remote Setup",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","126",+
                                 "@DlgText1","Setup permits operations to be performed on remote computers. To perform a remote setup, you must specify a computer name "+
                                             "and select the logical drive letters that setup requires.",+
                                 "@DlgText2","The Windows NT and MASTER installation drives default initially to the SQL installation drive.",+
                                 "@Check1","&Remote Installation",+
                                 "@Radio1","&SQL Installation Drive",+
                                 "@Radio2","Windows N&T Installation Drive",+
                                 "@Radio3","&Master Database Installation Drive",+
                                 "@DlgText3","Remote Server &Name:",+
                                 "@DlgText4","Remote Logical &Drive:",+
                                 "@DEFBTNRADIO","2",+
                                 "@EDITIN1",$(!Remote),+
                                 "@EDITLEN1","30",+
                                 "@Continue","&OK",+
                                 "@Cancel",$(!ExitButton),+
                                 "@Help","&Help"}

[TapeTimeDlgENG]
        DlgTemplate     =       "DLG_TAPETIME"
        !SQLDlgNames    =       {"@Caption","Tape Support",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","128",+
                                 "@DlgText1","SQL Server can be configured to wait a specified amount of "+
                                             "time while trying to read a tape that has not been loaded in "+
                                             "the drive. Select the appropriate tape timeout mode.",+
                                 "@DlgText2","minutes",+
                                 "@Radio1","&Wait Indefinitely",+
                                 "@Radio2","T&ry Once and Quit",+
                                 "@Radio3","Try &for ",+
                                 "@DEFBTNRADIO",$(!DefRadio),+
                                 "@EDITIN1",$(!TapeTO),+
                                 "@EDITLEN1","5",+
                                 "@EDITRESTRICT1","NUMBERS",+
                                 "@Continue","&OK",+
                                 "@Cancel","&Cancel",+
                                 "@Help","&Help"}

[SecurityDlgENG]
        DlgTemplate     =       "DLG_SECURITY"
        !SQLDlgNames    =       {"@Caption","Set Security Options",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","129",+
                                 "@DlgText1","Login Security Mode",+
                                 "@DlgText2","Default &Login:",+
                                 "@DlgText3","Default &Domain:",+
                                 "@DlgText4","Audit Level",+
                                 "@DlgText5","Mappings",+
                                 "@Radio1","&Standard",+
                                 "@Radio2","Windows NT &Integrated",+
                                 "@Radio3","&Mixed",+
                                 "@Check1","Su&ccessful Logins",+
                                 "@Check2","&Failed Logins",+
                                 "@Check3","Set Hostname to &User Name",+
                                 "@Map1","Map _:",+
                                 "@Map2","Map #:",+
                                 "@Map3","Map $:",+
                                 "@DEFBTNRADIO",$(!DefRadio),+
                                 "@CALLCOMBOLEN1","1",+
                                 "@CALLCOMBOLEN2","1",+
                                 "@CALLCOMBOLEN3","1",+
                                 "@Continue","&OK",+
                                 "@Back","&Back",+
                                 "@Cancel","E&xit",+
                                 "@Help","&Help"}

[UserAccountDlgENG]
        DlgTemplate     =       "DLG_USERACCT"
        !SQLDlgNames    =       {"@Caption","SQL Executive Log On Account",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","149",+
                                 "@RadioText1","&Install the SQL Executive service to log on to Windows NT as:",+
                                 "@RadioText2","Install to log on as Local &System account.",+
                                 "@Edit1Label","&Account: ",+
                                 "@Edit2Label","&Password:",+
                                 "@Edit3Label","&Confirm Pwd:",+
                                 "@EDITIN1","",+
                                 "@EDITLEN1","30",+
                                 "@EDITIN2","",+
                                 "@EDITLEN2","30",+
                                 "@EDITIN3","",+
                                 "@EDITLEN3","30",+
                                 "@Continue","C&ontinue",+
                                 "@Back","&Back",+
                                 "@Exit","E&xit",+
                                 "@Help","&Help"}

[VerifyAcctDlgENG]
        DlgTemplate      =      "DLG_VERIFY"
        !SQLDlgNames     =      { "@Caption","Verify Local Account",+
                                  "@DlgText1","Please wait while Setup verifies your"+
                                              " Microsoft Windows NT Local Administrator Account." }

[SQLBooksOnlineDlgENG]
       DlgTemplate      =       "DLG_BOOKS"
       !SQLDlgNames     =       { "@Caption","SQL Server Books Online",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","138",+
                                  "@DlgText1","Select a SQL Server Books Online installation option:",+
                                  "@DlgText2","SQL Server Books Online includes Release Notes and online "+
                                              "versions of selected SQL Server print documents.",+

                                  "@DlgText3","Installing to run from your hard disk requires about 15 MB "+
                                              "of available space. Installing to run from CD installs fewer "+
                                              "files and requires about 1 MB of available hard disk space.",+
                                  "@RadioText1","Install on Hard &Disk",+
                                  "@RadioText2","Install to Run from &CD",+
                                  "@RadioText3","Do ¬ Install",+
                                  "@Continue","C&ontinue",+
                                  "@Back","&Back",+
                                  "@Exit","E&xit",+
                                  "@Help","&Help"}
[CheckUpgradeWarningENG]
        !DlgTemplate    =       "DLG_ONEBUT"
        !SQLDlgNames    =       {"@Caption","SQL Server Upgrade Check",+
                                 "@DlgText1",$(!MsgText)$(!LF), +
                                 "@DlgText2",$(!AddlText),+
                                 "@DlgText3","To proceed with the upgrade, choose Resume.",+
                                 "@Continue","&Resume"}

[LicenseWorkStaDlgENG]
        !DlgTemplate    =       "DLG_TWOBUTSONETEXT"
        !SQLDlgNames    =       { "@Caption","Licensing",+
                                  "@DlgText1","License Mode",+
                                  "@DlgText2","This SQL Workstation is licensed for a single user and allows a"+
                                              " maximum of 15 simultaneous database connections.",+
                                  "@Continue","C&ontinue",+
                                  "@Exit","E&xit"}

[InvalidMachineNameENG]
        !DlgTemplate    =       "DLG_THREEBUTSNOBACK"
        !SQLDlgNames    =       {"@Caption","WARNING: Invalid Machine Name",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","155",+
                                 "@DlgText1","The Server name is not a valid SQL Server name and can cause problems in multi-server, replication and SQL Enterprise Manager operations.",+
                                 "@DlgText2","Press Resume to continue the installation. Use sp_addserver to correct the problem after Setup is completed.",+
                                 "@DlgText3","Press Exit to cancel installation.",+
                                 "@Continue","&Resume",+
                                 "@Exit","E&xit",+
                                 "@Help","&Help"}

[CantUpgradeBetaDlgENG]
        !DlgTemplate    =       "DLG_ONEBUT"
        !SQLDlgNames    =       {"@Caption","Cannot upgrade Beta",+
                                 "@DlgText1","Setup has detected an early beta version of SQL Server 6.0.", +
                                 "@DlgText2","This beta version cannot be upgraded to the released version.",+
                                 "@DlgText3","Please consult the release notes for more information.",+
                                 "@Continue","E&xit"}


[UpgradeOverSMSENG]
        !DlgTemplate    =       "DLG_TWOBUTS"
        !SQLDlgNames    =       {"@Caption","SMS - SQL Server conflict",+
                                 "@DlgText1","Setup has detected SMS version 1.0 is installed on this system.", +
                                 "@DlgText2","SMS 1.0 will not run correctly with this version of SQL Server.",+
                                 "@DlgText3","If you wish to proceed with the installation, choose Resume.",+
                                 "@Continue","&Resume",+
                                 "@Exit","E&xit"}


[SelectClientInstallDlgENG]
        !DlgTemplate    =       "DLG_SELECTCLIENT"
        !SQLDlgNames    =       {"@Caption","Install/Remove Client Utilities",+
                                 "@HELPFILE",$(!HelpSQLNTSetup),+
                                 "@HELPID","156",+
                                 "@DlgText1","Choose one of the following installation options:", +
                                 "@DlgText2","When you are ready to proceed with the installation choose "+
                                             "Continue.  To cancel the installation choose Exit.",+
                                 "@RadioText1","&Install Client Utilities",+
                                 "@RadioText2","&Remove Client Utilities and all files from "$(!DefSQLPath),+
                                 "@Continue","C&ontinue",+
                                 "@Exit","E&xit",+
                                 "@Help","&Help"}


[RemoteExitENG]
        !ExitButton     =       "E&xit"

[RemoteCancelENG]
        !ExitButton     =       "&Cancel"


[YesNoDlgENG]
        DlgTemplate     =       "SetupMessage"
        DlgType         =       "MessageBox"
        STF_MB_TITLE    =       $(!Setup_Title)
        STF_MB_TEXT     =       $(!YesNoQ)
        STF_MB_TYPE     =       3
        STF_MB_ICON     =       4
        STF_MB_DEF      =       1

[InfoMessageENG]
        DlgTemplate     =       "SetupMessage"
        DlgType         =       "MessageBox"
        STF_MB_TITLE    =       $(!Setup_Title)
        STF_MB_TEXT     =       $(!AddlText)
        STF_MB_TYPE     =       1
        STF_MB_ICON     =       2
        STF_MB_DEF      =       1

[ExitWarningDlgENG]
        DlgType         =       "MessageBox"
        STF_MB_TITLE    =       "Exit SQL Server Setup"
        STF_MB_TEXT     =       "Are you sure you want to exit SQL Server Setup?"
        STF_MB_TYPE     =       3
        STF_MB_ICON     =       5
        STF_MB_DEF      =       2

[InstallingDlgENG]
        DlgTemplate     =       "DLG_BILLBOARD"
        DlgType         =       "Billboard"
        !SQLDlgNames    =       {"@BillyBoy","Setup is now creating your master database device. "$(!LF)$(!LF)$(!PleaseWait)}

[MailManDlgENG]
        DlgTemplate     =       "DLG_MAILMAIN"
        DlgType         =       "Billboard"
        !SQLDlgNames    =       {"MAILPEOPLE","",+
                                 "@Bill1","Now is a great time to fill out your registration card. "+
                                          "When you send it in, Microsoft will ...",+
                                 "@Bill2","- Inform you of product updates.",+
                                 "@Bill3","- Offer you customer support.",+
                                 "@Bill4","- Provide you with information about related Microsoft products."}

[DLG_BillboardSearchRename]
        DlgTemplate     =       "DLG_BILLBOARD"
        DlgType         =       "Billboard"
        !SQLDlgNames    =       {"@BillyBoy","Setup is searching for existing SQL Server DLLs "+
                                             "in your path, and will rename them if any DLLs are "+
                                             "found."$(!LF)$(!LF)$(!PleaseWait)}

[InstLangingDlgENG]
        DlgTemplate     =       "DLG_BILLBOARD"
        DlgType         =       "Billboard"
        !SQLDlgNames    =       {"@BillyBoy","Setup is now installing your chosen language options."$(!LF)$(!LF)$(!PleaseWait)}

[ProgressCopyVars]
        ProCaption      =       "File copy in progress"
        ProCancel       =       "&Cancel"
        ProCancelMsg    =       "Setup cannot run correctly until this operation is"$(!LF)+
                                "complete.  Are you sure you want to cancel?"
        ProCancelCap    =       "SQL Server for "$(!WindowsBase)" Setup Warning"
        ProText1        =       "Copying "
        ProText2        =       "         to "

[BillboardRunningNConnSQLENG]
        !BillName       =       "Setup is now starting SQL Server and verifying its state."$(!LF)$(!LF)$(!PleaseWait)

[BillboardCharsetENG]
        !BillName       =       "Setup is now installing your chosen character set and sort order."$(!LF)$(!LF)$(!PleaseWait)

[BillboardIndexingENG]
        !BillName       =       "SQL Server is now re-indexing its system tables."$(!LF)$(!LF)$(!PleaseWait)

[BillboardInstScriptsENG]
        !BillName       =       "Setup is now installing the initial SQL Server configuration."$(!LF)$(!LF)$(!PleaseWait)

[BillboardSCMENG]
        !BillName       =       "Setup is now updating the Service Control Manager."$(!LF)$(!LF)$(!PleaseWait)

[BillboardUpgradingENG]
        !BillName       =       "Setup is now upgrading SQL Server."$(!LF)$(!LF)$(!PleaseWait)

[BillboardOleENG]
        !BillName       =       "SQL Server is now updating the OLE registration database."$(!LF)$(!LF)$(!PleaseWait)

[BillboardODBCENG]
        !BillName       =       "SQL Server is now installing ODBC SQL Server driver."$(!LF)$(!LF)$(!PleaseWait)

[STR_BillboardPrepUpgrade]
        !BillName       =       "Setup is now preparing to upgrade SQL Server."$(!LF)$(!LF)$(!PleaseWait)

[BillboardRemoveOldENG]
        !BillName       =       "Setup is now removing obsolete SQL Server 4.2x files."$(!LF)$(!LF)$(!PleaseWait)

[InsufficientPriv]
        !AddlText       =       "You have insufficient privileges to perform these operations."

[STR_InferiorOS]
        !AddlText       =       $(!Setup_Title)" requires Microsoft Windows NT Version 3.51 or later."

[STR_InvalidSystemAdmin]
        !AddlText       =       "Setup does not have access to the SQL Server Registry key. You must be logged in to Windows NT as a valid System Administrator of SQL Server in order to access this key. "+
                                $(!LF)$(!LF)"This permission defaults to the local Administrators group and can be changed using SQL Security Manager."

[InsufficientMemENG]
        !AddlText       =       "This computer has insufficient memory to run SQL Server for Windows NT. You cannot proceed with the installation."

[ErrorUpdatingRegistryENG]
        !AddlText       =       "An error occurred while updating the "$(!WindowsBase)" Registry."

[FileCouldNotBeCopiedENG]
        !AddlText       =       "The files could not be copied."

[FileDoesntExistENG]
        !AddlText       =       "The file you specified does not exist."

[DBNoPathENG]
        !AddlText       =       "You must specify a path."

[NoSizeENG]
        !AddlText       =       "You must enter a database size."

[ServiceErrorENG]
        !AddlText       =       "An error occurred while accessing the Service Control Manager."

[DBSizeInvalidENG]
        !AddlText       =       "The value you entered for the database size is too small or is not a valid number."

[MasterMustExistENG]
        !AddlText       =       "The master database file must be present for an upgrade."

[STR_DuplicateMap]
        !AddlText       =       "All map values must be unique."

[DBNoNameNOrgENG]
        !AddlText       =       "You must enter a name and an organization."

[DBNoNameENG]
        !AddlText       =       "You must enter a name."

[DBNoDatENG]
        !AddlText       =       "You must specify a .DAT file."

[NoNetsENG]
        !AddlText       =       "You have not selected any networks."

[NoUtilsENG]
        !AddlText       =       "You have not selected any utilities."

[NoSQLServerENG]
        !AddlText       =       "The SQL Server could not be found. Please check the error/event log to ensure that the server is running."

[NoServerNameENG]
        !AddlText       =       "You must enter a SQL Server name."

[NoStreetENG]
        !AddlText       =       "You must enter a StreetTalk name."

[NoPipeENG]
        !AddlText       =       "You must enter a full named pipe name."

[NoServiceENG]
        !AddlText       =       "You must enter a Novell Bindery service name."

[NoADSPENG]
        !AddlText       =       "You must enter a Apple Talk object name."

[NoDECNetENG]
        !AddlText       =       "You must enter a DECNet Object ID."


[NoNetENG]
        !AddlText       =       "You must enter a network address."

[NoLangInfoENG]
        !AddlText       =       "You must enter the language information requested."

[CannotAllocUnusedDriveENG]
        !AddlText       =       "Setup cannot allocate a free logical drive."

[InsertDiskENG]
        !AddlText       =       "Insert the disk in drive "$(!TmpDrive)

[STR_InsufficientDiskSpace]
        !AddlText       =       "There is insufficient disk space on this drive."

[RegistryIntegrityENG]
        !AddlText       =       "The SQL Server Registry key integrity is suspect."

[ErrorReadRegistryENG]
        !AddlText       =       "An error occurred while reading the "$(!WindowsBase)" Registry."

[STR_CompletionNetworks]
        !MsgText        =       "The SQL Server ("$(!ProductVersion)") Net-Libraries are now updated."$(!LF)$(!LF)+
                                "The changes will become effective the next time SQL Server is started."

[CompletionNewCharSortENG]
        !MsgText        =       "The SQL Server ("$(!ProductVersion)") character sets and sort orders are now updated."

[CompletionReBuildENG]
        !MsgText        =       "SQL Server ("$(!ProductVersion)") is now rebuilt."

[CompletionNukedENG]
        !MsgText        =       "SQL Server ("$(!ProductVersion)") has been removed from this computer."$(!LF)$(!LF)"The files used by SETUP.EXE must be removed manually."

[CompletionClientNukedENG]
        !MsgText        =       "SQL Server Client Utilities ("$(!ProductVersion)") have been removed from this computer."$(!LF)$(!LF)

[CompletionNukedRemoteENG]
        !MsgText        =       "SQL Server ("$(!ProductVersion)") has been removed from \\"$(!ComputerName)$(!LF)$(!LF)"."

[CompletionLangInstENG]
        !MsgText        =       "The new language has been successfully added."

[CompletionOptionsENG]
        !MsgText        =       "The SQL Server options have been successfully updated."

[STR_CompletionSecurity]
        !MsgText        =       "The SQL Server security options have been successfully updated."$(!LF)$(!LF)+
                                "The changes will become effective the next time SQL Server is started."

[FailedUserSetupQuitENG]
        !MsgText        =       "Setup has been terminated."$(!LF)$(!LF)

[FailedUserQuitENG]
        !AddlText       =       "Setup has been terminated."$(!LF)$(!LF)

[UserQuitMsgENG]
        !AddlText       =       "Setup has been terminated."$(!LF)$(!LF)

[CannotUpgradeENG]
        !MsgText        =       "SQL Server ("$(!ProductVersion)") cannot be upgraded because: "$(!LF)$(!LF)

[ChkUpgRepLocENG]
        !Addl95Text       =       "A detailed review of upgrade problems may be found in: "

[CheckUpgradeDlgENG]
        !MsgText        =       "SQL Server Setup detected the following non-critical issues: "$(!LF)$(!LF)

[SQLExecErrorENG]
        !AddlText       =       "An error occurred while executing a SQL statement:"

[UpgradeErrorENG]
        !MsgText        =       "The SQL Server upgrade could not be successfully completed."$(!LF)$(!LF)

[DupKeyErrorENG]
        !MsgText        =       "Setup could not copy the previous installation's SQL Server key."$(!LF)$(!LF)

[InstallErrorENG]
        !MsgText        =       "The SQL Server installation could not be successfully completed."$(!LF)$(!LF)

[NukeErrorENG]
        !MsgText        =       "SQL Server could not be successfully removed."$(!LF)$(!LF)

[SetSecErrorENG]
        !MsgText        =       "The SQL Server security options could not be successfully set."$(!LF)$(!LF)

[SCMErrorENG]
        !AddlText       =       "A Service Control Manager error occurred."

[SetupInitENG]
        !MsgText        =       "Setup initialization could not be successfully completed."$(!LF)$(!LF)

[NetInstallErrorENG]
        !MsgText        =       "The network could not be successfully installed."$(!LF)$(!LF)

[UtilInstallErrorENG]
        !MsgText        =       "The SQL Server utilities could not be successfully installed."$(!LF)$(!LF)

[LangErrorENG]
        !MsgText        =       "The language could not be successfully installed."$(!LF)$(!LF)

[ServerOptsErrorENG]
        !MsgText        =       "The server options could not be updated successfully."$(!LF)$(!LF)

[RebuildErrorENG]
        !MsgText        =       "The master database could not be successfully rebuilt."$(!LF)$(!LF)

[NetStartErrorENG]
        !AddlText       =       " The service could not be started. Please check the error/event log to determine the cause."

[NetStopErrorENG]
        !AddlText       =       " The service could not be stopped."

[NetworkDriveConnectErrorENG]
        !AddlText       =       "Setup could not connect to the remote "

[NetworkDriveConnectSQLInstENG]
        !AddlText       =       "SQL Server installation share - "

[NetworkDriveConnectNTInstENG]
        !AddlText       =       "Windows NT installation share - "

[NetworkDriveConnectDBInstENG]
        !AddlText       =       "master database share - "

[STR_Plenty]
        !AddlText       =       "Sufficient space"

[ProcessExecErrorENG]
        !AddlText       =       "could not be executed. Please check the relevant .OUT file."$(!LF)

[ProcessRetErrorENG]
        !AddlText       =       "An error was reported: "

[CannotCreateFileENG]
        !AddlText       =       "The CONFIG file could not be created."

[DiskFullENG]
        !AddlText       =       "There is insufficient disk space for the CONFIG file."

[DirCreateErrorENG]
        !AddlText       =       "The following directory could not be created: "

[SQLBadResultsENG]
        !AddlText       =       "Install verification failed because at least one SQL script did not install correctly. Please check the script .OUT files. The verification check failed with the following item not being found: "

[NoServerNameENG]
        !AddlText       =       "You must specify a Windows NT-based SQL Server."

[NoServerPathENG]
        !AddlText       =       "You must specify a SQL Server path."

[NoMasterPathENG]
        !AddlText       =       "You must specify a master database path."

[NoTCPIPSocketENG]
        !AddlText       =       "You must specify a TCP/IP socket number."

[MasterExistsENG]
        !YesNoQ         =       "The master database already exists in this path."$(!LF)"Are you sure you want to overwrite it?"

[TCPIPNotRunningENG]
        !AddlText       =       "The TCP/IP service is not currently running."$(!LF)"You cannot install this Net-Library if the TCP/IP service is not installed and started."

[STR_NWLinkNotRunning]
        !YesNoQ         =       "The NWLink service is not currently running."$(!LF)"Do you still want to select this Net-Library?"

[NoRemoteSpecENG]
        !AddlText       =       "You must specify a remote computer name."

[NoLoginToSQLServerENG]
        !AddlText       =       "Setup could not connect to the SQL Server."

[InstalledTagENG]
        !RebootType     =       "SQL Server ("$(!ProductVersion)") is now installed."

[UpgradedTagENG]
        !RebootType     =       "SQL Server ("$(!ProductVersion)") is now upgraded."

[UtilInstallTagENG]
        !RebootType     =       "SQL Server ("$(!ProductVersion)") utilities are now installed."

[STR_DLLRenameError]
        !AddlText       =       "Setup cannot rename "$(!OneOffFile)". Ensure that you are not running any other applications that use this file, and then restart setup."

[STR_SpacedComputerName]
        !AddlText       =       "The computer name "$(!ComputerName)" contains at least one whitespace character. The SQL Server computer name cannot contain whitespace characters, therefore you will need use a name without whitespace."

[STR_NonCriticalScriptFail]
        !AddlText       =       $(!LF)"At least one non-critical SQL script failed to install correctly. Please check the Install .OUT files."

[PasswordsDontMatchENG]
        !AddlText       =       $(!LF)"The password was not correctly confirmed. Please be sure that the confirmation password exactly matches the password."

[DeleteEventLogENG]
        !YesNoQ         =       "In order to disable event logging, the Application event log must be cleared with no backup created. If SQL Server is running it will be stopped and restarted. Do you wish to continue?"

[NoNetChangeIntSec]
        !AddlText       =       "You cannot change the network support options because your login security mode is set to 'Windows NT Integrated' in the Set Security Options dialog."$(!LF)$(!LF)+
         "If you need to support protocols other than named pipes and/or Multi-protocol, you must first change the security mode to 'Standard' or 'Mixed'."

[NoNetChangeDevVer]
        !AddlText       =       "You cannot change the network support options because you are using the SQL Server Desktop System, which only supports local named pipes connections."

[SetUserIDErrorENG]
        !AddlText       =       "The entered Login ID/Password failed verification. Please re-check your Login ID and Password."$(!LF)$(!LF)

[ODBCInstallFailENG]
        !AddlText       =       "ODBC could not be installed: "$(!ODBCError)", please install it by running the setup utility in the ODBC directory on the SQL Server CD."$(!LF)$(!LF)

[MustHavePipesENG]
        !AddlText       =       "The Named Pipes protocol cannot be turned off in a new install."$(LF)$(LF)

[TooFewSeatsENG]
        !AddlText       =       "The minimum number of users per Microsoft SQL Server is 1, please increase that number."$(LF)$(LF)

[OldSQLBeta3ENG]
        !MsgText        =       "Setup has detected an install of the March 1995 SQL Server Beta. "
        !AddlText       =       "To upgrade or perform a new install, follow the Release Note instructions provided with this release."$(LF)


[SMSConflictENG]
        !AddlText        =       "Setup has detected a version 1.0 of SMS, which will not operate with SQL Server ("$(!ProductVersion)")."

[WindowsNTENG]
        !WindowsBase    =       "Windows NT"
        !SQLServerBase  =       "SQL Server"

[Windows95ENG]
        !WindowsBase    =       "Windows 95"
        !SQLServerBase  =       "SQL Server Client Utilities"

[ReadOnlyAutoexecENG]
        !AddlText       =       "Your AUTOEXEC.BAT file was read-only, please update the path statement to include "$(!SQLPath)"\"$(!Binaries)";"$(!SQLPath)"\"$(!DLLs)"."

[DontDeleteRootENG]
        !AddlText       =       "Setup cannot delete files/directories from the root of your drive "$(!DefSQLPath)"."

[CantGetDevNoENG]
    !MsgText    =    "Setup cannot determine the next available device number, replication device creation failed!"

[InternationalSetup]
        !Locale         =       ""
[SetupInstFlags]
       ODBCInstall = "YES"
       SQLBooksInst = "YES"
       RISCInst = "YES"
       PPCInst = "NO"

[LocaleFile]
        1, common.loc,SIZE=2700
        1, server.loc,SIZE=109000

[BaseInstallExes]
        1, setup.exe,SIZE=547000
        1, setup.inf,SIZE=470000
        1, sqlsetup.hlp,SIZE=200000
        1, sqlsetup.dll,SIZE=222000
        1, splash.dll,SIZE=270000
        1, sqlservr.exe, SIZE=3415000
        1, sqlexec.exe, SIZE=68200
        1, sqlalrtr.exe, SIZE=13000
        1, xfragent.exe, SIZE=25000
        1, charset.exe,  SIZE=135800
        1, langinst.exe, SIZE=116300
        1, sqlctrs.pmc,  SIZE=1164
        1, console.exe,  SIZE=72800
        1, helpsql.hlp, SIZE=6300
        1, sqlmgr.exe,   SIZE=94300
        1, chkupg.exe, SIZE=102000
        1, textcopy.exe, SIZE=226500
        1, odbcping.exe, SIZE=54000
        1, sqlmaint.exe, SIZE=100000

[DOSInstallExes]
        1, dbnmp3.dll,   SIZE=10944
        1, dbmsspx3.dll, SIZE=21744
        1, dbmsvin3.dll, SIZE=18620
        1, dbmssoc3.dll, SIZE=10832
        1, dbmsrpc3.dll, SIZE=23200
        1, dbnmpipe.exe, SIZE=10115
        1, dbmsspx.exe,  SIZE=18700
        1, dbmsvine.exe, SIZE=30600

[BaseInstallDLLs]
        1, opends60.dll, SIZE=136800
        1, ssnmpn60.dll, SIZE=17500
        1, xpsql60.dll,  SIZE=20000
        1, sqlper60.dll,  SIZE=31300
        1, ssmsso60.dll, SIZE=21600
        1, sqlevn60.dll, SIZE=54300
        1, sqltl32.dll,  SIZE=404000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, sqlctr60.dll,  SIZE=42000
        1, evntct60.dll, SIZE=4096
        1, xplog60.dll,  SIZE=54000
        1, ssmssp60.dll, SIZE=31400
        1, dbmsspxn.dll, SIZE=23100,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmssocn.dll, SIZE=15000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, sqlmap60.dll,  SIZE=64700
        1, sqlsvc32.dll, SIZE=51400
        1, sqlgui32.dll, SIZE=392000
        1, sqlqry32.dll, SIZE=105000
        1, starcmon.dll, SIZE=129000
;        1, sqlobj.dll,   SIZE=1109000
        1, sqewstat.dll,  SIZE=250000
        1, sqewexec.dll,  SIZE=250000
        1, sqewrepl.dll,  SIZE=250000
        1, sqewobj.dll,  SIZE=250000
        1, sqewtips.dll, SIZE=250000
        1, sqewsys.dll,  SIZE=250000
        1, sqewwiz.dll,  SIZE=250000
        1, sqewnt.dll, SIZE=250000
        1, xpstar.dll,   SIZE=50700
        1, sqlexec.dll, SIZE=7200
        1, sqlole32.dll,SIZE=1927000
        1, sqlole32.tlb,SIZE=203500
        1, sqlole.hlp,SIZE=938000
;        1, odsole32.hlp, SIZE=100000
        1, odsole32.dll, SIZE=100000
        1, odsole32.tlb, SIZE=10000
        1, dbmsadsn.dll, SIZE=21000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, ssmsad60.dll, SIZE=25700,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmsdecn.dll, SIZE=14000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, ssmsde60.dll, SIZE=21600,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmsrpcn.dll, SIZE=22600,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, ssmsrp60.dll, SIZE=28000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, sqlrepl.dll,  SIZE=87500
        1, cmdexec.dll,  SIZE=4192
        1, msvcrt40.dll, SIZE=500224,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1, mfc40.dll, SIZE=602112,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
;        1, sqlole.reg, SIZE=25200
        1, sqlsnmp.dll, !DECOMPRESS, SIZE=10000
        1, msdtc.reg, SIZE=4196
        1, printdmp.exe, SIZE=155000

[BaseInstallDLLDBGs]
        1, opends60.dbg,SIZE=1000000

[BaseInstallExeDBGs]
    1, sqlservr.dbg,SIZE=4000000


[MasterFiles]
        1, master.al@,SIZE=3561000,!DECOMPRESS
        1, master.da@,SIZE=5479100,!DECOMPRESS

[MasterAltFile]
        1, master.al@,SIZE=3561000,RENAME=master.dat

[MasterDefFile]
        1, master.da@,SIZE=5479100,RENAME=master.dat

[ClientDLLs]
        1, dbnmpntw.dll,SIZE=16500,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, ntwdblib.dll,SIZE=316600,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)

[ControlPanel]
        1, windbver.exe,SIZE=45200

[InstallExes]
        1, charset.exe, SIZE=135700

[InstallDLLs]
        1, opends60.dll,SIZE=136800
        1, ssnmpn60.dll,SIZE=17500
        1, sqlevn60.dll,SIZE=54300
        1, msvcrt40.dll, SIZE=500224,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1, xpsql60.dll,  SIZE=20000
        1, xpstar.dll,   SIZE=50700
        1, sqlsvc32.dll, SIZE=51400

[BaseInstall]
        1, dropall.sql, SIZE=24600
        1, upgrade1.sql,SIZE=35000
        1, checkobj.sql, SIZE=26000
        1, messages.sql,SIZE=126000
        1, u_tables.sql, SIZE=20000
        1, configur.sql,SIZE=20000
        1, procsyst.sql, SIZE=525000
        1, instrepl.sql,SIZE=205000
        1, unadmin.sql, SIZE=5593
        1, unobj.sql,SIZE=2241
        1, tempsp.sql,SIZE=746
        1, instpubs.sql, SIZE=41500
        1, instcat.sql,  SIZE=137600
        1, helpsql.sql,  SIZE=132000
        1, instlang.sql, SIZE=2551
        1, instsupl.sql, SIZE=4411
        1, instdist.sql, SIZE=91500
        1, sqlcommn.loc, SIZE=4314
        1, xpstar.sql, SIZE=5600
        1, sqlole60.sql, SIZE=70600
        1, sqlole42.sql, SIZE=49200
        1, instmsdb.sql, SIZE=126000
        1, servmsgs.sql, SIZE=67000
        1, admin60.sql, SIZE=127200
        1, object60.sql, SIZE=46100
        1, 5lakes.txt,   SIZE=6566
        1, algodata.txt, SIZE=1476
        1, binnet.txt,   SIZE=675
        1, gggg.txt,     SIZE=114
        1, lucerne.txt,  SIZE=544
        1, newmoon.txt,  SIZE=65546
        1, ramona.txt,   SIZE=131
        1, scootney.txt, SIZE=135
        1, 5lakes.bmp,   SIZE=6566
        1, algodata.bmp, SIZE=3018
        1, binnet.bmp,   SIZE=3502
        1, gggg.bmp,     SIZE=1750
        1, lucerne.bmp,  SIZE=3286
        1, newmoon.bmp,  SIZE=3466
        1, ramona.bmp,   SIZE=4410
        1, scootney.bmp, SIZE=5398
        1, pubimage.bat, SIZE=966
        1, pubtext.bat, SIZE=984
        1, readme.txt, SIZE=9200
        1, kb_msl.hlp, SIZE=29000
        1, WEB.SQL, !DECOMPRESS, SIZE=15926
        1, EARLY1.SQL, SIZE=1983

[Charset437]
        1, CP437BIN.437,SIZE=777
        1, DICTION.437,SIZE=8484
        1, NOACCENT.437,SIZE=8506
        1, NOCASE.437,SIZE=8350
        1, NOCASEPR.437,SIZE=9077

[Charset850]
        1, CP850BIN.850,SIZE=777
        1, DICTION.850,SIZE=8467
        1, NOACCENT.850,SIZE=8520
        1, NOCASE.850,SIZE=8438
        1, NOCASE34.850,SIZE=6080
        1, NOCASEPR.850,SIZE=9098
        1, ALTDICT.850,SIZE=8542
        1, ALTNOACC.850,SIZE=8471
        1, ALTNOCSP.850,SIZE=9348
        1, ALTNOCS.850,SIZE=9355
        1, SCANDICT.850,SIZE=8230
        1, SCANNOCP.850,SIZE=9133
        1, SCANNOCS.850,SIZE=9156

[CharsetISO]
        1, ISO_1BIN.ISO,SIZE=810
        1, DICTION.ISO,SIZE=8698
        1, NOACCENT.ISO,SIZE=8733
        1, NOCASE.ISO,SIZE=8625
        1, NOCASEPR.ISO,SIZE=9307
        1, DANONOCP.ISO,SIZE=8985
        1, ISLANOCP.ISO,SIZE=8943
        1, SVF1NOCP.ISO,SIZE=9090
        1, SVF2NOCP.ISO,SIZE=9091

[Charset1250]
        1, BINARY.250, !DECOMPRESS, SIZE=799
        1, DICTION.250, !DECOMPRESS, SIZE=7613
        1, NOCASE.250, !DECOMPRESS, SIZE=7606
        1, CSYDIC.250, !DECOMPRESS, SIZE=7659
        1, CSYNC.250, !DECOMPRESS, SIZE=7678
        1, HUNDIC.250, !DECOMPRESS, SIZE=7687
        1, HUNNC.250, !DECOMPRESS, SIZE=7706
        1, PLKDIC.250, !DECOMPRESS, SIZE=7789
        1, PLKNC.250, !DECOMPRESS, SIZE=7808
        1, ROMDIC.250, !DECOMPRESS, SIZE=7858
        1, ROMNC.250, !DECOMPRESS, SIZE=7877
        1, SHLDIC.250, !DECOMPRESS, SIZE=7676
        1, SHLNC.250, !DECOMPRESS, SIZE=7695
        1, SKYDIC.250, !DECOMPRESS, SIZE=7852
        1, SKYNC.250, !DECOMPRESS, SIZE=7870
        1, SLVDIC.250, !DECOMPRESS, SIZE=7864
        1, SLVNC.250, !DECOMPRESS, SIZE=7881

[Charset1251]
        1, BINARY.251, !DECOMPRESS, SIZE=799
        1, DICTION.251, !DECOMPRESS, SIZE=7613
        1, NOCASE.251, !DECOMPRESS, SIZE=7606
        1, UKRDIC.251, !DECOMPRESS, SIZE=8851
        1, UKRNC.251, !DECOMPRESS, SIZE=8870

[Charset1253]
        1, BINARY.253, !DECOMPRESS, SIZE=799
        1, DICTION.253, !DECOMPRESS, SIZE=7613
        1, NOCASE.253, !DECOMPRESS, SIZE=7606
        1, GRALTDCT.253, !DECOMPRESS, SIZE=10046
        1, GRMXTDCT.253, !DECOMPRESS, SIZE=11063
        1, GRNOACCE.253, !DECOMPRESS, SIZE=9952

[Charset1254]
        1, BINARY.254, !DECOMPRESS, SIZE=799
        1, DICTION.254, !DECOMPRESS, SIZE=7102
        1, NOCASE.254, !DECOMPRESS, SIZE=7098

[Charset1255]
        1, BINARY.255, !DECOMPRESS, SIZE=799
        1, DICTION.255, !DECOMPRESS, SIZE=8096
        1, NOCASE.255, !DECOMPRESS, SIZE=8259

[Charset1256]
        1, BINARY.256, !DECOMPRESS, SIZE=799
        1, DICTION.256, !DECOMPRESS, SIZE=7077
        1, NOCASE.256, !DECOMPRESS, SIZE=7755

[Charset1257]
        1, BINARY.257, !DECOMPRESS, SIZE=799
        1, DICTION.257, !DECOMPRESS, SIZE=7613
        1, NOCASE.257, !DECOMPRESS, SIZE=7606
        1, ETIDIC.257, !DECOMPRESS, SIZE=6969
        1, ETINC.257, !DECOMPRESS, SIZE=7011
        1, LTHDIC.257, !DECOMPRESS, SIZE=7010
        1, LTHNC.257, !DECOMPRESS, SIZE=7024
        1, LVIDIC.257, !DECOMPRESS, SIZE=7001
        1, LVINC.257, !DECOMPRESS, SIZE=7012

[Charset932]
        1, CP932BIN.932, !DECOMPRESS, SIZE=799
        1, CP932NLS.932, !DECOMPRESS, SIZE=7500

[Charset936]
        1, CP936BIN.936, !DECOMPRESS, SIZE=799
        1, CP936NLS.936, !DECOMPRESS, SIZE=7500

[Charset949]
        1, CP949BIN.949, !DECOMPRESS, SIZE=799
        1, CP949NLS.949, !DECOMPRESS, SIZE=7500

[Charset950]
        1, CP950BIN.950, !DECOMPRESS, SIZE=799
        1, CP950NLS.950, !DECOMPRESS, SIZE=7500

[Util1]
        1, BCP.exe, SIZE=110100

[Util2]
        1, isql.exe,    SIZE=126000
        1, isqlw.exe,   SIZE=117400
        1, isqlw.hlp,   SIZE=65408

[Util3]
        1, sqlew.exe, SIZE=525000

[Util3Help]
        1, sqlew.hlp, SIZE=290000

[Util3DLL]
        1, sqlqry32.dll, SIZE=104700
        1, starcmon.dll, SIZE=128500
;        1, sqlobj.dll,  SIZE=1109000
        1, sqewstat.dll, SIZE=250000
        1, sqewexec.dll, SIZE=250000
        1, sqewrepl.dll, SIZE=250000
        1, sqewobj.dll, SIZE=250000
        1, sqewtips.dll, SIZE=250000
        1, sqewsys.dll, SIZE=250000
        1, sqewwiz.dll, SIZE=250000
        1, sqewnt.dll, SIZE=250000
        1, xpstar.dll,  SIZE=50700
;        1, sqlole.reg, SIZE=4314

[Util3Samp]
        1, sqldmo.xls,SIZE=41000
        1, backup.frm,SIZE=6200
        1, cdinfo.frm,SIZE=3500
        1, cdinfo.frx,SIZE=100
        1, dbmdi.frm,SIZE=4000
        1, devmdi.frm,SIZE=3400
        1, dmodemo.frm,SIZE=24300
        1, dmodemo.frx,SIZE=1000
        1, dmodemo.mak,SIZE=1400
        1, fabout.frm,SIZE=3400
        1, fabout.frx,SIZE=1000
        1, fabout2.frm,SIZE=2900
        1, fabout2.frx,SIZE=1000
        1, fconnect.frm,SIZE=4300
        1, module1.bas,SIZE=250
        1, module2.bas,SIZE=150
        1, objmdi.frm,SIZE=4300
        1, sqlpdba.frm,SIZE=9900
        1, sqlpdba.frx,SIZE=3800
        1, sqlpdba.mak,SIZE=1600
        1, explore.bas,SIZE=19400
        1, explore.frm,SIZE=7200
        1, explore.mak,SIZE=400
        1, generic.frm,SIZE=400
        1, generic.mak,SIZE=400

[Util3Read]
        1, readme2.txt,RENAME=readme.txt,SIZE=600

[Util5]
        1, sqsecmgr.exe  SIZE=192300
        1, sqsecmgr.hlp, SIZE=60357

[Util6]
        1, READPIPE.exe  SIZE=66200
        1, makepipe.exe  SIZE=63500


[UtilDLLs]
        1, sqltl32.dll, SIZE=404000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, sqlgui32.dll, SIZE=392000
        1, sqlsvc32.dll, SIZE=51400
        1, sqlole32.dll,SIZE=1927000
        1, sqlole32.tlb,SIZE=203500
        1, dbmsspxn.dll, SIZE=23100,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmssocn.dll, SIZE=15000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmsadsn.dll, SIZE=21000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmsdecn.dll, SIZE=14000,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, dbmsrpcn.dll, SIZE=22600,CHECKVERSION=*($(!SetupFileVersion), 1)^*($(!SetupFileVersion),2)
        1, msvcrt40.dll, SIZE=500224,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1, mfc40.dll, SIZE=602112,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1, sqlole.hlp,SIZE=938000

[UtilHelp]
        1, helpsql.hlp, SIZE=6300

[ODBC1]
        1,12520437.cpx, SIZE=2151
        1,12520850.cpx, SIZE=2233
        1,_bootstp.exe, SIZE=4500
        1,_mssetup.ex_, SIZE=7600
        1,ctl3d32.dll, SIZE=39500
        1,dbnmpntw.dll, SIZE=16500
        1,drvssrvr.hlp, SIZE=116200
        1,ds16gt.dll, SIZE=5100
        1,ds32gt.dll, SIZE=5700
        1,mscpxl32.dll, SIZE=22100
        1, msvcrt40.dll, SIZE=500224,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
;        1, mfc40.dll, SIZE=602112,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1,remserve.inf, RENAME=odbc.inf,SIZE=3000
        1,odbc16gt.dll, SIZE=23500
        1,odbc32.dll, SIZE=95500
        1,odbc32gt.dll, SIZE=8300
        1,odbccp32.dll, SIZE=142500
        1,odbccr32.dll, SIZE=326200
        1,odbcint.dll,  SIZE=32300
        1,odbcinst.hlp, SIZE=17500
        1,odbcst32.exe, SIZE=92200
        1,setup.exe, SIZE=24700
        1,setup.lst, SIZE=400
        1,sqlsrv32.dll, SIZE=389800
        1,odbccp32.cpl, SIZE=8800
        1,odbcinst.cnt, SIZE=500

[ODBCRem]
        1,instodbc.dll,SIZE=7168

[ODBCInstalled]
        1,12520437.cpx, SIZE=2151
        1,12520850.cpx, SIZE=2233
        1,drvssrvr.hlp, SIZE=116200
        1,ds16gt.dll, SIZE=5100
        1,ds32gt.dll, SIZE=5700
        1,mscpxl32.dll, SIZE=22100
        1, msvcrt40.dll, SIZE=500224,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
;        1, mfc40.dll, SIZE=602112,CHECKVERSION=*($(!MFCFileVersion), 1)^*($(!MFCFileVersion),2)
        1,odbc16gt.dll, SIZE=23500
        1,odbc32.dll, SIZE=95500
        1,odbc32gt.dll, SIZE=8300
        1,odbccp32.dll, SIZE=142500
        1,odbccr32.dll, SIZE=326200
        1,odbcint.dll, SIZE=32300
        1,odbcinst.hlp, SIZE=17500
        1,sqlsrv32.dll, SIZE=389800
        1,odbccp32.cpl, SIZE=8800
        1,odbcinst.cnt, SIZE=500

[SQLBooks1]
        1,HELP.HLP, SIZE=136849
        1,INFOVIEW.EXE, SIZE=1061500

[SQLBooks2]
        1,SQLBOOKS.ICO, SIZE=766

[SQLBooks3]
        1,SQLBOOKS.IDX, SIZE=185000
        1,SQLBOOKS.AUX, SIZE=424000
        1,SQLBOOKS.KWD, SIZE=8192
        1,SQLBOOKS.CAC, SIZE=4000000
        1,SQLBOOKS.MVB, SIZE=8700000


[NewRDR]
        1,rdr.sys,SIZE=300000

[NewRPC]
        1,rpclts3.dll,SIZE=55000
        1,rpclts6.dll,SIZE=55000

[ReplScript]
;        1,dbrepl.sql,SIZE=3900

[SNMP]
    1, MSSQL.MIB, !DECOMPRESS, SIZE=27029

[SQLTraceServer]
    1, SQLTRACE.DLL, !DECOMPRESS, SIZE=40000

[SQLTraceClient]
    1, SQLTRACE.EXE, !DECOMPRESS, SIZE=70000
    1, SQLTRACE.MAP, !DECOMPRESS, SIZE=10000
        1, SQLTRACE.HLP, !DECOMPRESS, SIZE=100000

[WebWriter]
    1, MSSQLWPW.EXE, !DECOMPRESS, SIZE=90112

[RegSvr32]
    1, REGSVR32.EXE,!DECOMPRESS,SIZE=24064