OpenVMS - 尝试为无效选择创建操作

Question

我正在尝试编写一个简单的 .com 文件，让用户可以选择从选择列表中打开文件。当您选择数字时，它会很好地打开文件，但如果您选择了无效的选择，它应该让您返回选择列表。那是行不通的。

我一直在查看 OpenVMS 用户手册，但无法解决这个问题。

$! CHOICE.COM
$! Test file to offer choice to open one of two files
$!
$ ON WARING THEN EXIT
$ HOME:
$ WRITE SYS$OUTPUT “”
$ WRITE SYS$OUTPUT “1 – FILEA”
$ WRITE SYS$OUTPUT “2 – FILEZ”
$ WRITE SYS$OUTPUT “”
$ WRITE SYS$OUTPUT “”
$ INQUIRE P1 “Enter the number of the file to open or type X to exit:”
$ IF P1.EQS.”1”
$              THEN
$                   @FILEA.COM
$                    ENDIF
$ IF P1.EQS.”2”
$              THEN
$                   @FILEZ.COM
$                    ENDIF
$ IF P1.EQS.”X”
$              THEN
$                   EXIT
$ IF P1.EQS.””
$              THEN
$                   WRITE SYS$OUTPUT “Invalid Choice – try again!”
$                   WAIT 0:0:5
$                   GOTO HOME
$   ENDIF
$ !

我希望用户返回主页的选择无效：

Answer 1

好的，在程序员的帮助下，我有答案了。

$! CHOICE.COM
$! Test file to offer choice to open one of two files
$!
$ ON WARING THEN EXIT
$ HOME:
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT "1 - FILEA"
$ WRITE SYS$OUTPUT "2 - FILEZ"
$ WRITE SYS$OUTPUT ""
$ WRITE SYS$OUTPUT ""
$ INQUIRE P1 "Enter the number of the file to open or type X to exit:"
$ IF P1.EQS."1"
$ THEN
$   @FILEA
$   EXIT
$ ENDIF
$ IF P1.EQS."2"
$ THEN
$   @FILEZ
$   EXIT
$ ENDIF
$ IF P1.EQS."X" THEN EXIT
$ WRITE SYS$OUTPUT "Invalid Choice - try again!"
$ WAIT 0:0:5
$ GOTO HOME