@bk

[Richard Kreiss]

> -----Original Message-----
> From: filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com
> [mailto:filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com] On
> Behalf Of Mike Schwartz
> Sent: Monday, October 28, 2013 3:55 PM
> To: filepro-list at lists.celestial.com
> Subject: RE: @bk
> 
> > Is there an easy way to have all browse key options check a sub
> > routine
> prior
> > to execution the actual browse key option?
> >
> > Something similar to @wuk*
> >
> > Yes, I can put:
> >
> > If:@bk="a"
> > Then: GOSUB do_this; do this on return If:@bk="b"
> > Then;GOSUB do_this;di this on return
> >
> > Only problem is there are about a dozen options and it seems like a
> > lot of extra programming to do when a @bk ="*" - do this first then
> > execute the actual @bk= option.
> >
> > Richard Kreiss
> 
>      You should be able to do it with a "contains" statement:
> 
> Then: lg(1,*)=@BK
> If:       "ABCDZ" co lg:
> Then:  goto Do_This:
> 
>      (That is untested code, just off the top of my head...)
> 
>      It might work if write it like the line below, but I've never used
@BK this
> way:
> 
> If:       "ABCDZ" co @BK:
> Then:  goto Do_This:


Thanks for the suggestion.  I tested this and it does work.

Richard