BB notes from Greg

Problem:

Excel BLP functionality was not working. Additionally, Bloomberg DDE Server popped up a message saying "Unable to initialize the Time Zone Adjustment feature: request timed out"

Steps to Resolve the Problem:

Turn off TaskMaster service (if appropriate)

End process on bbcomm.exe and blp.exe. Make sure that bbcomm does not relaunch, and it will if something on the machine is still trying to access BBG data (i.e. Excel, wl_Rates, DataExtracter, etc)

Delete file: c:\blp\api\monitor.rte

Run program: c:\blp\api\mkmonrte.exe with the following inputs: 2, [default], 208.134.161.30, [default], 208.134.161.62, [default]

Run program: c:\blp\api\bbcomm.exe; click Defaults; point Route file to the just created .rte file above (c:\blp\api\monitor.rte); point Log file to c:\blp\api\bbcomm.log; verify that both IP addresses when SOCKS5 is clicked are 0.0.0.0 (the port numbers may be immaterial, I don't know); click OK

At this point, its easiest to test by opening up an Excel spreadsheet that contains BLP functionality. You can also run c:\blp\api\apidemo.exe, choose Bloomberg > Monitor, enter a security and yellow key (i.e. "IBM eqty") and click Subscribe. Click through all the status boxes that pop up until the data fields populate. If they don't after about 20 clicks or so, then call the help desk.

If everything is running, be sure to restart TaskMaster service if appropriate.

The Correct PAM Price

When looking at our PAM system - the Internal price is the good one to use

Sub Routine from Pucci

Sub RetrieveData()
Dim fname As String
fname = GetFileName
If fname = "" Then Exit Sub

Workbooks.OpenText FileName:= _
fname, Origin:=437, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

Dim DataSheet As Worksheet
Dim MasterSheet As Worksheet

Set DataSheet = Workbooks("HANOSEKMTN.risk.consol.tab").Sheets("HANOSEKMTN.risk.consol")
Set MasterSheet = Workbooks("MTN_Key_Rate_DV01.xls").Sheets("DV01")

Application.DisplayAlerts = False 'Turn off before saving
DataSheet.Range("A1:F150").Copy
MasterSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("HANOSEKMTN.risk.consol.tab").Close
Application.DisplayAlerts = True ' Turn back on
End Sub