2.8.4　VOS1 ACE3 E2経由の場合のログオン，ログオフマクロ

VOS1 PDM II E2，VOS1 ACE3ユーザファイル，VOS1 スプールファイルの場合のマクロスクリプトのサンプルを紹介します。

規則

• ログオン操作で指定するリージョンサイズは，ユーザの環境に合わせて指定してください。また，ACE3 E2を使えるユーザ名，パスワード及びセション名を指定してください。

• ACE3 E2とDBPARTNER/Linkの起動操作を定義してください。

〈この項の構成〉

• (1)　ログオン操作のマクロスクリプトのサンプル

• (2)　ログオフ操作のマクロスクリプトのサンプル

1カラム目
   ↓
1. # Begin Logon Macro
   #端末とES/IEXを接続します。
2.     SEND EXEC
3.     RECEIVE (1,2) "JCK071I ENTER LOGON"
4.     AWAIT KEYOK
5.     WRITE (1,2)  "LOGON IEX "
2.     SEND  EXEC
   #セション選択画面の表示を待ち，ユーザID，パスワード，セション名を入力
   #します。
6.     RECEIVE (1,14) "セション選択画面"
4.     AWAIT KEYOK
7.     WRITE (21,18) %1
7.     WRITE (21,58) %2
8.     WRITE (22,18) "ACE3001"
2.     SENDEXEC
   #マスタメニュー画面の表示を待ち，ACE3 E2を起動します。
9.     RECEIVE (2,2) "JMASTER"
4.     AWAIT KEYOK
10.    WRITE (22,13) "@@ACE3 CPROC=ACE3DCT,DBUSE=P,MODE=DBPARTNER"
3.     SEND  EXEC
11.# END

1カラム目
  ↓
1. # Begin Logoff Macro
   #マスタメニュー画面の表示を待ち，"6.セッションの終了"を入力します。
2.     RECEIVE (2,2) "JMASTER"
3.     AWAIT KEYOK
4.     WRITE (22,13) "6"
5.     SEND EXEC
   #セションの終了画面の表示を待ち，"1.このメニューを実行中のセションの終
   #了"を選択します。
6.     RECEIVE (2,2) "JUSESSI"
3.     AWAIT KEYOK
7.     WRITE (4,46) "1"
5.     SEND EXEC
   #セション選択画面の表示を待ち，入力行へLOGOFFを入力します。
8.     RECEIVE (1,14) "セション選択画面"
3.     AWAIT KEYOK
9.     WRITE (24,13) "LOGOFF"
5.     SEND EXEC
   #"JIC101I"メッセージの表示を待ちます。
10.    RECEIVE (20,3) "JIC101I"
3.     AWAIT KEYOK
5.     SEND EXEC
   #オンラインモードに戻ったことを確認します。
11.    RECEIVE (1,2) "JCK071I ENTER LOGON"
3.     AWAIT KEYOK
12.# END