.PROC,GETNVE*I,
LFN "- LOCAL FILE NAME"                = (*N=NOSVETP,*F),
PFN "- PERMANENT FILE NAME"            = (*N=TPXXXK,*F),
UN  "- USER NAME OF PERMANENT FILE"    = (*N=,*F),
VSN "- TAPE VOLUME SERIAL NUMBER"      = (*N=,
                                     *S6(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)),
D "TAPE DENSITY (GE,PE,HD,HY)"         = (*N=PE,GE,PE,HD,HY),
.
.HELP
THE GETNVE PROCEDURE GETS THE NOS/VE DEADSTART FILE FROM EITHER A
TAPE OR A USER CATALOG.

PARAMETER   DEFAULT   DESCRIPTION
  NAME       VALUE

  LFN       NOSVETP   LOCAL FILE NAME BY WHICH THE FILE IS ACCESSED
 [PFN]      TPXXXK    PERMANENT FILE NAME OF THE STORED FILE
 [UN]                 USER NAME FROM WHICH TO DEADSTART NOS/VE
 [VSN]                VOLUME SERIAL NUMBER OF THE DEADSTART TAPE
 [D]          PE      DENSITY OF THE DEADSTART TAPE

.HELP,LFN
THE LFN PARAMETER SELECTS THE NAME BY WHICH THE FILE IS ACCESSED.
THE DEFAULT VALUE IS NOSVETP.
.HELP,PFN
THE PFN PARAMETER SELECTS THE NAME BY WHICH THE FILE WAS STORED.
THE DEFAULT VALUE IS TPXXXK.
.HELP,UN
THE UN PARAMETER SPECIFIES THE USER NAME TO SEARCH FOR THE NOS/VE
DEADSTART FILE. ON NOS/BE, THIS IS A PERMANENT FILE ID.
.HELP,VSN
THE VSN PARAMETER SPECIFIES THE VOLUME SERIAL NUMBER OF THE DEADSTART
TAPE. THE CATALOGS UN AND B ARE SEARCHED IF NO VSN IS SPECIFIED.
.HELP,D
THE D PARAMETER SELECTS THE DENSITY OF THE DEADSTART FILE.
THE DEFAULT DENSITY IS PE.
.ENDHELP
.IFE,$VSN$.EQ.$$,GETTPXXXK.
  GETFILE,LFN,PFN,UN,READ.
.ELSE,GETTPXXXK.
.IFE,SYS=NOS,NOSSYS.
  $REQUEST,LFN,#D=D,F=I,LB=KU,#VSN=VSN.
.ELSE,NOSSYS.
   REQUEST,LFN,D,#VSN=VSN.
.ENDIF,NOSSYS.
  REWIND,LFN.
.ENDIF,GETTPXXXK.
REVERT. END GETNVE
/EOR
