$!
$! EDR header read command procedure
$!
$ SET ON
$ ON CONTROL_Y THEN GOTO END
$ ON WARNING THEN GOTO ERRMSG
$ ON ERROR THEN GOTO ERRMSG
$ CLR :== @SYS$SYSTEM:CLEAR.COM
$ WO :== WRITE SYS$OUTPUT
$ ASK :== INQUIRE
$ CLR
$ WO " "
$ WO "     VOYAGER EDR HEADER READ PROCEDURE"
$ WO " "
$ WO " "
$ START:
$ WO " "
$ WO "IMPORTANT NOTE!
$ WO " "
$ WO "EDRs must reside in the directory VOYAGER:[VOYAGER.DATA.EDR]"
$ WO "AND follow the naming convention (EDRNAME).DAT."
$ WO "Future versions of this command procedure will allow EDRs to"
$ WO "be mounted on different devices/directories."
$ WO " "
$ NAME:
$ ASK EDRNAME "Enter EDR input file name"
$ IF EDRNAME .EQS. "" 
$ THEN
$  WO ""
$  WO "INVALID ENTRY.  TRY AGAIN."
$  WO ""
$  GOTO NAME
$ ENDIF
$ OPEN/WRITE FOR005 VOYAGER:[VOYAGER.COMMAND]FOR005.DAT
$ EDRIN = "VOYAGER:[VOYAGER.DATA.EDR]"'EDRNAME'".DAT"
$ WRITE FOR005 EDRIN
$ CLOSE FOR005
$ WO " "
$ WO "PROCESSING EDR..."
$ OPEN/READ FOR005 VOYAGER:[VOYAGER.COMMAND]FOR005.DAT
$ RUN VOYAGER:[VOYAGER.EXECUTABLE]EDRREAD
$ CLOSE FOR005
$ DELETE/NOCONFIRM VOYAGER:[VOYAGER.COMMAND]FOR005.DAT;*
$ WO " "
$ WO "EDR PROCESSING COMPLETE"
$ WO " "
$ EXIT
$!
$ ERRMSG:
$ WO " "
$ WO "RUNTIME ERROR ENCOUNTERED.  PROCEDURE TERMINATED."
$ WO " "
$!
$ END:
$ SET NOON
$ CLOSE FOR005
$ DELETE/NOCONFIRM VOYAGER:[VOYAGER.COMMAND]FOR005.DAT;*
$ EXIT