.PROC,GETNOS*I,
VSN "- Volume Serial Number of DS tape"= (*N=,
                                     *S6(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)),
D "tape Density (HY,HD,PE,GE)"         = (*N=PE,GE,PE,HD,HY),
.
.HELP
 The GETNOS procedure GETs the NOS deadstart file as a local file
 named SYSTEM for the GENNOS procedure.

 Parameter   Default   Description
   Name       Value

  [vsn] COMMON,SYSTEM  volume serial number of NOS deadstart tape
  [d]          pe      tape density (pe,ge,hd,hy)

.HELP,VSN
 The VSN parameter specifies the volume serial number of the NOS
 deadstart tape. By default the command COMMON,SYSTEM is executed.
.HELP,D
 The D parameter specifies the NOS deadstart tape density.
 The default density is PE.
.ENDHELP
$UNLOAD,SYSTEM.
.IFE,($VSN$.EQ.$$),RQDSTAPE.  * ISSUE COMMON,SYSTEM. COMMAND
  $COMMON,SYSTEM.
  $NOTE(OUTPUT,NR)+ **  "COMMON,SYSTEM." COMMAND WAS SUCCESSFUL
.ELSE,RQDSTAPE. * GET DEADSTART FILE FROM TAPE
  $LABEL,SYSTEM,#D=D,F=I,LB=KU,PO=R,#VSN=VSN.
.ENDIF,RQDSTAPE.
$SETFS,SYSTEM/FS=NAD.
$REWIND,SYSTEM.
$SKIP,NOERROR.
  $EXIT.
  $IFE,(EF.EQ.TIE).OR.(EF.EQ.TAE),TERMINATED.
    $EXIT. GETNOS *TERMINATED*
  $ENDIF,TERMINATED.
  .IFE,OT.EQ.TXO,TERMINAL.
    .IFE,$VSN$.EQ.$$,NOTAPE.
      $NOTE,OUTPUT,NR.+ **  "COMMON,SYSTEM." COMMAND WAS UNSUCCESSFUL
    .ELSE,NOTAPE.
      $NOTE,OUTPUT,NR.+ **  TAPE REQUEST WAS UNSUCCESSFUL
    .ENDIF,NOTAPE.
    $NOTE,OUTPUT,NR.+ **  RERUNNING GETNOS IN HELP MODE.
    $REVERT,EX.GETNOS?.
  .ELSE,TERMINAL.
    $REVERT,ABORT. ERROR WHILE RUNNING GETNOS.
  .ENDIF,TERMINAL.
$ENDIF,NOERROR.
$REVERT.   END GETNOS.
/EOR
