New Page 1

Below is the Code that you would write in the C programming language:
‘C’ Code in TSAPI
ATTPrivateData_t ATTData;
ATTEvent_t ATTEventBuffer;
InvokeIDType_t invokeIDType;
StreamType_t streamType;
Version_t apiVer;
AppName_t applicationName;
Level_t acsLevelReq;
unsigned short sendQSize;
unsigned short sendExtraBufs;
unsigned short recvQSize;
unsigned short recvExtraBufs;
unsigned short numEvents;
unsigned short eventBufferSize= sizeof(ATTEvent_t);
invokeIDType=LIB_GEN_ID;
invokeID=0;
streamType=ST_CSTA;
acsLevelReq=ACS_LEVEL1;
strcpy(applicationName,ApplicationName);
strcpy(apiVer,CSTA_API_VERSION);
sendQSize=sendExtraBufs=recvQSize=recvExtraBufs=15;
strcpy(LocalATTData.vendor, "VERSION");
LocalATTData.data[0] = PRIVATE_DATA_ENCODING;
sprintf(&LocalATTData.data[1], "%s#%s",
ATT_VENDOR_STRING, "2-6");
LocalATTData.length = strlen(&LocalATTData.data[1]) + 2;
rCode=acsOpenStream(&acsHandle,invokeIDType,invokeID,streamType,
(ServerID_t *)ServerName,(LoginID_t *)UserID,(Passwd_t*)Password,&applicationName,acsLevelReq,
&apiVer,sendQSize,sendExtraBufs,recvQSize,recvExtraBufs,(PrivateData_t*)&LocalATTData);

The Above Code can be reduced to the code below using ‘VB’ Code with SmartBuilder:
ACSHandle = frmSmartVDNMonitor.SBTSAPI1.OpenStream(MyServerName, "ctiuser", "phone", "SmartVDNMonitor")
If ACSHandle < 1 Then
WriteError ("Open Stream Failed to: " & MyServerName)
Exit Sub
End If
rCode = frmSmartVDNMonitor.SBTSAPI1.MonitorDevice(ACSHandle, gDeviceID(gCounter), &H0, &H0, &H0, &H0, 0)
If rCode = False Then
WriteError ("Error monitoring port#" & gDeviceID(gCounter))
End If
rCode = frmSmartVDNMonitor.SBTSAPI1.MakeCall(ACSHandle,gDeviceID,sNumberToDial, "", 0, sUUIData)
if rCode = False then
WriteError("MakeCall failed from " & gDeviceID & "to " & sNumberToDial)
End If