CallSpt ( SptFileName〔,Param1 ,Param2 , … ,Param31〕)
' スクリプトファイル"Environment.SPT"を実行し,
' プロセス環境変数を更新・参照する。
Dim Path01
rtn = CallSpt(_SCF_+"Environment.SPT", "Get", "Path01", _
Path01)
:
rtn = CallSpt(_SCF_+"Environment.SPT", "Set", "Path01", _
_TEMP_)
' Environment.SPTの処理
Select Case %1
Case "Set"
SetEnv(ProcessEnv, %2, %3)
Case "Get"
%3 = GetEnv(ProcessEnv, %2)
End Select