SPL,L,O,M,C 
!     NAME:   CN..
!     SOURCE: 92064-18160 
!     RELOC:  92064-16055 
!     PGMR:   G.A.A.
!     MOD:    G.L.M.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME CN..(7) " 92064-16055  REV.1650  761204" 
! 
!     THE CN ROUTINE ALLOWS THE OPERATOR TO 
!     CHANGE FILE NAMES.
! 
!     COMMAND:
! 
!     CN,NAMR,NEWNAME 
! 
!     WHERE NAMR IS THE FILES NAME REFERENCE
!                  INCLUDING SECURITY CODE AND
!                  CARTRIDGE ID IF APPROPIATE 
! 
!            NEWNAME IS THE NEW FILE NAME 
! 
! 
!     DEFINE  EXTERNAL
! 
      LET .E.R ,IDCB1,N.OPL BE INTEGER,EXTERNAL 
      LET NAMF BE SUBROUTINE,EXTERNAL 
      LET IER.,CLO   BE SUBROUTINE,EXTERNAL,DIRECT
CN..: SUBROUTINE (N,LI,E) GLOBAL
      L5_[L1_@LI+1]+4 
      CLO(IDCB1)                    !GO CLOSE LIBRARY DCB 
      NAMF(IDCB1,.E.R ,$L1,$L5,N.OPL,$(@N.OPL+1)) 
      IER.
      RETURN
      END 
      END 
      END$
                                                                                                                                                                                                        