On Thursday, 12/13/2007 at 05:55 EST, Doug Breneman/Endicott/[EMAIL PROTECTED]
wrote:
> You can use the following macro to set PF10 to BROWSE and even display
it at
> the bottom of the screen.
If I may, here's mine:
/* Get the displayed PF key settings */
'EXTRACT /RESERVED'
pfrow1_idx = find(reserved.1, '-5')
pfrow2_idx = find(reserved.1, '-4')
'EXTRACT /RESERVED *'
pfrow1 = reserved.pfrow1_idx
pfrow2 = reserved.pfrow2_idx
/* Now change F4 and F10 */
pfrow1 = overlay('Sort(Type)',pfrow1,index(pfrow1,'4=')+3)
pfrow2 = overlay('Browse',pfrow2,index(pfrow2,'10=')+4)
'COMMAND SET RESERVED' pfrow1
'COMMAND SET RESERVED' pfrow2
'COMMAND SET PF10 MACRO EXECUTE CURSOR BROWSE'
'COMMAND SET PF22 MACRO EXECUTE CURSOR BROWSE'
'COMMAND SET PF4 BEFORE STYPE'
'COMMAND SET PF16 BEFORE STYPE'
Alan Altmark
z/VM Development
IBM Endicott
