.PROC,NVEPROL*I,
UN "- USER NAME OF FILES"           = (*N,*F),
.
.HELP
 The NVEPROL procedure makes NVELIB part of the Global Library Set.
 On NOS/BE, the library NVELIB must first be created from the
 release file NVELIBB.
.ENDHELP
.IFE,SYS=NOS,NOSSYS.
  .IFE,OT.EQ.TXO,TERMINAL.
    $RECOVER,OP=T.
  .ENDIF,TERMINAL.
  $ATTACH,NVELIB/NA,M=R.
  $IFE,.NOT.FILE(NVELIB,AS),GETFROMSYS.
  COMMON,SYSTEM.
  GTR,SYSTEM,NVELIB,U.ULIB/NVELIB
  $UNLOAD,SYSTEM.
  $ENDIF,GETFROMSYS.
  $LIBRARY,NVELIB/D.
  $LIBRARY,NVELIB/A.
.ELSE,NOSSYS.
  .IFE,FILE(NVELIBB,.NOT.AS),GETNVEB.
    ATTACH,NVELIBB,ID=UN,MR=1.
    SKIP,ATTA1.
      EXIT(U)
      REVERT,ABORT. NVELIBB NOT FOUND
    ENDIF,ATTA1.
  .ENDIF,GETNVEB.
  LIBRARY.
  RETURN,NVELIB.
  REQUEST,NVELIB,SN,PF.
  EDITLIB,I=DIR,L=0.
  LIBRARY,NVELIB.
  CATALOG,NVELIB,ID=UN,RP=999.
  NOTE(OUTPUT,NR)+ NVELIB CREATED
  COMMENT. NVELIB CREATED
  .IFE,FILE(NVELIBB,.NOT.AS).RETURN,NVELIBB.
  SKIP,NOERR.
    EXIT.
    REVERT,ABORT. CREATION OF NVELIB FAILED.
  ENDIF,NOERR.
.ENDIF,NOSSYS.
UNLOAD,NVEPROL,DIR.
REVERT. END NVEPROL
.DATA,DIR
LIBRARY(NVELIB,NEW)
ADD(*,NVELIBB,AL=3,FL=40000)
SETAL(ICAMMLI,0)
SETAL(REWIND,0)
SETAL(ABEND,0)
SETAL(READSKP,0)
FINISH.
ENDRUN.
/EOR
