data: Z_BUKRS type T001-BUKRS value '09'.
data: Z_DATE type D value '19000101'.
data: Z_ASSETMAINO type BAPI1022_1-ASSETMAINO value '000013207648'.
data: Z_ASSETSUBNO type BAPI1022_1-ASSETSUBNO value '0000'.

data: Z_REQUESTEDTABLESX type BAPI1022_REQUESTEDTABLESX.
data: Z_RETURN type BAPIRET2.
data: IT_SELECTIONCRITERIA type standard table of BAPI1022_SELECTIONCRITERIA.
data: WA_SELECTIONCRITERIA like line of IT_SELECTIONCRITERIA.
data: IT_TIMEDEPENDENTDATA_OUT type standard table of BAPI1022_FEGLG003_PID.
data: WA_TIMEDEPENDENTDATA_OUT like line of IT_TIMEDEPENDENTDATA_OUT.
data: IT_TIMEDEPENDENTDATA_IN type standard table of BAPI1022_FEGLG003.
data: WA_TIMEDEPENDENTDATA_IN like line of IT_TIMEDEPENDENTDATA_IN.
data: IT_TIMEDEPENDENTDATAX_IN type standard table of BAPI1022_FEGLG003X.
data: WA_TIMEDEPENDENTDATAX_IN like line of IT_TIMEDEPENDENTDATAX_IN.



start-of-selection.
  Z_REQUESTEDTABLESX-TIMEDEPENDENTDATA = 'X'.

  WA_SELECTIONCRITERIA-PARAMETER = 'GENERALDATA'.
  WA_SELECTIONCRITERIA-FIELD     = 'ASSET'.
  WA_SELECTIONCRITERIA-SIGN      = 'I'.
  WA_SELECTIONCRITERIA-OPTION    = 'EQ'.
  WA_SELECTIONCRITERIA-LOW       = Z_ASSETMAINO.
  append WA_SELECTIONCRITERIA to IT_SELECTIONCRITERIA.

  call function 'BAPI_FIXEDASSET_GETLIST'
    exporting
      COMPANYCODE                = Z_BUKRS
      EVALUATIONDATE             = Z_DATE
*   DEPRECIATIONAREA           =
*   MAXENTRIES                 =
      REQUESTEDTABLESX           = Z_REQUESTEDTABLESX
   importing
     RETURN                     = Z_RETURN
   tables
     SELECTIONCRITERIA          = IT_SELECTIONCRITERIA
*   GENERALDATA                =
*   INVENTORY                  =
*   POSTINGINFORMATION         =
     TIMEDEPENDENTDATA          = IT_TIMEDEPENDENTDATA_OUT
*   ALLOCATIONS                =
*   ORIGIN                     =
*   INVESTACCTASSIGNMNT        =
*   NETWORTHVALUATION          =
*   REALESTATE                 =
*   INSURANCE                  =
*   LEASING                    =
*   DEPRECIATIONAREAS          =
*   DEPRECIATIONAREAVALS       =
*   EXTENSIONOUT               =
            .

  loop at IT_TIMEDEPENDENTDATA_OUT into WA_TIMEDEPENDENTDATA_OUT
    where FROM_DATE = Z_DATE.
    move-corresponding WA_TIMEDEPENDENTDATA_OUT to WA_TIMEDEPENDENTDATA_IN.
    WA_TIMEDEPENDENTDATA_IN-PERSON_NO = '00017582'.
    WA_TIMEDEPENDENTDATAX_IN-PERSON_NO = 'X'.
    exit.
  endloop.


  call function 'BAPI_FIXEDASSET_CHANGE'
    exporting
      COMPANYCODE                = Z_BUKRS
      ASSET                      = Z_ASSETMAINO
      SUBNUMBER                  = Z_ASSETSUBNO
*     GROUPASSET                 =
*     GENERALDATA                =
*     GENERALDATAX               =
*     INVENTORY                  =
*     INVENTORYX                 =
*     POSTINGINFORMATION         =
*     POSTINGINFORMATIONX        =
     TIMEDEPENDENTDATA          = WA_TIMEDEPENDENTDATA_IN
     TIMEDEPENDENTDATAX         = WA_TIMEDEPENDENTDATAX_IN
*     ALLOCATIONS                =
*     ALLOCATIONSX               =
*     ORIGIN                     =
*     ORIGINX                    =
*     INVESTACCTASSIGNMNT        =
*     INVESTACCTASSIGNMNTX       =
*     NETWORTHVALUATION          =
*     NETWORTHVALUATIONX         =
*     REALESTATE                 =
*     REALESTATEX                =
*     INSURANCE                  =
*     INSURANCEX                 =
*     LEASING                    =
*     LEASINGX                   =
   importing
     RETURN                     = Z_RETURN
*   TABLES
*     DEPRECIATIONAREAS          =
*     DEPRECIATIONAREASX         =
*     INVESTMENT_SUPPORT         =
*     EXTENSIONIN                =
            .
  commit work and wait.

loop at IT_TIMEDEPENDENTDATA_OUT into WA_TIMEDEPENDENTDATA_OUT
    where FROM_DATE = Z_DATE.
    move-corresponding WA_TIMEDEPENDENTDATA_OUT to WA_TIMEDEPENDENTDATA_IN.
    WA_TIMEDEPENDENTDATA_IN-PERSON_NO = '00017582'.
    WA_TIMEDEPENDENTDATAX_IN-PERSON_NO = 'X'.

WA_TIMEDEPENDENTDATAX_IN-from_date = 'X'.
WA_TIMEDEPENDENTDATAX_IN-to_date = 'X'.

    exit.
  endloop.