--Disable automatic display of errors - leave error
messages in queue and enable Error Prompt. The
“localnode” is unit being communicated with via
GPIB or RS-232.
Call send(Addr%, "localnode.prompts =
1", intStatus)
strReturnMessage = udfGetTspResponse()
--Turn on prompts; need to start handling the
prompts as soon as this command is sent.
Open App.Path & "\" &
"MeasCurrScript.tsp" For Input As #1
--Open the script file for sequential input.
Call send(Addr%, "loadscript
MeasCurrScript", intStatus)
strReturnMessage = udfGetTspResponse()
--“loadscript” identifies the beginning of the script.
“MeasCurrScript” is the name assigned to the
script.
--Read the file
.
Do While Not EOF(1)
--Loop until the end of the script file.
Line Input #1, strScriptline
--Read a line from the script file.
Call send(Addr%, strScriptline, intStatus)
'
--Send script line to Series 2600.
strReturnMessage = udfGetTspResponse()
strReturnMessage = Left(strReturnMessage,
4)
Select Case strReturnMessage
Case ">>>>"
Case "TSP>"
--Continuation prompt.
TSP received script line successfully; waiting for
next line.
--Ready prompt.
TSP received script successfully; ready for next
command.
Exit Do
Case "TSP?"
--Error prompt.
Error occurred; handle as desired.
Use “errorqueue” commands to read and clear
errors.
Case Else
--No prompt received.
Response other than shell prompt was received;
handle as desired.
End Select
Loop
Close #1
--Close the script file.
Call send(Addr%, "endscript", intStatus)
strReturnMessage = udfGetTspResponse()
--Tell TSP complete script has been downloaded.
Call send(Addr%, "localnode.prompts =
0", intStatus)
--Disable prompts.
3-14
Return to
2600S-900-01 Rev. C / January 2008
Section 3: Test Script Processor Interaction
Series 2600 System SourceMeter
Call send(Addr%, "localnode.showerrors =
0", intStatus)