; FIXUP FOPEN FOR BUG & BLOCK I/O
.TESTFILE FOPEN.VGN;1
.IF <FILERR> NE 1 PIP FOPEN.VGN;1=FOPEN.MAC;1
.IF <FILERR> NE 1 PIP FOPEN.VGN/PR/OW:R/GR:R/WO:R/SY:R
SLP @FOPEN.SLP
.IF <EXSTAT> NE 1 .STOP
MAC FOPEN,FOPEN/-SP/CR=RSX,FOPEN
.IF <EXSTAT> NE 1 .STOP
LBR C.OLB/RP=FOPEN
