Add HEX key to PC5250
iSeries Access PC5250 keyboard does not have the Hex key that the old 5250 keyboard did. Assign this script to a key to get this function back.
iSeries Access PC5250 keyboard does not have the Hex key that the old 5250 keyboard did. Assign this script to a key to get this function back.
To create the script, go to Edit->Preferences->Macro/Script... in the emulator. Click on the Customize button. Then go to File->New->VB Script. Paste the code below into the edit window and save it. I call it HEX.MAC.
Now go to the keyboard mapping editor of PC5250 and assign this macro to a key combination like Shift-Ctrl-X.
If you want to be able to enter display attributes, change the lower limit to 32 (x20) as needed.
LANGUAGE=VBSCRIPT [PCOMM SCRIPT HEADER] LANGUAGE = VBSCRIPT DESCRIPTION=Hex input [PCOMM SCRIPT SOURCE] Option Explicit Dim input_value, hex_value autECLSession.SetConnectionByName (ThisSessionName) subHex_ Sub subHex_() input_value = InputBox("Enter a decimal number between 64 and 254, or a hex value between x40 and xFE (either uppercase or lowercase") If input_value = "" Then MsgBox ("invalid input") Exit Sub ElseIf (IsNumeric(input_value) Or _ (Len(Trim(input_value)) = 3 And _ UCase(Left(input_value, 1)) = "X") And _ IsNumeric("&H" & Mid(input_value, 2, 2))) Then If (UCase(Left(input_value, 1)) = "X") Then input_value = "&h" & Mid(input_value, 2, 2) End If If (input_value >= 64 And input_value <= 254) Then hex_value = Hex(input_value) Else MsgBox ("value '" & input_value & "' out of range") Exit Sub End If Else MsgBox ("non numeric input '" & input_value & "'") Exit Sub End If autECLMacro "apl " & Hex(input_value) End Sub
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: Tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Read this Search400.com Featured Topic: Monitoring your iSeries system .
Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.