Skip to main content

Want to set CAPLOCK and NUMLOCK via Macro

  • June 29, 2017
  • 2 replies
  • 0 views
D

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


#Reflection14.x
#Desktop
#Reflection

2 replies

D

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


#Reflection14.x
#Desktop
#Reflection
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


D

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


#Reflection14.x
#Desktop
#Reflection
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".

Recent badge winners

Explore all badges
Terms & ConditionsAccessibility statement