REFERENCE(I_STATUS_PROFILE) LIKE GMGRTYPE-STATUS_PROFILE
REFERENCE(E_GMGRTYPE) TYPE GMGRTYPE
REFERENCE(I_GRANT_TYPE) TYPE GMGRTYPE-GRANT_TYPE
REFERENCE(E_F_GMGRTYPE) TYPE GMGRTYPE
VALUE(E_GMGRTYPE) TYPE GMGRTYPE