You can use the following macro to set PF10 to BROWSE and even display it
at the bottom of the screen. I used PF10 just because it was available.
This macro is based on the example shown in the appendix of the CMS Command
and Utilities Reference.
/* MYFLIST XEDIT -- My FILELIST profile to add BROWSE on PF10 */
Parse Arg filelist_input
'MACRO PROFFLST' filelist_input
/* Define PF key 10 to be BROWSE */
"EXTRACT /RESERVED */" /* Get all reserved lines */
/* find the correct line to change by looking for "10=" */
Do i = 1 To reserved.0 /* get each reserved line */
Parse Var reserved.i line color ext_high pss high text
pf10_pos = "POS"("10=",text) /* find position of the change */
If pf10_pos = 0 Then Iterate
/* change the line */
newtext = "OVERLAY"("BROWSE",text,pf10_pos+4,10)
/* put new line on screen */
"SET RESERVED" line color ext_high pss high newtext
Leave /* found desired line; leave loop */
End
"SET PF10 BEFORE MACRO EXECUTE CURSOR BROWSE" /* set PF10 function */
Exit
You can use this macro by doing FILELIST (PROFILE MYFLIST or you can SET
DEFAULTS FILELIST PROFILE MYFLST.
Doug Breneman z/VM Development IBM Endicott
