サンプル・スクリプト

' sample statement written in the calling routine
Sub Calculate()
Hs.Exp "A#Open_FA_Cost = " & Opening("A#FA_Cost", "YTD")
End Sub
' programming of the OPENING function
FUNCTION OPENING(strPOV,strVIEW)

IF strVIEW = "" THEN 
strVIEW = HS.SCENARIO.DEFAULTVIEW (“”) 

END IF
strPOV = UCASE(strPOV)
strVIEW = UCASE(strVIEW)

IF strVIEW = "PERIODIC" THEN
OPENING = strPOV &".P#PRIOR"

ELSEIF strVIEW = "YTD" THEN
OPENING = strPOV &".Y#PRIOR.P#LAST"

ELSE
EXIT FUNCTION
END IF
END FUNCTION