BADi zugriff auf Memory

Code: Alles auswählen.

method IF_EX_ERP_CFG_ADAPT~SET_CONTEXT.


  TYPES: BEGIN OF cc01_parameter_type,
         fieldname TYPE dntab-fieldname,
*d       value     LIKE comw-atwrt,                      "note 888589
         value     TYPE cc_effld,                        "note 888589
         text      TYPE tccept-effptext,
         sort      TYPE tccep-sort,
       END OF cc01_parameter_type.


  data   itab_parameter         type cc01_parameter_type.
  data   save_valid_or_invalid  type cc01_valid_or_invalid_type.
  data   akt_tecs               type tecs.
  data   itab_tecn              type tecn.
  data   akt_aennr              type aenr-aennr.
  data   akt_prio               type tccet-efftpr.
  data   akt_datuv              type ccdeco-datub.
  DATA:  oerror                 TYPE REF TO cx_root,
         lv_txterror            TYPE string,
         lv_txterror_long       type string.


data: ihrez_mem type c LENGTH 12.

IMPORT ihrez_mem to ihrez_mem FROM MEMORY ID 'IHREZ'.


  import itab_parameter         to itab_parameter          from memory id 'CCPR'.
  import save_valid_or_invalid  to save_valid_or_invalid   from memory id 'CCPR'.
  import akt_tecs               to akt_tecs                from memory id 'CCPR'.
  import itab_tecn              to itab_tecn               from memory id 'CCPR'.
  import akt_aennr              to akt_aennr               from memory id 'CCPR'.
  import akt_prio               to akt_prio                from memory id 'CCPR'.
  import akt_datuv              to akt_datuv               from memory id 'CCPR'.



endmethod.