Problem with Generic datasource from function

Question

I developed generic datasource from function module.
But I have problem with the select options.
First one is order number  OBJECT_ID type char 10. When I input Object_ID = 45755 , no data selected.
When input 0000045755, one data record selected.
But I called functiion CONVERSION_EXIT_ALPHA_INPUT to conevet the input data. And I found  45755 was converted to 0000045755, but no record selected.
     LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'OBJECT_ID'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_OBJECT_ID.
        APPEND L_R_OBJECT_ID.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = L_R_OBJECT_ID-high
  IMPORTING
   OUTPUT        = L_R_OBJECT_ID-high
         CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = L_R_OBJECT_ID-low
  IMPORTING
   OUTPUT        = L_R_OBJECT_ID-low
      ENDLOOP.
Another problem is CREATED_AT, which type is DEC 15,  how could I handle it ?  input is yyyymmdd, I tried to add '000000', but can't select any data.
Thanks for any help.

Answer 1

code is :
FUNCTION ZACTIVITY_PLAN_PARTNER.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     VALUE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"     VALUE(I_REMOTE_CALL) TYPE  SBIWA_FLAG DEFAULT SBIWA_C_FLAG_OFF
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  ZACTIVITY_PLAN_PARTNER OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
Example: DataSource for table SFLIGHT
  TABLES: CRMD_ORDERADM_H.
Auxiliary Selection criteria structure
  DATA: L_S_SELECT TYPE SRSC_S_SELECT.
  DATA:   BEGIN OF ACTIVITY,
                   OBJECT_ID       type CRMT_OBJECT_ID_DB,
                   PROCESS_TYPE    type CRMT_PROCESS_TYPE_DB,
                   OBJECT_TYPE     type CRMT_SUBOBJECT_CATEGORY_DB,
                   CREATED_BY      type CRMT_CREATED_BY,
                   CREATED_AT      type CRMT_CREATED_AT,
           END OF ACTIVITY.
  DATA: ZACTIVITY   LIKE TABLE OF ACTIVITY WITH HEADER LINE,
        Zorder   LIKE TABLE OF ZORDER_S WITH HEADER LINE,
        d_start type c length 15,
        d_end type c length 15
Maximum number of lines for DB table
  STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
counter
          S_COUNTER_DATAPAKID LIKE SY-TABIX,
cursor
          S_CURSOR TYPE CURSOR.
Select ranges
  RANGES: L_R_OBJECT_ID FOR CRMD_ORDERADM_H-OBJECT_ID,
          L_R_CREATED_AT FOR CRMD_ORDERADM_H-CREATED_AT,
          L_R_date for ZACTIVITY_PLAN_PARTNER-ZPLAN_DAT.
Initialization mode (first call by SAPI) or data transfer mode
(following calls) ?
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
Check DataSource validity
    CASE I_DSOURCE.
      WHEN 'ZACTIVITY_PLAN_PARTNER'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE E009(R3). ENDIF.
this is a typical log call. Please write every error message like this
        RAISE ERROR_PASSED_TO_MESS_HANDLER.
    ENDCASE.
    APPEND LINES OF I_T_SELECT TO S_S_IF-T_SELECT.
Fill parameter buffer for data extraction calls
    S_S_IF-REQUNR    = I_REQUNR.
    S_S_IF-DSOURCE = I_DSOURCE.
    S_S_IF-MAXSIZE   = I_MAXSIZE.
    APPEND LINES OF I_T_FIELDS TO S_S_IF-T_FIELDS.
  ELSE.                 "Initialization mode or data extraction ?
First data package -> OPEN CURSOR
    IF S_COUNTER_DATAPAKID = 0.
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'OBJECT_ID'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_OBJECT_ID.
        APPEND L_R_OBJECT_ID.
     ENDLOOP.
if  L_R_OBJECT_ID-option is initial.
  L_R_OBJECT_ID-option = 'EQ'.
  L_R_OBJECT_ID-sign ='I'.
  endif.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = L_R_OBJECT_ID-high
  IMPORTING
   OUTPUT        = L_R_OBJECT_ID-high
         CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT         = L_R_OBJECT_ID-low
  IMPORTING
   OUTPUT        = L_R_OBJECT_ID-low
      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CREATED_AT'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_CREATED_AT.
        APPEND L_R_CREATED_AT.
      ENDLOOP.
      OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT OBJECT_ID FROM CRMD_ORDERADM_H
                              WHERE OBJECT_ID  IN  L_R_OBJECT_ID
                              AND          CREATED_AT IN L_R_CREATED_AT    and
                                    PROCESS_TYPE EQ 'Z220'.
    ENDIF.                             "First data package ?
Fetch records into interface table.
  named E_T_'Name of extract structure'.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDFUNCTION.