User Exit variable to determine Month to date

Question

Hello folks, wondering if someone could please assist with this problem.  I have  a need for a user exit variable that will determine the MTD based on a user input from another variable.  For example, if a user enters 09/15/2009, the exit will know to retrieve information only for the days from 09/012009 - 09/15/2009.  Here is the sample of the code that our ABAP programmer came up with but so far it's not working.  Can someone please have a look at the codes below and let me know what may be the problem?  Thanks.
in CMOD:
*&  Include           ZXRSRU01
  DATA: l_sub_name TYPE char30,
        l_f_chk TYPE rs38l_fnam.
  CONSTANTS: lc_sub_prefix TYPE char5 VALUE 'F_BW_'.
  CASE i_step.
    WHEN 3.
      CONCATENATE lc_sub_prefix i_s_rkb1d-infocube INTO l_sub_name.
    WHEN OTHERS.
      CONCATENATE lc_sub_prefix i_vnam INTO l_sub_name.
  ENDCASE.
*--- this for XXX project. please create programs for
*--- each individual projects (project).
*--- variables at STEP 2
  CASE i_vnam.
    WHEN  'BCCMTD'.
      IF l_sub_name IS NOT INITIAL.
        SORT i_t_var_range BY vnam iobjnm.
        PERFORM (l_sub_name) IN PROGRAM    zbw_XXX_exit
                                  USING    i_t_var_range
                                  CHANGING e_t_range.
        CLEAR l_sub_name.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
**--- infocubes at STEP 3
  CASE i_s_rkb1d-infocube.
    WHEN 'BSD_M01'.
      IF l_sub_name IS NOT INITIAL.
        SORT i_t_var_range BY vnam iobjnm.
        PERFORM (l_sub_name) IN PROGRAM    zbw_XXX_exit
                                  USING    i_t_var_range
                                  CHANGING e_t_range.
        CLEAR l_sub_name.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
Edited by: David on Oct 1, 2009 5:08 PM

Answer 1

more info on the program
In zbw_XXX_exit program
FORM f_bw_bccmtd USING    i_t_var_range TYPE zbw_rrs0_t_var_range
                 CHANGING e_t_range     TYPE rsdd_t_range.
*--- current date
  DATA: l_current_date TYPE sy-datum.
*--- initialize the variables
  CLEAR:   v_wa_var_range, v_exch_rate,
           v_exch_temp, v_wa_return.
*--- get the appropriate value from input variable table
  READ TABLE i_t_var_range INTO v_wa_var_range
       WITH KEY vnam    = c_var_name3
                iobjnm  = c_obj_name2
                BINARY SEARCH.
  IF sy-subrc = 0.
    l_current_date = v_wa_var_range-low.
    l_current_date = l_current_date - 1.
    CLEAR v_wa_return.
*--- populate return value
    v_wa_return-sign = c_sign.
    v_wa_return-opt  = c_opt_bt.
    CONCATENATE l_current_date+0(6) c_one INTO v_wa_return-low.
    v_wa_return-high  = l_current_date.
    APPEND v_wa_return TO e_t_range.
  ENDIF.
ENDFORM.