DECLARE

etxt = VARCHAR(2000) NOT NULL;

emod = VARCHAR(2000) NOT NULL;

eline = INTEGER NOT NULL;

ENDDECLARE

{

CurSession.LastRuntimeError = NULL; // Clear previous error info

res = p4(a = a, b = b); // p4 might cause a runtime error like "division by zero"

IF CurSession.LastRuntimeError IS NOT NULL THEN

// Handle error

etxt = JsonString(CurSession.LastRuntimeError.GetMember(name = 'errortext')).Value.Value;

emod = JsonString(CurSession.LastRuntimeError.GetMember(name = 'module')).Value.Value;

JsonNumber(CurSession.LastRuntimeError.GetMember(name = 'linenumber')).GetValue(value = BYREF(eline));

MESSAGE 'Error when calling "p4" (line ' + VARCHAR(eline) + ' of module "' + emod + '"):' + HC_NEWLINE + etxt;

ENDIF;

}