ABAP Select data from SAP table J_3RBS_LINE_1340 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_1340 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_1340. 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_1340 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_1340 TYPE STANDARD TABLE OF J_3RBS_LINE_1340,
      WA_J_3RBS_LINE_1340 TYPE J_3RBS_LINE_1340,
      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_1340> TYPE J_3RBS_LINE_1340.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3RBS_LINE_1340
*  INTO TABLE @DATA(IT_J_3RBS_LINE_13402).
*--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_1340 INDEX 1 INTO DATA(WA_J_3RBS_LINE_13402).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3RBS_LINE_1340>-13401BEG = 1.
<J_3RBS_LINE_1340>-13401END = 1.
<J_3RBS_LINE_1340>-13401BPY = 1.
<J_3RBS_LINE_1340>-13401NAME = 1.
<J_3RBS_LINE_1340>-13402BEG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3RBS_LINE_1340-13402END, sy-vline,
  WA_J_3RBS_LINE_1340-13402BPY, sy-vline,
  WA_J_3RBS_LINE_1340-13402NAME, sy-vline,
  WA_J_3RBS_LINE_1340-13403BEG, sy-vline,
  WA_J_3RBS_LINE_1340-13403END, sy-vline,
  WA_J_3RBS_LINE_1340-13403BPY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3RBS_LINE_1340 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_1340 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_1340 INTO WA_J_3RBS_LINE_1340.


*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_1340_STR, 
13401BEG TYPE STRING,
13401END TYPE STRING,
13401BPY TYPE STRING,
13401NAME TYPE STRING,
13402BEG TYPE STRING,
13402END TYPE STRING,
13402BPY TYPE STRING,
13402NAME TYPE STRING,
13403BEG TYPE STRING,
13403END TYPE STRING,
13403BPY TYPE STRING,
13403NAME TYPE STRING,
13404BEG TYPE STRING,
13404END TYPE STRING,
13404BPY TYPE STRING,
13404NAME TYPE STRING,
13405BEG TYPE STRING,
13405END TYPE STRING,
13405BPY TYPE STRING,
13405NAME TYPE STRING,
13406BEG TYPE STRING,
13406END TYPE STRING,
13406BPY TYPE STRING,
13406NAME TYPE STRING,
13407BEG TYPE STRING,
13407END TYPE STRING,
13407BPY TYPE STRING,
13407NAME TYPE STRING,
13408BEG TYPE STRING,
13408END TYPE STRING,
13408BPY TYPE STRING,
13408NAME TYPE STRING,
13409BEG TYPE STRING,
13409END TYPE STRING,
13409BPY TYPE STRING,
13409NAME TYPE STRING,
13410BEG TYPE STRING,
13410END TYPE STRING,
13410BPY TYPE STRING,
13410NAME TYPE STRING,
13411BEG TYPE STRING,
13411END TYPE STRING,
13411BPY TYPE STRING,
13411NAME TYPE STRING,
13412BEG TYPE STRING,
13412END TYPE STRING,
13412BPY TYPE STRING,
13412NAME TYPE STRING,
13413BEG TYPE STRING,
13413END TYPE STRING,
13413BPY TYPE STRING,
13413NAME TYPE STRING,
13414BEG TYPE STRING,
13414END TYPE STRING,
13414BPY TYPE STRING,
13414NAME TYPE STRING,
13415BEG TYPE STRING,
13415END TYPE STRING,
13415BPY TYPE STRING,
13415NAME TYPE STRING,
13416BEG TYPE STRING,
13416END TYPE STRING,
13416BPY TYPE STRING,
13416NAME TYPE STRING,
13417BEG TYPE STRING,
13417END TYPE STRING,
13417BPY TYPE STRING,
13417NAME TYPE STRING,
13418BEG TYPE STRING,
13418END TYPE STRING,
13418BPY TYPE STRING,
13418NAME TYPE STRING,
13419BEG TYPE STRING,
13419END TYPE STRING,
13419BPY TYPE STRING,
13419NAME TYPE STRING,
13420BEG TYPE STRING,
13420END TYPE STRING,
13420BPY TYPE STRING,
13420NAME TYPE STRING,
WAERS TYPE STRING,
13401EXPL TYPE STRING,
13402EXPL TYPE STRING,
13403EXPL TYPE STRING,
13404EXPL TYPE STRING,
13405EXPL TYPE STRING,
13406EXPL TYPE STRING,
13407EXPL TYPE STRING,
13408EXPL TYPE STRING,
13409EXPL TYPE STRING,
13410EXPL TYPE STRING,
13411EXPL TYPE STRING,
13412EXPL TYPE STRING,
13413EXPL TYPE STRING,
13414EXPL TYPE STRING,
13415EXPL TYPE STRING,
13416EXPL TYPE STRING,
13417EXPL TYPE STRING,
13418EXPL TYPE STRING,
13419EXPL TYPE STRING,
13420EXPL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3RBS_LINE_1340_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_1340_STR-13401BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13401END sy-vline 
WA_J_3RBS_LINE_1340_STR-13401BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13401NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13402BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13402END sy-vline 
WA_J_3RBS_LINE_1340_STR-13402BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13402NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13403BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13403END sy-vline 
WA_J_3RBS_LINE_1340_STR-13403BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13403NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13404BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13404END sy-vline 
WA_J_3RBS_LINE_1340_STR-13404BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13404NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13405BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13405END sy-vline 
WA_J_3RBS_LINE_1340_STR-13405BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13405NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13406BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13406END sy-vline 
WA_J_3RBS_LINE_1340_STR-13406BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13406NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13407BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13407END sy-vline 
WA_J_3RBS_LINE_1340_STR-13407BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13407NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13408BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13408END sy-vline 
WA_J_3RBS_LINE_1340_STR-13408BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13408NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13409BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13409END sy-vline 
WA_J_3RBS_LINE_1340_STR-13409BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13409NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13410BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13410END sy-vline 
WA_J_3RBS_LINE_1340_STR-13410BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13410NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13411BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13411END sy-vline 
WA_J_3RBS_LINE_1340_STR-13411BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13411NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13412BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13412END sy-vline 
WA_J_3RBS_LINE_1340_STR-13412BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13412NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13413BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13413END sy-vline 
WA_J_3RBS_LINE_1340_STR-13413BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13413NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13414BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13414END sy-vline 
WA_J_3RBS_LINE_1340_STR-13414BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13414NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13415BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13415END sy-vline 
WA_J_3RBS_LINE_1340_STR-13415BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13415NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13416BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13416END sy-vline 
WA_J_3RBS_LINE_1340_STR-13416BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13416NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13417BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13417END sy-vline 
WA_J_3RBS_LINE_1340_STR-13417BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13417NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13418BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13418END sy-vline 
WA_J_3RBS_LINE_1340_STR-13418BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13418NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13419BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13419END sy-vline 
WA_J_3RBS_LINE_1340_STR-13419BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13419NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-13420BEG sy-vline 
WA_J_3RBS_LINE_1340_STR-13420END sy-vline 
WA_J_3RBS_LINE_1340_STR-13420BPY sy-vline 
WA_J_3RBS_LINE_1340_STR-13420NAME sy-vline 
WA_J_3RBS_LINE_1340_STR-WAERS sy-vline 
WA_J_3RBS_LINE_1340_STR-13401EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13402EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13403EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13404EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13405EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13406EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13407EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13408EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13409EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13410EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13411EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13412EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13413EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13414EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13415EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13416EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13417EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13418EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13419EXPL sy-vline 
WA_J_3RBS_LINE_1340_STR-13420EXPL sy-vline      INTO ld_text SEPARATED BY SPACE.

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