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