SUBROUTINE TAPTRM
CHANGES MADE 21-JAN-1980 ***
C
C      SUBROUTINE TO TERMINATE ACTIVITY ON 'TAPE'.
C      CALLS RDLBL TO CHECK EOF LABELS AND REWINDS TAPE.
C
      IMPLICIT INTEGER*2 (I-N)
      COMMON /GHCITP/ IRC,IBC,LUNMT,LUNTT,ILRECL,IBLKSZ,IOSTAT(5),
     1 IFN(17),IVOL(6),TRAN,LAB,IEOF
      LOGICAL*1 IFN,TRAN,LAB,IEOF,IVOL
      DATA IORWD/'24'X/
      IF (LAB) CALL RDLBL(3)
      CALL SYS$QIOW(,%VAL(LUNMT),%VAL(IORWD),,,,,,,,,)
      CALL SYS$DASSGN(%VAL(LUNMT))
      RETURN
      END