Get the domain values

DATA :  L_T_VALUE TYPE  RE_T_RSDOMAVAL,
          L_R_VALUE TYPE DD07V,
          L_R_VRM_VALUES TYPE VRM_VALUE.

  CALL METHOD CL_RECA_DDIC_DOMA=>GET_VALUES
    EXPORTING
      ID_NAME   = P_L_F_DOMAIN
      ID_LANGU  = SY-LANGU
    IMPORTING
      ET_VALUES = L_T_VALUE
    EXCEPTIONS
      NOT_FOUND = 1
      OTHERS    = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.

No comments:

Post a Comment

/*Newer Post*/ Older Post Home