Hyperion Enterprise API

Question

Hi,Can anyone tell me whether we can establish a connection between a Front-end application (Java,J2EE) and Hyperion Enterprise database? In otherwords, what we do normally (data entry/updates) between any Java,J2EE application and Oracle DB, can we do the same functionality with Hyperion Enterprise database.Thanks in advance for your help.

Answer 1

I found this set of instructions that could help you create your own Status Function, but you really need to know Visual Basic, anyway here it is:
Dim selectaddrc As Long
Dim wStatus As Integer
Dim iDataView As Integer
Dim sDataView As String
Dim iView As Integer
Dim lpBuf As String * 127
Dim lpAPIs As apiStruct
sigCat = EntFindStrN(glhSelect, HYP_ID_CATEGORY, HYP_NONE, szCategory, 0)
If sigCat = HYP_NONE Then
nRC = MsgBox("Unable to obtain Category signature.", vbExclamation, sMsgTitle)
Exit Function
End If
sigEntity = HYP_NONE
If szEntity <> "" Then
sigEnt = EntGetEntitySig(glhSelect, szEntity, NAME_EXPLICIT)
End If
dValue# = 0
lpAPIs.sigCat = sigCat&
lpAPIs.sigName = sigEnt&
lpAPIs.sigParent = HYP_NONE
lpAPIs.wType = ID_REGULAR
lpAPIs.lStartPeriod = StPer& - 1
lpAPIs.lEndperiod = StPer& - 1
lpAPIs.u_Dfa.sigAcct = -1
lpAPIs.u_Dfa.iFreq = -1
lpAPIs.u_Dfa.bAutoRecalc = False
lpAPIs.u_Dfa.bPeriodic = iDataView%
lpAPIs.u_Dfa.sViewType = HYP_NONE
lpAPIs.u_Dfa.sigAccumFreq = HYP_NONE
lpAPIs.lpimrData = EntGetVarAddr(dValue#)
lpAPIs.lpseStatus = EntGetVarAddr(wStatus%)
selectaddrc& = EntSelectTableAdd(HYP_ID_PSFDATA + HYP_ID_ASSOC, sigCat, glhSelect&, APILOCK_READONLY, 0, 0, 0, 0, lpAPIs)
If selectaddrc& = -1 Then
Exit Function
End If
rc = EntQueryExStr(glhSelect, HYP_ID_PSFDATA, HYP_PSF_GETSTATUSTEXT, -1, -1, Len(lpBuf$), lpBuf$, lpAPIs)
If rc% = 0 Then
GetPSFStatusA = UCase$(CToB(lpBuf$))
Select Case GetPSFStatusA
Case "LOCKED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "OK"
FlGrdPSFStatus.CellForeColor = &H8000&
Case "NO DATA"
FlGrdPSFStatus.CellForeColor = &H0&
Case "CHANGED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "IMPACTED"
FlGrdPSFStatus.CellForeColor = &HC0&
Case "CALC"
FlGrdPSFStatus.CellForeColor = &HC0&
Case Else
'FlGrdPSFStatus.Font = "Arial Narrow"
FlGrdPSFStatus.CellForeColor = &H0&
End Select
End If
glhSelect& = EntUnSelect(glhSelect&, HYP_ID_PSFDATA, sigCat, 1, rc%, lpAPIs)
End Function