anchor.diff:      CALL FUNCTION 'RS_CUA_INTERNAL_FETCH'
         EXPORTING
           program         = iv_program_name
  -        language        = gc_english
  +        language        = mv_language
           state           = 'A'
         IMPORTING
           adm             = rs_cua-adm
  
positive.code:     SELECT SINGLE ddtext FROM ddtypet
        INTO ev_ddtext
        WHERE typegroup = ms_item-obj_name
        AND ddlanguage = gc_english.
      IF sy-subrc <> 0.
        RAISE EXCEPTION TYPE lcx_not_found.
      ENDIF.
  
negative.code: 
      CALL FUNCTION 'NUMBER_RANGE_OBJECT_READ'
        EXPORTING
          language          = mv_language
          object            = lv_object
        IMPORTING
          object_attributes = ls_attributes
  