marshallgrads Absent Member.
Absent Member.
1217 views

Want to set CAPLOCK and NUMLOCK via Macro

We are using the new version on MICRO FOCUS Reflection (v16). In the older version of Reflection (v14) I was able to code setting NUMLOCK and CAPLOCK via a macro command.

OLD VERSION CODE (LEGACY PROJECT)
 Sub ACCESSION_ORDERS()
' Generated by the Reflection Macro Recorder on 08-16-2013 07:55:22.98.
' Generated by Reflection for UNIX and OpenVMS 14.0.6.
' BUTCH JONES 8/16/2013

On Error GoTo ErrorHandler

Const NEVER_TIME_OUT = 0

Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M

LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)

With Session

Session.CapsLock = True
Session.NumLock = True


.MsgBox "You are a pretty baby"

End With

Exit Sub

ErrorHandler:
Session.MsgBox Err.Description, vbExclamation + vbOKOnly

' Recording stopped at 07:55:41.87.
End Sub


The new version will not allow this code sequence to work. I have also tried coding this in the current project, NOT LEGACY..

NEW VERSION CODE

Sub caplock()

' Generated by the Reflection Macro Recorder on 06-29-2017 11:40:43.11.
' Generated by Micro Focus Reflection Desktop Pro (16.0.308.0).

Dim osCurrentScreen As Screen
Dim osCurrentTerminal As Terminal
Dim returnValue As Integer

Const NEVER_TIME_OUT = 0

Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M

Set osCurrentTerminal = ThisFrame.SelectedView.control
Set osCurrentScreen = osCurrentTerminal.Screen

LF = Chr(10)
CR = Chr(13)

ThisScreen.CapsLock = True
ThisScreen.NumLock = True

Exit Sub

' Recording stopped at 11:40:49.72.

End Sub



Nothing seems to work. Anyone have an idea that they can suggest?

Thanks,
Butch Jones
0 Likes
2 Replies
AutomaticReply Absent Member.
Absent Member.

Re: Want to set CAPLOCK and NUMLOCK via Macro

marshallgrads,

It appears that in the past few days you have not received a response to your
posting. That concerns us, and has triggered this automated reply.

These forums are peer-to-peer, best effort, volunteer run and that if your issue
is urgent or not getting a response, you might try one of the following options:

- Visit https://www.microfocus.com/support-and-services and search the knowledgebase and/or check
all the other self support options and support programs available.
- Open a service request: https://www.microfocus.com/support
- You could also try posting your message again. Make sure it is posted in the
correct newsgroup. (http://forums.microfocus.com)
- You might consider hiring a local partner to assist you.
https://www.partnernetprogram.com/partnerfinder/find.html

Be sure to read the forum FAQ about what to expect in the way of responses:
http://forums.microfocus.com/faq.php

Sometimes this automatic posting will alert someone that can respond.

If this is a reply to a duplicate posting or otherwise posted in error, please
ignore and accept our apologies and rest assured we will issue a stern reprimand
to our posting bot.

Good luck!

Your Micro Focus Forums Team
http://forums.microfocus.com



0 Likes
Highlighted
vfast Absent Member.
Absent Member.

Re: Want to set CAPLOCK and NUMLOCK via Macro

CapsLock and NumLock propertes of the macro "Screen" interface seem to work just fine as far as I can tell. In VT terminal, the NumLock key sends a host key called "PF1".
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.