Thanks Doug. Must be Christmas!
I don't want to sound ungrateful, but am I wrong in still thinking
that entering this line in FLIST $PROFILE:
*PFKEYS 10 BRW BROWSE the file on cursor line
and then updating the last line to include '10 BRW'
is a little simpler and easier?
Ron
On 12/13/07, Doug Breneman <[EMAIL PROTECTED]> wrote:
>
>
> 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
