Agilent Technologies 4294A Programming Manual page 135

Example 10-1 Detecting of an error via SRQ
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280 Err_proc: ! Error Process
290
300
310
320
330
340
350 Skip_err_proc: PRINT "PROGRAM DONE."
360 Prog_end: END
Chapter 10
DIM Buff$[9],Err_mes$[50]
INTEGER Scode,Err_no
IF SYSTEM$("SYSTEM ID")="HP4294A" THEN
ASSIGN @Hp4294a TO 800
Scode=8
ELSE
ASSIGN @Hp4294a TO 717
Scode=7
END IF
!
OUTPUT @Hp4294a;"*ESE 60"
OUTPUT @Hp4294a;"*SRE 32"
OUTPUT @Hp4294a;"*CLS"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
!
ON INTR Scode GOTO Err_proc
ENABLE INTR Scode;2
OUTPUT @Hp4294a;"MEAS CSQ"
PRINT "Set Meas Prm:Cs-Q"
OUTPUT @Hp4294a;"START 10MHZ"
PRINT "Set Start:10MHz"
OUTPUT @Hp4294a;"STOP 100MHZ"
PRINT "Set Stop:100MHz"
OUTPUT @Hp4294a;"*OPC?"
ENTER @Hp4294a;Buff$
GOTO Skip_err_proc
OUTPUT @Hp4294a;"OUTPERRO?"
ENTER @Hp4294a;Err_no,Err_mes$
PRINT "Error occurred!!"
PRINT " No:";Err_no,"Description: "&Err_mes$
PRINT "PROGRAM INTERRUPT!!"
GOTO Prog_end
Handling Errors
Sample program for error handling
135