extended code block does not working in Harbour

[shri_fwh]

Hi ,

I am moving to step by step from xHarbour to Harbour. I have compiled the below code in Harbour its gives an error but where as the same code works fine in xHarbour. I am not able find out why ? or whether Harbour supports this kind of syntax. Please help on this. Thanks in advance..!

Code: Select all  Expand view

    oLovBrw:bKeyChar := < | n, f |
    IF n == VK_RETURN
       oGet:cText( PadR(AllTrim( oQry:FieldGet(  "acct_name" )  ),50 ) )
       aPartyInfo := { oQry:FieldGet(  "coctr_id" ) , oQry:FieldGet(  "tcs_percent" )  }
       oLovWnd:END()
    ENDIF
                        >

 

Thanks
Shridhar

[nageswaragunupudi]

The syntax for Harbour is

{ |p1,p2,..|
....code ...
}

If you include "hbcompat.ch", then you can use the present syntax as in xharbour and that will be automatically translates to harbour syntax.

If you are using recent FWH, fivewin.ch also translates xharbour syntax to harbour syntax.

[shri_fwh]

Hi Rao ,

Included "hbcompat.ch" now its working fine..! Thanks a lot..!

Thanks
Shridhar