.; This command file compiles and builds the QIO error translation
.; task. B. Z. Lederman
.;
F77 QIOERR, QIOERR/-SP = QIOERR/TR:ALL
	.IF <SUCCES> NE <EXSTAT>&7 .GOTO END
TKB @QIOERRBLD

.END:

PIP QIOERR.*/PU
