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$