ABAP Select data from SAP table J_3RBS_LINE_1360 into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP J_3RBS_LINE_1360 table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to J_3RBS_LINE_1360. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the J_3RBS_LINE_1360 table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_J_3RBS_LINE_1360 TYPE STANDARD TABLE OF J_3RBS_LINE_1360,
      WA_J_3RBS_LINE_1360 TYPE J_3RBS_LINE_1360,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <J_3RBS_LINE_1360> TYPE J_3RBS_LINE_1360.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_J_3RBS_LINE_1360.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM J_3RBS_LINE_1360
  INTO TABLE IT_J_3RBS_LINE_1360.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3RBS_LINE_1360
*  INTO TABLE @DATA(IT_J_3RBS_LINE_13602).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_J_3RBS_LINE_1360 INDEX 1 INTO DATA(WA_J_3RBS_LINE_13602).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_J_3RBS_LINE_1360 ASSIGNING <J_3RBS_LINE_1360>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3RBS_LINE_1360>-13601BEG = 1.
<J_3RBS_LINE_1360>-13601END = 1.
<J_3RBS_LINE_1360>-13601BPY = 1.
<J_3RBS_LINE_1360>-13601NAME = 1.
<J_3RBS_LINE_1360>-13602BEG = 1.

ENDLOOP.

LOOP AT IT_J_3RBS_LINE_1360 INTO WA_J_3RBS_LINE_1360.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3RBS_LINE_1360-13602END, sy-vline,
  WA_J_3RBS_LINE_1360-13602BPY, sy-vline,
  WA_J_3RBS_LINE_1360-13602NAME, sy-vline,
  WA_J_3RBS_LINE_1360-13603BEG, sy-vline,
  WA_J_3RBS_LINE_1360-13603END, sy-vline,
  WA_J_3RBS_LINE_1360-13603BPY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3RBS_LINE_1360 you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_J_3RBS_LINE_1360 TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_J_3RBS_LINE_1360 INTO WA_J_3RBS_LINE_1360.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_J_3RBS_LINE_1360_STR, 
13601BEG TYPE STRING,
13601END TYPE STRING,
13601BPY TYPE STRING,
13601NAME TYPE STRING,
13602BEG TYPE STRING,
13602END TYPE STRING,
13602BPY TYPE STRING,
13602NAME TYPE STRING,
13603BEG TYPE STRING,
13603END TYPE STRING,
13603BPY TYPE STRING,
13603NAME TYPE STRING,
13604BEG TYPE STRING,
13604END TYPE STRING,
13604BPY TYPE STRING,
13604NAME TYPE STRING,
13605BEG TYPE STRING,
13605END TYPE STRING,
13605BPY TYPE STRING,
13605NAME TYPE STRING,
13606BEG TYPE STRING,
13606END TYPE STRING,
13606BPY TYPE STRING,
13606NAME TYPE STRING,
13607BEG TYPE STRING,
13607END TYPE STRING,
13607BPY TYPE STRING,
13607NAME TYPE STRING,
13608BEG TYPE STRING,
13608END TYPE STRING,
13608BPY TYPE STRING,
13608NAME TYPE STRING,
13609BEG TYPE STRING,
13609END TYPE STRING,
13609BPY TYPE STRING,
13609NAME TYPE STRING,
13610BEG TYPE STRING,
13610END TYPE STRING,
13610BPY TYPE STRING,
13610NAME TYPE STRING,
13611BEG TYPE STRING,
13611END TYPE STRING,
13611BPY TYPE STRING,
13611NAME TYPE STRING,
13612BEG TYPE STRING,
13612END TYPE STRING,
13612BPY TYPE STRING,
13612NAME TYPE STRING,
13613BEG TYPE STRING,
13613END TYPE STRING,
13613BPY TYPE STRING,
13613NAME TYPE STRING,
13614BEG TYPE STRING,
13614END TYPE STRING,
13614BPY TYPE STRING,
13614NAME TYPE STRING,
13615BEG TYPE STRING,
13615END TYPE STRING,
13615BPY TYPE STRING,
13615NAME TYPE STRING,
13616BEG TYPE STRING,
13616END TYPE STRING,
13616BPY TYPE STRING,
13616NAME TYPE STRING,
13617BEG TYPE STRING,
13617END TYPE STRING,
13617BPY TYPE STRING,
13617NAME TYPE STRING,
13618BEG TYPE STRING,
13618END TYPE STRING,
13618BPY TYPE STRING,
13618NAME TYPE STRING,
13619BEG TYPE STRING,
13619END TYPE STRING,
13619BPY TYPE STRING,
13619NAME TYPE STRING,
13620BEG TYPE STRING,
13620END TYPE STRING,
13620BPY TYPE STRING,
13620NAME TYPE STRING,
WAERS TYPE STRING,
13601EXPL TYPE STRING,
13602EXPL TYPE STRING,
13603EXPL TYPE STRING,
13604EXPL TYPE STRING,
13605EXPL TYPE STRING,
13606EXPL TYPE STRING,
13607EXPL TYPE STRING,
13608EXPL TYPE STRING,
13609EXPL TYPE STRING,
13610EXPL TYPE STRING,
13611EXPL TYPE STRING,
13612EXPL TYPE STRING,
13613EXPL TYPE STRING,
13614EXPL TYPE STRING,
13615EXPL TYPE STRING,
13616EXPL TYPE STRING,
13617EXPL TYPE STRING,
13618EXPL TYPE STRING,
13619EXPL TYPE STRING,
13620EXPL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3RBS_LINE_1360_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_J_3RBS_LINE_1360_STR-13601BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13601END sy-vline 
WA_J_3RBS_LINE_1360_STR-13601BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13601NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13602BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13602END sy-vline 
WA_J_3RBS_LINE_1360_STR-13602BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13602NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13603BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13603END sy-vline 
WA_J_3RBS_LINE_1360_STR-13603BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13603NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13604BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13604END sy-vline 
WA_J_3RBS_LINE_1360_STR-13604BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13604NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13605BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13605END sy-vline 
WA_J_3RBS_LINE_1360_STR-13605BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13605NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13606BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13606END sy-vline 
WA_J_3RBS_LINE_1360_STR-13606BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13606NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13607BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13607END sy-vline 
WA_J_3RBS_LINE_1360_STR-13607BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13607NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13608BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13608END sy-vline 
WA_J_3RBS_LINE_1360_STR-13608BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13608NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13609BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13609END sy-vline 
WA_J_3RBS_LINE_1360_STR-13609BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13609NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13610BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13610END sy-vline 
WA_J_3RBS_LINE_1360_STR-13610BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13610NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13611BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13611END sy-vline 
WA_J_3RBS_LINE_1360_STR-13611BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13611NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13612BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13612END sy-vline 
WA_J_3RBS_LINE_1360_STR-13612BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13612NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13613BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13613END sy-vline 
WA_J_3RBS_LINE_1360_STR-13613BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13613NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13614BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13614END sy-vline 
WA_J_3RBS_LINE_1360_STR-13614BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13614NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13615BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13615END sy-vline 
WA_J_3RBS_LINE_1360_STR-13615BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13615NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13616BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13616END sy-vline 
WA_J_3RBS_LINE_1360_STR-13616BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13616NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13617BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13617END sy-vline 
WA_J_3RBS_LINE_1360_STR-13617BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13617NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13618BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13618END sy-vline 
WA_J_3RBS_LINE_1360_STR-13618BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13618NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13619BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13619END sy-vline 
WA_J_3RBS_LINE_1360_STR-13619BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13619NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-13620BEG sy-vline 
WA_J_3RBS_LINE_1360_STR-13620END sy-vline 
WA_J_3RBS_LINE_1360_STR-13620BPY sy-vline 
WA_J_3RBS_LINE_1360_STR-13620NAME sy-vline 
WA_J_3RBS_LINE_1360_STR-WAERS sy-vline 
WA_J_3RBS_LINE_1360_STR-13601EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13602EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13603EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13604EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13605EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13606EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13607EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13608EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13609EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13610EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13611EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13612EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13613EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13614EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13615EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13616EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13617EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13618EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13619EXPL sy-vline 
WA_J_3RBS_LINE_1360_STR-13620EXPL sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.