HP 9000 Series 300 Tutorials Manual page 192

417 /* a DSJ is required to remove the ppoll response from device */
418 if (dsj
=
amigo_dsj()) {
419 if (Debug) printf("%s DSJ
=
Ox%x\n". ptr_dev. dsj);
420
421 status
=
amigo_status();
422 if (Debug) printf("%s STATUS Ox%x\n". ptr_dev. status);
423 goto again;
424 }
425 }
426
427 /* output error message and conditionally abort */
428 fatal_err(message. fname. flag)
429 char *message;
430 char *fname;
431 {
432 fprintf(stderr. "%s: Error - %s of %s II procnam. message. fname);
433 if (errno) perror(IIII);
434 else fprintf(stderr. "\n");
435
436 if (flag
==
F_RTRN) return;
437 if (flag
==
F_EXIT) exit(2);
438 exit(3);
439 }
0-12 OIL Programming Example