VALUE(I_KZEAR_OLD) LIKE RESBD-KZEAR
REFERENCE(I_KZEAR_OLD) LIKE RESBD-KZEAR
REFERENCE(I_KZEAR) LIKE RESBD-KZEAR
REFERENCE(E_KZEAR) LIKE RESBD-KZEAR
VALUE(X_KZEAR) LIKE RESB-KZEAR