SUBROUTINE VPERR(NAME)
      LOGICAL*1 IOSB(2)
      INTEGER*2 PLU,VLU,TLU,EFN,DSW,BYTCNT,USRPRM(6)
      COMMON/VEXEC/PLU,VLU,TLU,EFN,DSW,IOSB,BYTCNT,USRPRM
      LOGICAL*1 NAME(6)
      IF(DSW.GE.0)GO TO 2000
      WRITE(TLU,110)NAME,DSW
110   FORMAT(1H ,6A1,': DIRECTIVE STATUS WORD(DSW)=',I4)
      STOP
2000  IF(IOSB(1).GE.0)RETURN
3000  WRITE(TLU,130)NAME,IOSB
130   FORMAT(1H ,6A1,' : IOSB = ',2I7)
      STOP
      END