browse keys (@bk)

[John Esak]

         If: f = "5"
>    20  Then: lookup ord = orders  k=lu   i=D -nxm b=(ba&bb&bc)
>          If: @bk = "X" or @bk = "x" or @sk="BRKY" or @bk = "c"
>    21  Then: GOTO end_shp
>          If: @bk = "A"
>    22  Then: lv=purchase_order_number;GOTO lok_lin
>          If: @bk = "s" or @bk = "S"
>    23  Then: rn=ord(@rn);GOTO get_shp
>          If: @BK = "U" or @bk = "u"
>    24  Then: fh="0";rn=ord(@rn);GOTO up_rec
>          If: @BK = "D" or @bk = "d"
>    25  Then: fh=f;rn=ord(@rn);ln=ord(14);GOTO del_rec

Just a quick note... this must be some legacy code you inherited, or just
very old code before you knew better... :-), but it makes it look here as if
testing the @bk for browse lookups is case-sensitive, because sometimes it
is used and other times not. @bk is not case sensitive, at least not for
letters, which are the only thing which are case sensitive themselves. If
you were checking for an ( or something, of course that requires that the
user press the Shift key to get to it, but this is not the same thing. For
those just starting to use @bk, it does not discern the difference between
a-z and A-Z, either is intercepted and acted upon in the same way.

John