Routine in Infopackage selection

Question

Hi,
We are using DB Connect and hence we need to write a routine in Infopackage selections to restrict the data to be extracted.
In the source file, there is a field called " Time stamp".
This is a Char 23 field with mm-dd-yyyy-hh.mm.ss.sssss format.
My requirement is lookinto first 10 char ( only for date) and filter the records.  If the date = Sy-datum, then only, i want to extract the data in BI staging.
Is it possible to write a routine in Infopackage ?   Can you pls help me ?
Or do i need to take the whole data into PSA and then write a routine in transformation while uploading to Data Target ?
Regds,
BW Small

Answer 1

Hi,
See the below code for Including  0FISCPER dynamically, so in that way you can write code to get your selection or change the data formate etc.., show this code to ABAPer ask according to this code implement your logic.
In below code I'm calculating  0FISCPER based on Sy-Datum using FM.
program conversion_routine.
* Type pools used by conversion program
type-pools: rsarc, rsarr, rssm.
tables: rssdlrange.
* Global code used by conversion rules
*$*$ begin of global - insert your declaration only below this line  *-*
* TABLES: ...
* DATA:   ...
*$*$ end of global - insert your declaration only before this line   *-*
*     InfoObject      = 0FISCPER
*     Fieldname       = FISCPER
*     data type       = NUMC
*     length          = 000009
*     convexit        = PERI7
form compute_FISCPER
  tables   l_t_range      structure rssdlrange
  using    p_infopackage  type rslogdpid
           p_fieldname    type rsfnm
  changing p_subrc        like sy-subrc.
*       Insert source code to current selection field
*$*$ begin of routine - insert your code only below this line        *-*
  DATA: l_idx LIKE sy-tabix,
        zzdate LIKE sy-datum,
        zzbuper LIKE t009b-poper,
        zzbdatj LIKE t009b-bdatj,
        zzperiod(7) TYPE c.
  READ TABLE l_t_range WITH KEY
       fieldname = 'FISCPER'.
  l_idx = sy-tabix.
  zzdate = sy-datum - 1.
  CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
    EXPORTING
      i_date               = zzdate
*             I_MONMIT             = 00
      i_periv              = 'V3'
           IMPORTING
     e_buper              = zzbuper
     e_gjahr              = zzbdatj.
*           EXCEPTIONS
*             INPUT_FALSE          = 1
*             T009_NOTFOUND        = 2
*             T009B_NOTFOUND       = 3
*             OTHERS               = 4
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CONCATENATE zzbdatj zzbuper INTO zzperiod.
  l_t_range-low = zzperiod.
  l_t_range-option = 'EQ'.
  l_t_range-sign = 'I'.
  MODIFY l_t_range INDEX l_idx.
  p_subrc = 0.
*$*$ end of routine - insert your code only before this line         *-*
endform.
Thanks
Reddy