3-8 Agilent E5250A User’s Guide, Edition 9

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 @Hp 5250 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 "Pres s 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 Cont in ue to go to I/ F Te st ."
150 GOTO 170
160 DISP "Passed . Pr es s Co ntin ue to go to I/ F Te st ."
170 PAUSE
180 ! Front Panel I/F Test
190 OUTPUT @Hp5250;":DIAG:TEST:FRAM:EXEC? FPAN"
200 DISP "Press Local/Self Tes t Ke y wi th in 10 se c. "
210 ENTER @Hp525 0;A
220 IF A=0 THEN GOTO 250
230 DISP "Failed. Press Cont in ue to go to Re la y Te st ."
240 GOTO 260
250 DISP "Passed. Press Cont in ue to go to Re la y Te st ."
260 PAUSE
270 ! Relay Test
280 OUTPUT @Hp5250;":DIAG:TEST:CARD:EXEC? 1"
290 ENTER @Hp525 0;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 @Hp525 0;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"