*eject,
*----------------------------------------------------------------------
*        Initialisieren Konfigurator-DDB
*----------------------------------------------------------------------
FORM DDB_INIT USING P_DATE LIKE CABN-DATUV.

  DATA: BEGIN OF ITYPE.
          INCLUDE STRUCTURE DDB_ITP.
  DATA: END   OF ITYPE.

  DATA: BEGIN OF JUSTIFICANDS.
          INCLUDE STRUCTURE TMS_JUST.
  DATA: END   OF JUSTIFICANDS.
*----------------------------------------------------------------------

  ITYPE-OBJTYP = COMO-OBJID.
  ITYPE-OBJKEY = como-objek.

  JUSTIFICANDS-KNTYPE = 'DI'.

  CALL FUNCTION 'CUDB_INIT'
       EXPORTING
            DATE           = P_DATE
       EXCEPTIONS
            INTERNAL_ERROR = 1
            OTHERS         = 2.

  IF sy-subrc <> 0.
    message e511.
  ENDIF.

  CALL FUNCTION 'CUDB_MAKE_PART_INSTANCE'
       EXPORTING
            ITYPE          = ITYPE
            PARENT         = '00000000'
            POS            = '0000'
            KNTYPE         = JUSTIFICANDS-KNTYPE
            SEGM           = JUSTIFICANDS-SEGM
            AUTHOR         = JUSTIFICANDS-AUTHOR
            TRIGGER        = JUSTIFICANDS-TRIGGER
       EXCEPTIONS
            INTERNAL_ERROR = 01
            INVALID_TYPE   = 02.

* problem with make part instance
  IF SY-SUBRC > 0.
    MESSAGE e511.
  ENDIF.

  f_instanz = '999999999999990000'.
  f_cinst   = '00000001'.

  X_ROOT_INSTANCE   = F_CINST.
  X_PARENT_INSTANCE = F_CINST.
  X_SELF_INSTANCE   = F_CINST.

  PERFORM SET_ROOT_PARENT_SELF.

ENDFORM.

* Begin Correction 27.01.2004 0701214 *******************
*---------------------------------------------------------------------*
*       FORM FLAG_EHS_MOD_ACTIVE_SET                                  *
*---------------------------------------------------------------------*
FORM FLAG_EHS_MOD_ACTIVE_SET "#EC CALLED
* Purpose: Form to set the global flag G_FLG_EHS_MOD_ACTIVE (see the
*          comments at its declaration) via external PERFORM's (see
*          also note 701214).
     USING
        VALUE(I_FLAG_EHS_MOD_ACTIVE) TYPE C.
*       new value of the flag

* Function body -------------------------------------------------------
  G_FLG_EHS_MOD_ACTIVE = I_FLAG_EHS_MOD_ACTIVE.

ENDFORM.
* End Correction 27.01.2004 0701214 *********************