SUBROUTINE VATT
      LOGICAL*1 IOSB(2)
      INTEGER*2 PLU,VLU,TLU,EFN,DSW,BYTCNT,USRPRM(6)
      COMMON/VEXEC/PLU,VLU,TLU,EFN,DSW,IOSB,BYTCNT,USRPRM
      INTEGER*2 ATT,NAME(3)
      DATA ATT/"1400/,NAME/2H  ,2HVA,2HTT/
      IOSB(1)=0
      IOSB(2)=0
      BYTC=0
      CALL ASNLUN(PLU,2HLP,0,DSW)
      CALL VPERR(NAME)
      CALL ASNLUN(VLU,2HVP,0,DSW)
      CALL VPERR(NAME)
      DO 1000 I=1,6
1000  USRPRM(I)=0
      CALL QIO(ATT,PLU,EFN,,IOSB,USRPRM,DSW)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      CALL GETADR(USRPRM,USRPRM)
      USRPRM(2)=2
      CALL QIO(ATT,VLU,EFN,,IOSB,USRPRM,DSW)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      RETURN
      END