Submit program for RFREISCN

divsmart — Fri, 20 Aug 2021 07:00:37 GMT

Hi Experts,

I need to use 'Submit statement' to get an record from 'RFREISCN program' . I done,but i am getting 
multiple line items in my ALV display .
But in standard gets single line item. Please advice what mistake doing here. 


Code:
SELECTION-SCREEN BEGIN OF BLOCK h1 WITH FRAME TITLE TEXT-001.

  SELECT-OPTIONS:
                   s_bukrs  FOR vicncn-bukrs ,"NO-EXTENSION NO INTERVALS,
                   s_recnnr FOR vicncn-recnnr.

SELECTION-SCREEN END OF BLOCK h1.

TYPES: BEGIN OF ty_output,
         bukrs     TYPE vicncn-bukrs, "company code.
         recnnr    TYPE vicncn-recnnr, "contract no,
         recntxt   TYPE vicncn-recntxt, "Contract name
         recntype  TYPE vicncn-recntype, "Contract type
         intreno   TYPE vicncn-intreno, "Ro real estate key
         xmetxt    TYPE vibdro-xmetxt, "Rental obj name
         rotype    TYPE vibdro-rotype, "Rental obj type
         validfrom TYPE vibdro-validfrom, "Ro start date
         validto   TYPE vibdro-validto, "RO valid-to.
*         xmetxt    TYPE  vibdro-xmetxt, "Rental object no.
         sgenr     TYPE vibdro-sgenr, "Buling,
*         xgetxt    TYPE vibdro-xgetxt, "Buliing name.
       END OF ty_output.

DATA: lt_output TYPE TABLE OF ty_output,
      ls_output TYPE          ty_output.

DATA: lr_data TYPE REF TO data,
      lv_date TYPE c.

DATA: lt_fcat TYPE lvc_t_fcat,
      ls_fcat TYPE lvc_s_fcat.

FIELD-SYMBOLS: <lt_data> TYPE ANY TABLE,
               <lt_line> TYPE any.


FORM get_form .

  CALL METHOD cl_salv_bs_runtime_info=>set
    EXPORTING
      display  = abap_false
      metadata = abap_false
      data     = abap_true.

  SUBMIT RFREISCN WITH bukrs IN s_bukrs
                               WITH recnnr IN s_recnnr
                               WITH p_usesid EQ 'X'
                               EXPORTING LIST TO MEMORY AND RETURN. "tcode reiscn 

  TRY.
      cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = lr_data ).
      ASSIGN lr_data->* TO <lt_data>.
    CATCH cx_salv_bs_sc_runtime_info.
      MESSAGE 'UNABLE TO RETRIEVE ALV DATA'  TYPE  'E'.
  ENDTRY.

  cl_salv_bs_runtime_info=>clear_all( ).

  CLEAR : lt_output[],ls_output.
  IF <lt_data> IS ASSIGNED.
    LOOP AT <lt_data> ASSIGNING <lt_line>.
      MOVE-CORRESPONDING <lt_line> TO ls_output.
      APPEND ls_output TO lt_output.
      CLEAR: ls_output.
    ENDLOOP.
  ENDIF.

ENDFORM.

Re: Submit program for RFREISCN

Sandra_Rossi — Fri, 20 Aug 2021 10:07:45 GMT

I don't know RFREISCN so I hardly interpret "multiple line items in my ALV display". I guess you mean RFREISCN outputs a Hierarchical-Sequential List ALV. If so, you should get the two types of lines with the two parameters R_DATA and R_DATA_LINE because R_DATA only gets the leading lines. R_DATA_LINE gets the subordinate lines.

topic Re: Submit program for RFREISCN in Application Development and Automation Discussions

Submit program for RFREISCN

Re: Submit program for RFREISCN