In a driver program I have

ON ERROR DO what_err WITH ERROR(),MESSAGE(),PROGRAM(),LINENO(),MESSAGE(1)

BRSWX && invalid command

and in what_err I have

LPARAMETERS lnError, lcMessage, lcProgram, lnLineNo, lcCode
LOCAL laErrData
DECLARE laErrData[1]

ON ERROR *
= AERROR(laErrData)

RETURN

Problem ERROR always returns 0, laErrData[1,1] returns 16 as expected.

Works in FPW 2.6. What am I doing wrong?