VALUE(XY_SAVE_OKCODE) LIKE REGEN-OKCODE
VALUE(OK_CODE) LIKE REGEN-OKCODE
REFERENCE(I_CALLED_BY) LIKE REGEN-OKCODE DEFAULT 'EC50E'
REFERENCE(X_OKCODE) LIKE REGEN-OKCODE
VALUE(X_CALLED_BY) LIKE REGEN-OKCODE OPTIONAL