Agilent Technologies Agilent E5250A User Manual page 58

Executing Self-Test and Leak Test
Executing Self-Test
Self-Test Programming Example
This sample program is effective for an E5250A that has four cards installed. If your
E5250A does not have four cards installed, delete the Relay Test program lines for
the empty card slots. The program runs on HP BASIC.
10 ! Self-Test by External Controller
20 !
30 REAL A
40 ASSIGN @Hp5250 TO 722
50 OUTPUT @Hp5250;":DIAG:TEST:FRAM:CLE CONT"
60 OUTPUT @Hp5250;":DIAG:TEST:FRAM:CLE FPAN"
70 OUTPUT @Hp5250;":DIAG:TEST:CARD:CLE ALL"
80 DISP "Press Continue to go to Controller Test."
90 PAUSE
100 ! Controller Test
110 OUTPUT @Hp5250;":DIAG:TEST:FRAM:EXEC? CONT"
120 ENTER @Hp5250;A
130 IF A=0 THEN GOTO 160
140 DISP "Failed. Press Continue to go to I/F Test."
150 GOTO 170
160 DISP "Passed. Press Continue to go to I/F Test."
170 PAUSE
180 ! Front Panel I/F Test
190 OUTPUT @Hp5250;":DIAG:TEST:FRAM:EXEC? FPAN"
200 DISP "Press Local/Self Test Key within 10 sec."
210 ENTER @Hp5250;A
220 IF A=0 THEN GOTO 250
230 DISP "Failed. Press Continue to go to Relay Test."
240 GOTO 260
250 DISP "Passed. Press Continue to go to Relay Test."
260 PAUSE
270 ! Relay Test
280 OUTPUT @Hp5250;":DIAG:TEST:CARD:EXEC? 1"
290 ENTER @Hp5250;A
300 IF A=0 THEN GOTO 330
310 DISP "Card 1 failed. Press Continue to test Card 2"
320 GOTO 340
330 DISP "Card 1 passed. Press Continue to test Card 2"
340 PAUSE
350 OUTPUT @Hp5250;":DIAG:TEST:CARD:EXEC? 2"
360 ENTER @Hp5250;A
370 IF A=0 THEN GOTO 400
380 DISP "Card 2 failed. Press Continue to test Card 3"
390 GOTO 410
400 DISP "Card 2 passed. Press Continue to test Card 3"
410 PAUSE
420 OUTPUT @Hp5250;":DIAG:TEST:CARD:EXEC? 3"
3-8 Agilent E5250A User's Guide, Edition 11