まず、newbです。キーボードの周りには使用できません。つまり、ユーザがリストから選択することでリモートデバイスに接続できるようにするDCL .COMファイルを作成しようとしています。DCLプログラミング - リモート接続
私がやりたかったのは、デバイスを選択して接続し、デバイスから切断すると、起動した場所に戻ることです。私はリモート接続を終了した後、私をダンプし続けます。
オペレーティングシステムはOpenVMSです。ここにコードがあります(xxx.xxx.xxx.xxxはリモートシステムのIPアドレスになります)。
ご協力いただきますようお願い申し上げます。
$! MRV Terminal Server Connection Menu
$!
$ ON ERROR THEN $ LOGOUT
$ GOMENU:
$!
$ CLS:==SET TERM/WIDTH=80
$ WT:==WRITE SYS$OUTPUT
$!
$ CLS
$ WT " MRV Terminal Server Connection Menu "
$ WT " "
$ WT " 1 MRV 1"
$ WT " 2 MRV 2"
$ WT " 3 MRV 3"
$ WT " 4 MRV 4"
$ WT " 5 MRV 5"
$ WT " 6 MRV 6"
$ WT " 7 MRV 7"
$ WT " 8 MRV 8"
$ WT " 9 MRV 9"
$ WT " 10 MRV 10"
$ WT " 11 MRV 11"
$ WT " 12 MRV 12"
$ WT " 13 MRV 13"
$ WT " 14 MRV 14"
$ WT " "
$ WT " "
$ WT " "
$ WT " "
$ WT " "
$ WT " X EXIT"
$ WT " "
$ INQUIRE ANS "Select the MRV you wish to connect to:"
$!
$!
$ IF ANS .EQS. "X" then goto goodbye
$!
$!
$ IF ANS .EQS. "1" then SSH "[email protected]"
$!
$ IF ANS .EQS. "2" then SSH "[email protected]"
$!
$ IF ANS .EQS. "3" then SSH "[email protected]"
$!
$ IF ANS .EQS. "4" then SSH "[email protected]"
$!
$ IF ANS .EQS. "5" then SSH "[email protected]"
$!
$ IF ANS .EQS. "6" then SSH "[email protected]"
$!
$ IF ANS .EQS. "7" then SSH "[email protected]"
$!
$ IF ANS .EQS. "8" then SSH "[email protected]"
$!
$ IF ANS .EQS. "9" then SSH "[email protected]"
$!
$ IF ANS .EQS. "10" then SSH "[email protected]"
$!
$ IF ANS .EQS. "11" then SSH "[email protected]"
$!
$ IF ANS .EQS. "12" then SSH "[email protected]"
$!
$ IF ANS .EQS. "13" then SSH "[email protected]"
$!
$ GOODBYE:
$!EXIT
「私をダンプする」と「彼らはスタート地点に戻って、」およそかすかに非技術的な何かがあります。物事を少しはっきりさせることができますか?最後の 'if'の後に' $ goto GoMenu'を追加すると、ストアドプロシージャ(あなたの目標であれば)に保存されます。セッションが終了したときにSSHがエラーで終了すると、 '$ on error then goto GoMenu'が役立ちます。 [参照](http://h41379.www4.hpe.com/doc/84final/9996/9996pro_150.html)。 – HABO
入力していただきありがとうございます。「ダンプする」とは、VMSプロンプトに戻ってメニューに戻ることを意味します。目標は、ユーザーがリモートセッションを終了した後、メニューに戻ることです。 –
また、リストに表示されていない選択肢を選択すると、それを終了しないようにするにはどうすればよいですか?たとえば、ユーザーがWと入力すると、プログラムが終了してユーザーがVMSプロンプトに戻ります。 –