サンプル・スクリプト

このスクリプトには、次の情報が含まれます:

• 呼出しルーチンで記述されたサンプル文。

• 呼出しルーチンに設定され、Spread関数に渡される変数。

• Spread関数と同一になるように設定された呼出しルーチンの変数名。

  Sub Calculate()
  Dim Destination
  Dim Source
  Dim Factor
  Dim FactorN
  Dim FactorD
  Dim Temp
  Dim Per  
  Source = "A#Telephone.C1#[None].P#[Year]"
  Destination = "A#Telephone.C1#[None]"
  Factor = "A#Factor.C1#[None]"
  FactorN = "E#Globals.A#Profile445.C1#[None].P#CUR"
  FactorD = "E#Globals.A#Profile445.C1#[None].P#[Year]"
  Temp = "A#TempTelephone.C1#[None]"
  Per = "January"
  Call Spread(Destination,Source,Factor,
  FactorN,FactorD,Temp,Per)    
  End Sub
  ' Beginning of the Spread function 
  Sub Spread(Destination,Source,Factor,FactorN,FactorD,Temp,Per)
  If HS.Period.Number = 1 Then 
  HS.Exp Temp & " = " & Source
  End If
  HS.Clear Factor
  HS.EXP Factor & " = " & FactorN & " / " & FactorD    
  HS.Clear Destination
  HS.EXP Destination & " = " & Temp & ".P#" & Per & " * " & Factor 
  End Sub