configure keyboard
Re: configure keyboard
by Robert Sample » Fri May 06, 2011 8:26 pm
Keyboard mappings depend upon the terminal emulator you are using (such as PC3270, REFLECTION, HUMMINGBIRD, etc). Consult your terminal emulation documentation to find out if what you want to do is possible under that emulator, and if so, how to do it.
- Robert Sample
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Location: Dubuque, Iowa, USA
- Has thanked: 1 time
- Been thanked: 279 times
Re: configure keyboard
by Pedro » Wed May 11, 2011 2:31 am
Julie, it is still not clear what you are asking for. Making assumption...
For PCOMM: in your ISPF application, you would still define ZPF19 as you desire.
From the PCOMM keyboard utility, you can re-map the keys. First, select the 'n' key. Then assign 'program function key 19' to the Ctrl key.
For my use, I mapped Ctrl-F to PF5. So when I press Ctrl-F, it issues PF5 and works as a RFIND (repeat find).
For PCOMM: in your ISPF application, you would still define ZPF19 as you desire.
From the PCOMM keyboard utility, you can re-map the keys. First, select the 'n' key. Then assign 'program function key 19' to the Ctrl key.
For my use, I mapped Ctrl-F to PF5. So when I press Ctrl-F, it issues PF5 and works as a RFIND (repeat find).
Pedro Vera
-
Pedro - Posts: 686
- Joined: Thu Jul 31, 2008 9:59 pm
- Location: Silicon Valley
- Has thanked: 0 time
- Been thanked: 53 times
Re: configure keyboard
by Julie » Wed May 11, 2011 12:40 pm
Thanks Pedro.
I finally decided to create a command in ISPCLIB.
I finally decided to create a command in ISPCLIB.
Address TSO
"ALTLIB ACTIVATE APPLICATION(CLIST) DA('DMONT.ISPF.REXX')"
Address ISPEXEC
"LIBDEF ISPPLIB DATASET ID('DMONT.ISPF.PANEL')"
"LIBDEF ISPSLIB DATASET ID('DMONT.ISPF.SKELS')"
"LIBDEF ISPMLIB DATASET ID('DMONT.ISPF.MSG')"
CALL MONCMPEM
Address ISPEXEC
"LIBDEF ISPMLIB"
"LIBDEF ISPSLIB"
"LIBDEF ISPPLIB"
Address TSO
"ALTLIB DEACTIVATE APPLICATION(CLIST)"
Exit (1)
"ALTLIB ACTIVATE APPLICATION(CLIST) DA('DMONT.ISPF.REXX')"
Address ISPEXEC
"LIBDEF ISPPLIB DATASET ID('DMONT.ISPF.PANEL')"
"LIBDEF ISPSLIB DATASET ID('DMONT.ISPF.SKELS')"
"LIBDEF ISPMLIB DATASET ID('DMONT.ISPF.MSG')"
CALL MONCMPEM
Address ISPEXEC
"LIBDEF ISPMLIB"
"LIBDEF ISPSLIB"
"LIBDEF ISPPLIB"
Address TSO
"ALTLIB DEACTIVATE APPLICATION(CLIST)"
Exit (1)
'isredit macro'
'isredit locate next msgline'
if rc = 4 then 'ispexec setmsg msg(moner004)'
'isredit locate next msgline'
if rc = 4 then 'ispexec setmsg msg(moner004)'
- Julie
- Posts: 21
- Joined: Tue May 03, 2011 12:45 pm
- Has thanked: 0 time
- Been thanked: 0 time