ホスト（＝メインフレーム）ってまだ結構使っているところが多いように思います。
筆者が知る限り(3270系しか知りませんが)、エミュレータにPersonal Communications(P-COM)かFalconのどちらかを使っていて、どちらもマクロ機能があり、主に画面操作を自動化することが出来ます。
で、ちょっと前に、とあるホストの運用作業を自動化したいという話があったので、P-COMのホスト・アクセス・クラス・ライブラリーを使ったVBスクリプトを作ってみました。P-COMのホスト・アクセス・クラス・ライブラリーについては下記が参考になります。
http://www-01.ibm.com/support/knowledgecenter/SSEQ5Y_5.9.0/com.ibm.pcomm.doc/books/html/host_access08.htm?lang=ja
基本的にP-COM起動やホスト接続、終了以外は、画面の座標軸（縦と横）に対して文字を入力したり、指定場所に表示されているのが特定の文字かをチェックするという繰り返しになると思いますので、VBSではそれらをサブルーチンにしてます。
また、スクリプトの引数として、ログインIDとパスワード及び、事前に用意が必要な接続プロファイル（拡張子がwsのやつ）を指定する形になってます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 |
'２秒＊３０でタイムアウト判定 Const DEF_MAXCOUNT = 30 Dim oConnMGR, oECLPS, oECLOIA Dim oParam, HUserID, HPassWd, ProFile Dim i, idx Set oParam = WScript.Arguments For idx = 0 To oParam.Count - 1 Select Case idx Case 0 HUserID = UCase( oParam(idx) ) Case 1 HPassWd = UCase( oParam(idx) ) Case 2 ProFile = oParam(idx) End Select Next '''''引数エラー処理割愛 'PCOMオブジェクトの作成 Set oConnMGR = CreateObject("PCOMM.autECLConnMgr") Set oECLPS = CreateObject("PCOMM.autECLPS") Set oECLOIA = CreateObject("PCOMM.autECLOIA") '接続開始 Host_Start If Check_Host("DISP3270") = false Then WScript.Sleep(10000) If Check_Host("DISP3270") = false Then Host_End WScript.Quit(-11) End If End If '(13/01) ログイン [LOGON ユーザーID] + CTL Host_Input 13, 1, "LOGON " & HUserID , "[enter]", 1 '(8/20) パスワード [ ] + CTL 2回 Host_Input 8, 20, HPassWd , "[enter]", 2 Dim iPutLine, InputCmd '画面遷移チェック (4,59) ユーザーIDが表示されるのをチェック If Host_OutputChk(4, 59, Len(HUserID), HUserID) = False Then 'エラー Host_Input 0, 0, "", "[pf3]", 2 End If ・・・以下省略 '終了 'F3 2回で後処理へ戻る Host_Input 0, 0, "", "[pf3]", 2 '(5/27) 印刷せずにデータセットを削除「２」を選択 [2] + CTL Host_Input 4, 27, "2", "[enter]", 1 '(2/01) ログオフ [LOGOFF] + CTL Host_Input 2, 1, "LOGOFF", "[enter]", 1 '切断 Host_End 'ここでスクリプト終了 WScript.Quit(0) '以下サブルーチン '１ ホスト接続開始 Sub Host_Start oConnMGR.autECLConnList.Refresh '事前に取得したコネクションの数だけループして接続を停止する For i = 1 To oConnMGR.autECLConnList.Count oConnMGR.autECLConnList(i).StopCommunication() WScript.Sleep 5000 oConnMGR.StopConnection oConnMGR.autECLConnList(i).Name, "saveprofile=no" WScript.Sleep 5000 Next Dim strCmd strCmd = "profile=" & ProFile & " connname=A" oConnMGR.StartConnection strCmd End Sub '２ ホスト接続終了 Sub Host_End oConnMGR.autECLConnList.Refresh If oConnMGR.autECLConnList.Count > 0 Then oConnMGR.StopConnection "A", "saveprofile=no" WScript.Sleep 3000 End If End Sub '３ ホストセッションの取得（接続タイプ） Function Check_Host(ConnType) For i = 0 To DEF_MAXCOUNT oConnMGR.autECLConnList.Refresh If oConnMGR.autECLConnList.Count > 0 Then Exit For End If WScript.Sleep 2000 Next For i = 1 To oConnMGR.autECLConnList.Count '取得したコネクションの数だけループ If oConnMGR.autECLConnList(i).ConnType = ConnType Then '該当セッションのハンドルからセッションオブジェクトをセット oECLPS.SetConnectionByHandle (oConnMGR.autECLConnList(i).Handle) oECLOIA.SetConnectionByHandle (oConnMGR.autECLConnList(i).Handle) Exit For End If Next Check_Host = True If i > oConnMGR.autECLConnList.Count Then Check_Host = False Else For i = 0 To DEF_MAXCOUNT WScript.Sleep 2000 '処理完了待ち If oECLOIA.InputInhibited = 0 Then If Host_OutputChk(12, 16, 5, "*****") = True Then Exit For End If End If Next '起動確認タイムアウト If i >= DEF_MAXCOUNT Then Host_End WScript.Quit(-2) End If End If End Function '４ ホスト画面への入力（Y座標、X座標、文字列、キー入力、キー入力回数） Sub Host_Input(argY, argX, argStr, argKeyStr, argKeyCnt) Dim iKey If argY <> 0 And argX <> 0 Then oECLPS.SetCursorPos argY, argX oECLPS.SendKeys argStr End If 'エンターキー If argKeyStr <> "" Then For iKey = 1 To argKeyCnt oECLPS.SendKeys argKeyStr For i = 0 To DEF_MAXCOUNT * 10 WScript.Sleep 200 '処理完了待ち If oECLOIA.InputInhibited = 0 Then Exit For End If Next If i >= DEF_MAXCOUNT * 10 Then Host_End WScript.Quit(-2) End If Next End If End Sub '５ 画面表示内容のチェック（Y座標、X座標、文字列の長さ、文字列 一致したらtrueを返す Function Host_OutputChk(argY, argX, argLen, argStr) Dim strBuff strBuff = oECLPS.GetTextRect(argY, argX, argY, argX + argLen-1) If Trim(strBuff) = Trim(argStr) Then Host_OutputChk = True Else Host_OutputChk = False End If End Function |
やっかいなのは、あくまで画面操作なので接続とか応答に時間が掛かったり、いろいろ問題が出てきます。
ちょっと雑にSleepをガンガンかましていますが、お察しください。。