Oracle Siebel CRM

https://docs.oracle.com/cd/G46981_01/
Admin
Oracle Siebel CRM is a comprehensive customer relationship management platform offering applications...
Tokens:531,227
Snippets:8,509
Trust Score:9.1
Update:2 months ago
Show doc for...
Tokens:
Raw
### Global Variable Example Setup

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Declare-Global-Variable-Statement-ae1282239.html

Initial type definition for a global record.

```VB
(general)(declarations)
Option Explicit
Type acctrecord
   acctno As Integer
End Type
```

--------------------------------

### Example execution of new_compdef_sia on Windows

Source: https://docs.oracle.com/cd/G46981_01/books/SelfServAdm/c-Running-the-new-compdef-sia-Script-ux160614.html

A concrete example of the command syntax used on a Windows environment.

```batch
new_compdef_sia.bat siebgtwy1 myenterprise sadmin _password_ ENU
```

--------------------------------

### Retrieve File Length Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-File-Length-2-Method-ae1274279.html

Example demonstrating how to use FileLen to get the size of a specific file and handle potential errors.

```VB
Sub Button_Click
   Dim length as Long
   Dim userfile as String
   Dim msgtext
   On Error Resume Next
   msgtext = "Enter a file name:"
   userfile = "trace.txt"
   length = FileLen(userfile)
   If Err <> 0 then
      msgtext = "Error occurred. Rerun program."
   Else
      msgtext = "The length of " & userfile & " is: " & length
      End If
End Sub
```

--------------------------------

### Running Installation Tests

Source: https://docs.oracle.com/cd/G46981_01/books/SmartAnswer/c-Running-the-Command-Line-Administration-Tool-for-Initial-Setup-wj1009814.html

Verifies that the Siebel Smart Answer Server installation is functioning correctly.

```bash
python cmd_admin.py test
```

--------------------------------

### Example Txnutl Execution

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-the-Txnutl-Utility-to-Examine-Corrupt-Transactions-aag1015754.html

A standard command example demonstrating how to specify credentials, an input file, and an output file.

```shell
txnutl /u sadmin /p sadmin /r my_input.dx /w abc.dx
```

--------------------------------

### Example Txnutlr command execution

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-the-Txnutlr-Utility-to-Create-Statistics-aag1025125.html

A typical command example for running the Txnutlr utility with required parameters.

```text
txnutlr /f C:\siebel\ses\siebsrvr\docking /n regional /w y
```

--------------------------------

### Example Visutl Command Execution

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-the-Visutl-Utility-to-Determine-Visibility-for-a-User-aag1015916.html

A practical example of running the Visutl utility with specific credentials and server parameters.

```bash
visutl /u sadmin /p sadmin /a APPSVR01 /n JSMITH /v H
```

--------------------------------

### Valid DockConnString Examples

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Formatting-the-DockConnString-Parameter-act1114005.html

Examples of valid configurations for the DockConnString parameter.

```text
SIEBAPP1::9000:TLS
SIEBAPP1::9000
SIEBAPP1:TLS
SIEBAPP1
```

--------------------------------

### Change Default Drive Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Change-Drive-Method-ae1273714.html

An example demonstrating how to change the default drive to A: using the ChDrive method.

```vb
Sub Button_Click
   Dim newdrive as String
   newdrive = "A"
   If Left(CurDir,2) <> newdrive then
      ChDrive newdrive
   End If
End Sub
```

--------------------------------

### Service Parameter Example

Source: https://docs.oracle.com/cd/G46981_01/books/ToolsDevRef/c-Specifying-Business-Service-Parameters-af877615.html

A concrete example of setting a single parameter for a business service.

```text
DLLName=VirtualBusCompODBC.dll
```

--------------------------------

### Copying a File Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Copy-File-Method-ae1274042.html

An example demonstrating how to copy a file from one location to another and handle potential errors.

```VB
Sub Button_Click
   Dim oldfile, newfile
   On Error Resume Next
   oldfile = "c:\temp\trace.txt"
   newfile = "c:\temp\newtrace.txt"
   FileCopy oldfile,newfile
   If Err <> 0 then
      msgtext = "Error during copy. Rerun program."
      Else
      msgtext = "Copy successful."
   End If
End Sub
```

--------------------------------

### LoadInstance Output Property Set Example

Source: https://docs.oracle.com/cd/G46981_01/books/ProdAdm/c-Load-Instance-Method-aby1050608.html

Example of the property set returned by the LoadInstance method.

```xml
< IsConfig='Y' UnresolvedLinks='Y' CreateSession='Y' Links='Y'>

<Links 1-19D0X='10/19/2001' 1-1Z876='SADMIN' 1Z771='SADMIN'> 

</Links>"

      <UnresolvedLinks>"

         <UnresolvedLink DispName='Quote Name' Definition='<CfgVariableDef BUS_OBJ 
= ""Quote"" BUS_COMP = ""Quote"" FIELD_NAME = ""Name"" SEARCH_SPEC = """" 
SORT_SPEC = """" DEFAULT_VAL = """" EXECUTE = ""N""/>' Description='' DefValue='' 
Name='Quote Name' BusObj='Quote' Field='Name' ID='1-1Z875' BusComp='Quote'>

         </UnresolvedLink>

      </UnresolvedLinks>

   </>
```

--------------------------------

### Extract Month and Day Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Extract-Month-From-DateTime-Value-Method-ae1265477.html

Example demonstrating how to find the month and day for the next occurrence of a specific weekday.

```VB
Sub Button_Click
      Dim x As Integer, Today As Variant
      Dim msgtext
      Today = DateValue(Now)
      Let x = 0
      Do While Weekday(Today + x) <> 5
         x = x + 1
      Loop
      msgtext = "This Thursday is: " & Month(Today + x) &"/" _
         & Day(Today + x)
End Sub
```

--------------------------------

### Example Database Link Creation

Source: https://docs.oracle.com/cd/G46981_01/books/UniBankImp/c--Creating-the-Database-Link-ws1013303.html

A concrete example of creating a database link connecting to the AAADEV2 database.

```sql
CREATE DATABASE LINK AAADEV2 
		CONNECT TO FCDEV116
		IDENTIFIED BY FCDEV116
		USING '(DESCRIPTION =
    		(ADDRESS = (PROTOCOL = TCP) (HOST = 10.184.74.142)(PORT = 1521))
    		(CONNECT_DATA =
    		(SERVER = DEDICATED)
    		(SERVICE_NAME = AAADEV2 )
    		)
    		)'
```

--------------------------------

### Change Current Directory Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Current-Directory-Method-ae1273807.html

An example demonstrating how to check the current directory and change it to a new path using ChDir.

```VB
Sub Button_Click
Dim newdir as String
newdir = "c:\Windows"
If CurDir <> newdir then
ChDir newdir
End If
End Sub
```

--------------------------------

### Get ANSI String Method Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-ANSI-String-Method-ae1263228.html

Example demonstrating the conversion of an integer to a character within a loop.

```VB
Sub Button_Click
   Dim numb as Integer
   Dim msgtext as String
   Dim out as Integer
   out = 0
   Do Until out
   numb = 75
      If Chr$(numb)> = "A" AND Chr$(numb)< = "Z" _
         OR Chr$(numb)> = "a" AND Chr$(numb)< = "z" then
         msgtext = "The letter for the number " & numb  _
            " is: " & Chr$(numb)
         out = 1
      ElseIf numb = 0 then
         Exit Sub=
   Else
         msgtext = "Does not convert to a character; try again."
      End If
   Loop
End Sub
```

--------------------------------

### Example of running the Endtxnutl utility

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-the-Endtxnutl-Utility-to-Adopt-Orphaned-Records-aag1024014.html

A practical example of the command line syntax used to execute the utility with specific credentials and output path.

```text
endtxnutl /u sadmin /p pwd /a siebsrvr17 /o d:\endtxnutl.out
```

--------------------------------

### Get ANSI Integer Method Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-ANSI-Integer-Method-ae1179630.html

Example demonstrating how to retrieve the ANSI value of a character stored in a string variable.

```VB
Sub Button_Click
   Dim userchar As String
   Dim ascVal as Integer 
   userchar = "Z"
   ascVal = Asc(userchar)
End Sub
```

--------------------------------

### Set Variable Data Type Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Set-Variable-Data-Type-Statement-ae1261918.html

Example demonstrating the use of DefInt and DefSng to set default types for variables based on their starting letters.

```vb
DefInt c,s,t
DefSng a
Sub Button_Click
   Dim count
   Dim total
   Dim score
   Dim average
   Dim msgtext
   For count = 0 to 4
      score = 180
      total = total + score
   Next count
   average = total/count
   msgtext = "Your average is: " &average
End Sub
```

--------------------------------

### Create and Delete Directory Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Create-Directory-Method-ae1273759.html

Demonstrates creating a temporary directory in the C:\ drive and subsequently removing it, using error handling to manage potential conflicts.

```VB
Sub Button_Click
   Dim path as String
   On Error Resume Next
   path = CurDir(C)
   If path <> "C:\" then
      ChDir "C:\"
   End If
   MkDir "C:\TEMP01"
   If Err = 75 then
      Else
      RmDir "C:\TEMP01"
   End If
End Sub
```

--------------------------------

### Get Rounded Integer Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Rounded-Integer-Method-ae1207854.html

Demonstrates using the Fix method to extract the integer portion of a numeric variable.

```VB
Sub Button_Click
   Dim usernum
   Dim intvalue
   usernum = 77.54
   intvalue = Fix(usernum)
End Sub
```

--------------------------------

### Get Integer Method Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Integer-Method-ae1239989.html

Generates a string of random lowercase letters using the Int method to calculate ASCII values.

```VB
Sub Button_Click
   Dim x As Integer, y As Integer
   Dim str1 As String, letter As String
   Dim randomvalue As Double
   Dim upper As Integer, lower As Integer
   Dim msgtext, newline
   upper = Asc("z")
   lower = Asc("a")
   newline = Chr(10)
   Randomize
   For x = 1 to 26
      randomvalue = Int(((upper - (lower + 1)) * Rnd) + lower)
      letter = Chr(randomvalue)
      str1 = str1 & letter
   'Need to waste time here for fast processors
      For y = 1 to 1500
      Next y
   Next x
   msgtext = "The string is:" & newline
      msgtext = msgtext & str1
End Sub
```

--------------------------------

### Open Application Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Call-Application-Method-ae1256185.html

Demonstrates opening Microsoft Excel when a button is clicked.

```VB
Sub Button1_Click
   Dim i as long
   i = Shell("C:\Program Files\Microsoft
   Office\Office\EXCEL.EXE",1)
End Sub
```

--------------------------------

### Define Installation Directory

Source: https://docs.oracle.com/cd/G46981_01/books/Reports/c-Fixing-Class-Not-Found-Errors-aag293299.html

The directory path where the Siebel client is installed.

```text
C:\Program Files
```

--------------------------------

### GetAttribute Method Usage Examples

Source: https://docs.oracle.com/cd/G46981_01/books/ProdAdm/c-Get-Attribute-Method-abm1023482.html

Examples demonstrating how to retrieve attribute values using various path syntaxes, including product paths and integration IDs.

```text
Ptype =  GetAttribute("$.[Life Insurance]#1", "PlanType")

AttVal =  GetAttribute("$.[RootProd1]#1.[Rel1]#[ChildProd1]", "attr1");

AttVal = GetAttribute ("$Int.[12-4JEFK]", "Color");
```

--------------------------------

### Start Replication Agent from Server Manager

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-Replication-Agent-to-Control-Synchronization-acv1027692.html

Use this command format to initiate the Replication Agent with specific parameters.

```text
start task for comp repagent server server_name with parameter_1= value_1, parameter_2= value_2,...
```

--------------------------------

### TargetProp User Property Example

Source: https://docs.oracle.com/cd/G46981_01/books/ToolsDevRef/c-Saving-Query-Results-in-Target-Lists-af874386.html

An example configuration of the TargetProp user property.

```text
"Accounts", "List Mgmt List Id", "Accounts"
```

--------------------------------

### Run the Visutl Utility Command

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Using-the-Visutl-Utility-to-Determine-Visibility-for-a-User-aag1015916.html

The command to initiate the Visutl utility with required authentication and configuration parameters.

```bash
visutl /u user_name /p password /a application_server_name /c odbc_data_source /d siebel_table_owner /n node_name /l log_file_name /v n or l or m or h or r
```

--------------------------------

### Octal Representation Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Octal-Method-ae1284372.html

Example showing decimal 8 represented in octal notation.

```VB
&O10
```

--------------------------------

### Hex Method Usage Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Hexadecimal-Method-ae1192984.html

Example demonstrating the conversion of an integer to a hexadecimal string.

```vb
Sub Button_Click
   Dim usernum as Integer
   Dim hexvalue as String
   usernum = 23
   hexvalue = Hex(usernum)
End Sub
```

--------------------------------

### Change Directory Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Change-Directory-Method-ae1296631.html

Demonstrates changing the current directory to C:\Windows if it is not already set.

```VB
Sub Button_Click
   Dim newdir as String
   newdir = "c:\Windows"
   If CurDir  <>  newdir then
      ChDir newdir
   End If
End Sub
```

--------------------------------

### Named Argument Usage Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Format-That-You-Can-Use-to-Name-an-Argument-ad1028925.html

An example of calling a function using named arguments.

```VB
myfunction id:=1, action:="get", value:=0
```

--------------------------------

### Using LBound and UBound in VB

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Array-Lower-Boundary-Method-ae1272304.html

Example demonstrating the use of Option Base, LBound, and UBound to manage array sizing and iteration.

```VB
Option Base 1
```

```VB
Sub Button_Click
   Dim arrayvar() as Integer
   Dim count as Integer
   Dim answer as String
   Dim x, y as Integer
   Dim total
   total = 0
   x = 1
   count = 4
   ReDim arrayvar(count)
start:
   Do until x = count + 1
      arrayvar(x) = 98
      x = x + 1
   Loop
   x = LBound(arrayvar,1)
   count = UBound(arrayvar,1)
   For y = x to count
      total = total + arrayvar(y)
      Next y
End Sub
```

--------------------------------

### Example Iterator Usage

Source: https://docs.oracle.com/cd/G46981_01/books/ToolsDevRef/c-Iterate-Tag-ag156600.html

An example showing how to reference a specific iterator name, such as CurrentID.

```html
od-iterator=CurrentID
```

--------------------------------

### Display Variable Format Example

Source: https://docs.oracle.com/cd/G46981_01/books/Reports/c-Overview-for-Using-This-Book-gx322523.html

Example of a format description using italicized variables.

```text
Named Methodn:method_name
```

--------------------------------

### Workflow Start Step XML

Source: https://docs.oracle.com/cd/G46981_01/books/UniBankImp/c-FINCORP-BIB-Loan-Account-Upsert-FAF-Workflowxml-wz1008914.html

Defines the start step of the workflow and its initial branch.

```xml
<WF_STEP ALLOW_RETRY_FLAG="N" EDIT="Y" EVALUATE_ALL="Y" INACTIVE="N" 
LAYOUT="@0*0*3*0*0*0*1*r14*24 132 120 1809*FillBgClr8*167641088*ArrowEnd1*1" 
NAME="Start" TYPE="START" UPDATED="05/04/2011 10:34:56" UPDATED_BY="SADMIN" 
CREATED="05/04/2011 10:28:49" CREATED_BY="SADMIN">

        <WF_STEP_BRANCH EDIT="Y" EVENT_CANCEL_FLAG="N" EVENT_VISIBILITY="Enterprise" 
INACTIVE="N" LAYOUT="@0*0*7*0*0*0*9*LineWidth1*24*FrHS1*32*P16*72 
2164*NPts1*22*P06*72 1804*ToHS1*18*ArrowEnd1*4" NAME="Connector 5" TO_STEP_NAME="To 
XML Hierarchy" TYPE="DEFAULT" USER_EVENT_TIMEOUT="0" UPDATED="05/04/2011 10:34:56" 
UPDATED_BY="SADMIN" CREATED="05/04/2011 10:33:26" CREATED_BY="SADMIN">

          <WF_BRANCH_CONNECTOR FROM_STEP_NAME="Start" INACTIVE="N" 
LAYOUT="@0*0*7*0*0*0*9*LineWidth1*24*FrHS1*32*P16*72 2164*NPts1*22*P06*72 1804*ToHS1*18*ArrowEnd1*4" NAME="Connector 5" TO_STEP_NAME="To XML Hierarchy" 
UPDATED="05/04/2011 10:34:56" UPDATED_BY="SADMIN" CREATED="05/04/2011 10:34:56" 
CREATED_BY="SADMIN"></WF_BRANCH_CONNECTOR>

        </WF_STEP_BRANCH>

      </WF_STEP>
```

--------------------------------

### Go To Statement Usage Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Go-To-Statement-ae1280144.html

An example demonstrating the use of a label and Go To to restart a process if a date validation fails.

```Visual Basic
Sub Button_Click
   Dim str1 as String
   Dim nextweek
   Dim msgtext
start: 
   str1 = "5/20/2001"
   answer = IsDate(str1)
   If answer = -1 then
      str1 = CVDate(str1)
      nextweek = DateValue(str1) + 7
      msgtext = "One week from the date entered is "
   msgtext = msgtext & Format(nextweek,"dddddd")
   Else
      GoTo start
      End If
End Sub
```

--------------------------------

### Initialize Regional Database via Command Line

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-Initializing-the-Regional-Database-from-the-Command-Line-Interface-acv1021524.html

Execute the srvrinit utility from the SIEBEL_ROOT\bin directory to initialize the regional database.

```bash
srvrinit flags
```

--------------------------------

### Replace String Method Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Replace-String-Method-ae1263766.html

An example demonstrating how to replace the last name in a string with asterisks.

```VB
Sub Button_Click
   Dim username as String
   Dim position as Integer
   Dim count as Integer
   Dim uname as String
   Dim replacement as String
   username = "Chris Smith"
   uname = username
   replacement = "*"
   Do
      position = InStr(username," ")
   If position = 0 then
      Exit Do
      End If
      username = Mid(username,position + 1)
      count = count + position
   Loop
   For x = 1 to Len(username)
      count = count + 1
      Mid(uname,count) = replacement
      Next x
End Sub
```

--------------------------------

### Locate Configuration Directory

Source: https://docs.oracle.com/cd/G46981_01/books/SiebelORSImpGd/c-Adding-User-Credentials-to-the-Credential-Store-kj1132758.html

Example path to the Oracle Fusion Middleware configuration directory.

```text
home/eng-sm/unixuser/Oracle/Middleware_11gPS1/user_projects/domains/soa_domain/
config/fmwconfig
```

--------------------------------

### Open File with FreeFile

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Get-Free-File-Number-Method-ae1274460.html

Example demonstrating how to retrieve an available file number and use it to open a file safely.

```VB
Sub Button_Click
   Dim filenumber As Integer
   Dim filename As String
   filenumber = FreeFile
   filename = "d:\temp\trace.txt"
   On Error Resume Next
   Open filename For Input As filenumber
   If Err <> 0 then
      Exit Sub
   End If
   Close #filenumber
End Sub
```

--------------------------------

### Basic Subroutine Example

Source: https://docs.oracle.com/cd/G46981_01/books/VBLANG/c-Create-Subroutine-Method-ae1256280.html

A simple example of a subroutine definition triggered by a button click event.

```vb
Sub Button1_Click
End Sub
```

--------------------------------

### Implementing a named method

Source: https://docs.oracle.com/cd/G46981_01/books/RRAdm/c-How-This-Book-Indicates-Computer-Code-and-Variables-gx1089696.html

Shows a concrete example of a method definition using the established conventions.

```text
Named Method 2: WriteRecord
```
Tokens:
Raw