.ENABLE SUBSTITUTION
F77 GETDEV, GETDEV/-SP = GETDEV/TR:ALL
	.IF <EXSTAT> <> <SUCCES> .GOTO PURGE
TKB @GETDEVBLD
.PURGE:
PIP GETDEV.*/PU