Error while passing Free selections to standard program

Question

I am submitting a standard program fagl_account_items_gl and trying to pass the free selections of the LDB . However it does not seem to work for the program fagl_account_items_gl.
Listed below is the code i am using. Need help on this one.
REPORT ZTEST MESSAGE-ID ab
                             LINE-SIZE 180
                             LINE-COUNT 80(1)
                             NO STANDARD PAGE HEADING.
START-OF-SELECTION.
  TYPE-POOLS rsds.
  DATA: trange TYPE rsds_trange,
        trange_line
          LIKE LINE OF trange,
        trange_frange_t_line
          LIKE LINE OF trange_line-frange_t,
        trange_frange_t_selopt_t_line
          LIKE LINE OF trange_frange_t_line-selopt_t,
        texpr TYPE rsds_texpr.
  DATA trsparams TYPE TABLE OF rsparams.
  DATA r_bukrs TYPE RANGE OF t001-bukrs.
  DATA rsparams LIKE LINE OF r_bukrs.
  trange_line-tablename = 'SKB1_FS'.
  trange_frange_t_line-fieldname = 'MITKZ'.
  trange_frange_t_selopt_t_line-sign   = 'I'.
  trange_frange_t_selopt_t_line-option = 'EQ'.
  trange_frange_t_selopt_t_line-low    = 'D'.
  APPEND trange_frange_t_selopt_t_line  TO trange_frange_t_line-selopt_t.
  trange_frange_t_line-fieldname = 'MITKZ'.
  trange_frange_t_selopt_t_line-sign   = 'I'.
  trange_frange_t_selopt_t_line-option = 'EQ'.
  trange_frange_t_selopt_t_line-low    = 'K'.
  APPEND trange_frange_t_selopt_t_line  TO trange_frange_t_line-selopt_t.
  APPEND trange_frange_t_line TO trange_line-frange_t.
  APPEND trange_line TO trange.
  CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'
    EXPORTING
      field_ranges = trange
    IMPORTING
      expressions  = texpr.
  rsparams-sign = 'I'.
  rsparams-option = 'EQ'.
  rsparams-low = 'CH99'.
  APPEND rsparams TO r_bukrs.
  SUBMIT fagl_account_items_gl
   VIA SELECTION-SCREEN
             WITH FREE SELECTIONS texpr
             WITH sd_bukrs IN  r_bukrs
             WITH rldnr EQ 'ST'
             AND RETURN.

Answer 1

After days of fighting this I finally have it working
I did not need the fields table sent.
  SUBMIT fagl_account_items_gl
    WITH SELECTION-TABLE lt_select
    WITH fs_dyns EQ le_dyns
    WITH fs_num EQ '2'
  AND RETURN.
I always have 2 fields so I just hard coded the number 2
Fill ranges for dynamic selections
  le_ranges-tablename = 'BSIS_FS'.
  le_frange-fieldname = 'PROJK'.
  le_selopt-sign      = 'I'.
  le_selopt-option    = 'EQ'.
Convert to internal number
  CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
    EXPORTING
      input        = le_alv-posid
    IMPORTING
      output       = lv_pspnr.
  le_selopt-low = lv_pspnr.
  APPEND le_selopt TO le_frange-selopt_t.
  APPEND le_frange TO le_ranges-frange_t.
  APPEND le_ranges TO le_dyns-trange.
  REFRESH: le_frange-selopt_t,
           le_ranges-frange_t.
  le_ranges-tablename = 'FAGLFLEXA_FS'.
  le_frange-fieldname = 'RFAREA'.
  le_selopt-sign      = 'I'.
  le_selopt-option    = 'EQ'.
  le_selopt-low       = le_alv-fkber.
  APPEND le_selopt TO le_frange-selopt_t.
  APPEND le_frange TO le_ranges-frange_t.
  APPEND le_ranges TO le_dyns-trange.
Fill dynamic selections table
  CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'
       EXPORTING
            field_ranges = le_dyns-trange
       IMPORTING
            expressions  = le_dyns-texpr
       EXCEPTIONS
            OTHERS       = 0.
Set Clauses for select
  le_where-tablename = 'BSIS_FS'.
  CONCATENATE '(' 'PROJK' 'EQ' '''' lv_pspnr '''' ')'
    INTO le_wherecls
  SEPARATED BY space.
  APPEND le_wherecls TO le_where-where_tab.
  APPEND le_where TO lt_where.
  le_where-tablename = 'FAGLFLEXA_FS'.
  CONCATENATE '(' 'RFAREA' 'EQ' '''' le_alv-fkber '''' ')'
    INTO le_wherecls
  SEPARATED BY space.
  APPEND le_wherecls TO le_where-where_tab.
  APPEND le_where TO lt_where.
  APPEND LINES OF lt_where TO le_dyns-clauses.
I hope this helps.
I did not include the code for building the SELECTION-TABLE that was the easy part.