HP E1418A Service Manual page 28

if(err VI_SUCCESS) err_handler(dac, err);
if (selftest != '0')
{
printf ("Self Test failed\n");
printf ("The first error encountered was\n");
printf ("Error number %d %s\n",selftest,selftestresults);
printf ("This program will terminate\n");
pause();
abort;
}
else
{
printf ("Self Test PASSED");
}
}
/*** VTL Error handling function ***/
void err_handler (ViSession dac, ViStatus err)
{
char buf[1024]={0};
viStatusDesc(dac,err,buf);
printf("VTL ERROR = %s\n", buf);
return;
} /*End of VTL error handler */
/*** SCPI error checking and reporting function ***/
void sys_err(ViSession resource) /* Test for SCPI Errors */
{
char buf [1024] = {0};
int err_no;
err = viPrintf (resource, "SYST:ERR?\n"); /* Check for an error */
if (err < VI_SUCCESS) err_handler(resource,err); /* Check VTL errors */
err = viScanf (resource,"%d%t",&err_no,&buf);
if (err < VI_SUCCESS) err_handler(resource,err); /* Check VTL errors */
while (err_no != 0) /* Report all errors in error que */
{
printf ("\nCommand Error: %d,%s\n",err_no,buf);
err = viPrintf (resource, "SYST:ERR?\n");
if (err < VI_SUCCESS) err_handler(resource,err); /* Check VTL errors */
err = viScanf (resource,"%d%t",&err_no,&buf);
if (err < VI_SUCCESS) err_handler(resource,err); /* Check VTL errors */
}
flushall();
err = viFlush(resource,VI_READ_BUF);
if (err < VI_SUCCESS) err_handler (resource,err); /* Check VTL errors */
err = viFlush(resource,VI_WRITE_BUF);
if (err < VI_SUCCESS) err_handler (resource,err); /* Check VTL errors */
} /* End of checking for SCPI errors */
28 Operating Information
/* Clean out the buffers */
Chapter 3