<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Business Add-Ins (BADI) > Business Add-Ins (BADI) Examples > ZMB_IM_MB_MIGO_BADI > MODE_SET

METHOD IF_EX_MB_MIGO_BADI~MODE_SET .
*  Digunakan di cmod > EXIT_SAPMM07M_001 > ZXMBCU02
*  untuk mendapatkan Nilai GODYNPRO-ACTION dan GODYNPRO-REFDOC
 
TYPES: BEGIN OF LN_MODE_SET,
         ACTION(3),
         REFDOC(3),
        END OF LN_MODE_SET.
DATA: OBJ_MODE_SET TYPE LN_MODE_SET.
*  BREAK ABAP08.
 
IMPORT OBJ_MODE_SET TO OBJ_MODE_SET FROM MEMORY ID 'MIGO_MODE_SET'.
 
IF OBJ_MODE_SET IS INITIAL.
   OBJ_MODE_SET-ACTION = I_ACTION.
   OBJ_MODE_SET-REFDOC = I_REFDOC.
  EXPORT OBJ_MODE_SET FROM OBJ_MODE_SET TO MEMORY ID 'MIGO_MODE_SET'.
ELSE.
  IF OBJ_MODE_SET-ACTION NE I_ACTION OR OBJ_MODE_SET-REFDOC NE I_REFDOC.
    CLEAR OBJ_MODE_SET.
     OBJ_MODE_SET-ACTION = I_ACTION.
     OBJ_MODE_SET-REFDOC = I_REFDOC.
    EXPORT OBJ_MODE_SET FROM OBJ_MODE_SET TO MEMORY ID 'MIGO_MODE_SET'.
  ENDIF.
ENDIF.
*--------------------------------------------------------------------*
 
ENDMETHOD.