*& Report  Z_DEL_PERNR_NEW
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report z_del_pernr_new.


data:
  infty_return type bapireturn1,
  dummy_return type bapireturn1,
  wa_t777d     type t777d,
  lt_data      type ref to data,
  ls_data      type ref to data,
  ls_rec       type ref to data,
  wa_dd03l     type dd03l .

DATA: BEGIN OF wa_oper,
     PERNR  LIKE  P0001-PERNR,
     SUBTY  LIKE  P0001-SUBTY,
     ENDDA  LIKE  P0001-ENDDA,
     BEGDA  LIKE  P0001-BEGDA,
  END OF wa_oper.




field-symbols: <table>       type any table,
               <record>      type any,
               <record_line> type any.

parameters:
  p_pernr type pernr_d OBLIGATORY,
  p_endda type endda OBLIGATORY,
  p_begda type begda OBLIGATORY,
  p_infty type t777d-infty OBLIGATORY.


start-of-selection.

  select single *
    into wa_t777d
    from t777d
    where infty eq p_infty .


  create data lt_data type standard table of (wa_t777d-dbtab).
  assign lt_data->* to <table>.

  create data ls_data type (wa_t777d-ppnnn).
  assign ls_data->* to <record>.



  select  single *
    into wa_dd03l
    from dd03l
     where tabname eq wa_t777d-dbtab
    and  fieldname eq 'ENDDA'.


  if wa_dd03l is not initial.

    select * from (wa_dd03l-tabname)

     into table <table>

      where pernr eq p_pernr  and

                    begda eq p_begda  and

                    endda eq p_endda.
  else.

    select * from (wa_t777d-dbtab)

      into table <table>

       where pernr eq p_pernr.

  endif.

  check <table>[] is not initial.

  create data ls_rec type (wa_t777d-dbtab).
  assign ls_rec->* to <record_line>.

  loop at <table>  assigning <record_line>.

   MOVE-CORRESPONDING <record_line> TO <record>.
   MOVE-CORRESPONDING <record> to wa_oper.

    CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
      EXPORTING
        number = p_pernr.

    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        infty         = p_infty
        number        = wa_oper-pernr
        subtype       = wa_oper-subty
        validityend   = wa_oper-endda
        validitybegin = wa_oper-begda
        record        = <record>
        operation     = 'DEL'
*       tclas         = 'A'
        dialog_mode   = '1'
      IMPORTING
*
        return        = infty_return.

*   Release the employee.

    CALL FUNCTION 'BAPI_EMPLOYEET_DEQUEUE'
      EXPORTING
        number        = wa_oper-pernr
        validitybegin = sy-datum
      IMPORTING
        return        = dummy_return.

  endloop.