ABAP Select data from SAP table T8JVB12 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 T8JVB12 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 T8JVB12. 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 T8JVB12 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_T8JVB12 TYPE STANDARD TABLE OF T8JVB12,
      WA_T8JVB12 TYPE T8JVB12,
      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: <T8JVB12> TYPE T8JVB12.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM T8JVB12
*  INTO TABLE @DATA(IT_T8JVB122).
*--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_T8JVB12 INDEX 1 INTO DATA(WA_T8JVB122).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<T8JVB12>-OPERN = 1.
<T8JVB12>-OPERTXT = 1.
<T8JVB12>-OPNAME1 = 1.
<T8JVB12>-OPNAME2 = 1.
<T8JVB12>-OPNAME3 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_T8JVB12-OPNAME4, sy-vline,
  WA_T8JVB12-OPORT01, sy-vline,
  WA_T8JVB12-OPORT02, sy-vline,
  WA_T8JVB12-OPPFACH, sy-vline,
  WA_T8JVB12-OPPSTL2, sy-vline,
  WA_T8JVB12-OPPSTLZ, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_T8JVB12 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_T8JVB12 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_T8JVB12 INTO WA_T8JVB12.


*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.

*Conversion exit ALPHA, internal->external for field OPERN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-OPERN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-OPERN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field VNAME
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-VNAME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-VNAME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field EGRUP
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-EGRUP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-EGRUP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field EXCHRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-EXCHRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-EXCHRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field VBANKADR2
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-VBANKADR2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-VBANKADR2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field YEAR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-YEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-YEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field KUNNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_T8JVB12-KUNNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_T8JVB12-KUNNR.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

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

TYPES: BEGIN OF T_T8JVB12_STR, 
OPERN TYPE STRING,
OPERTXT TYPE STRING,
OPNAME1 TYPE STRING,
OPNAME2 TYPE STRING,
OPNAME3 TYPE STRING,
OPNAME4 TYPE STRING,
OPORT01 TYPE STRING,
OPORT02 TYPE STRING,
OPPFACH TYPE STRING,
OPPSTL2 TYPE STRING,
OPPSTLZ TYPE STRING,
OPLAND1 TYPE STRING,
OPREGIO TYPE STRING,
OPCOUNC TYPE STRING,
OPCITYC TYPE STRING,
OPSTRAS TYPE STRING,
OPTELBX TYPE STRING,
OPTELF1 TYPE STRING,
OPTELF2 TYPE STRING,
OPTELFX TYPE STRING,
OPTELTX TYPE STRING,
OPTELX1 TYPE STRING,
OPSTCEG TYPE STRING,
COMPANY TYPE STRING,
COMPNAME TYPE STRING,
CURR TYPE STRING,
LOCURR TYPE STRING,
VNAME TYPE STRING,
VTEXT TYPE STRING,
EGRUP TYPE STRING,
EGTXT TYPE STRING,
INVNUM TYPE STRING,
INVDATE TYPE STRING,
TAXDATE TYPE STRING,
TAXRATE TYPE STRING,
EXCHRATE TYPE STRING,
VBANKACC TYPE STRING,
VBACCDET TYPE STRING,
VBANK TYPE STRING,
VBANKREG TYPE STRING,
VBANKADR TYPE STRING,
VBANKCITY TYPE STRING,
VBANKSWFT TYPE STRING,
VBANKGRP TYPE STRING,
VBANKNUM TYPE STRING,
VBANKPGIR TYPE STRING,
VBANKADR2 TYPE STRING,
PAYTERM TYPE STRING,
MONTH TYPE STRING,
YEAR TYPE STRING,
KUNNR TYPE STRING,
ANRED TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
ORT01 TYPE STRING,
ORT02 TYPE STRING,
PFACH TYPE STRING,
PSTL2 TYPE STRING,
PSTLZ TYPE STRING,
LAND1 TYPE STRING,
REGIO TYPE STRING,
COUNC TYPE STRING,
CITYC TYPE STRING,
STRAS TYPE STRING,
TELBX TYPE STRING,
TELF1 TYPE STRING,
TELF2 TYPE STRING,
TELFX TYPE STRING,
TELTX TYPE STRING,
TELX1 TYPE STRING,
STCEG TYPE STRING,
GST TYPE STRING,
BFORMAT TYPE STRING,
TEXT_JV TYPE STRING,
TEXT_GR TYPE STRING,
TEXT_EX TYPE STRING,
TEXT_AF TYPE STRING,
TEXT_TA TYPE STRING,
TEXT_SU TYPE STRING,END OF T_EKKO_STR.
DATA: WA_T8JVB12_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_T8JVB12_STR-OPERN sy-vline 
WA_T8JVB12_STR-OPERTXT sy-vline 
WA_T8JVB12_STR-OPNAME1 sy-vline 
WA_T8JVB12_STR-OPNAME2 sy-vline 
WA_T8JVB12_STR-OPNAME3 sy-vline 
WA_T8JVB12_STR-OPNAME4 sy-vline 
WA_T8JVB12_STR-OPORT01 sy-vline 
WA_T8JVB12_STR-OPORT02 sy-vline 
WA_T8JVB12_STR-OPPFACH sy-vline 
WA_T8JVB12_STR-OPPSTL2 sy-vline 
WA_T8JVB12_STR-OPPSTLZ sy-vline 
WA_T8JVB12_STR-OPLAND1 sy-vline 
WA_T8JVB12_STR-OPREGIO sy-vline 
WA_T8JVB12_STR-OPCOUNC sy-vline 
WA_T8JVB12_STR-OPCITYC sy-vline 
WA_T8JVB12_STR-OPSTRAS sy-vline 
WA_T8JVB12_STR-OPTELBX sy-vline 
WA_T8JVB12_STR-OPTELF1 sy-vline 
WA_T8JVB12_STR-OPTELF2 sy-vline 
WA_T8JVB12_STR-OPTELFX sy-vline 
WA_T8JVB12_STR-OPTELTX sy-vline 
WA_T8JVB12_STR-OPTELX1 sy-vline 
WA_T8JVB12_STR-OPSTCEG sy-vline 
WA_T8JVB12_STR-COMPANY sy-vline 
WA_T8JVB12_STR-COMPNAME sy-vline 
WA_T8JVB12_STR-CURR sy-vline 
WA_T8JVB12_STR-LOCURR sy-vline 
WA_T8JVB12_STR-VNAME sy-vline 
WA_T8JVB12_STR-VTEXT sy-vline 
WA_T8JVB12_STR-EGRUP sy-vline 
WA_T8JVB12_STR-EGTXT sy-vline 
WA_T8JVB12_STR-INVNUM sy-vline 
WA_T8JVB12_STR-INVDATE sy-vline 
WA_T8JVB12_STR-TAXDATE sy-vline 
WA_T8JVB12_STR-TAXRATE sy-vline 
WA_T8JVB12_STR-EXCHRATE sy-vline 
WA_T8JVB12_STR-VBANKACC sy-vline 
WA_T8JVB12_STR-VBACCDET sy-vline 
WA_T8JVB12_STR-VBANK sy-vline 
WA_T8JVB12_STR-VBANKREG sy-vline 
WA_T8JVB12_STR-VBANKADR sy-vline 
WA_T8JVB12_STR-VBANKCITY sy-vline 
WA_T8JVB12_STR-VBANKSWFT sy-vline 
WA_T8JVB12_STR-VBANKGRP sy-vline 
WA_T8JVB12_STR-VBANKNUM sy-vline 
WA_T8JVB12_STR-VBANKPGIR sy-vline 
WA_T8JVB12_STR-VBANKADR2 sy-vline 
WA_T8JVB12_STR-PAYTERM sy-vline 
WA_T8JVB12_STR-MONTH sy-vline 
WA_T8JVB12_STR-YEAR sy-vline 
WA_T8JVB12_STR-KUNNR sy-vline 
WA_T8JVB12_STR-ANRED sy-vline 
WA_T8JVB12_STR-NAME1 sy-vline 
WA_T8JVB12_STR-NAME2 sy-vline 
WA_T8JVB12_STR-NAME3 sy-vline 
WA_T8JVB12_STR-NAME4 sy-vline 
WA_T8JVB12_STR-ORT01 sy-vline 
WA_T8JVB12_STR-ORT02 sy-vline 
WA_T8JVB12_STR-PFACH sy-vline 
WA_T8JVB12_STR-PSTL2 sy-vline 
WA_T8JVB12_STR-PSTLZ sy-vline 
WA_T8JVB12_STR-LAND1 sy-vline 
WA_T8JVB12_STR-REGIO sy-vline 
WA_T8JVB12_STR-COUNC sy-vline 
WA_T8JVB12_STR-CITYC sy-vline 
WA_T8JVB12_STR-STRAS sy-vline 
WA_T8JVB12_STR-TELBX sy-vline 
WA_T8JVB12_STR-TELF1 sy-vline 
WA_T8JVB12_STR-TELF2 sy-vline 
WA_T8JVB12_STR-TELFX sy-vline 
WA_T8JVB12_STR-TELTX sy-vline 
WA_T8JVB12_STR-TELX1 sy-vline 
WA_T8JVB12_STR-STCEG sy-vline 
WA_T8JVB12_STR-GST sy-vline 
WA_T8JVB12_STR-BFORMAT sy-vline 
WA_T8JVB12_STR-TEXT_JV sy-vline 
WA_T8JVB12_STR-TEXT_GR sy-vline 
WA_T8JVB12_STR-TEXT_EX sy-vline 
WA_T8JVB12_STR-TEXT_AF sy-vline 
WA_T8JVB12_STR-TEXT_TA sy-vline 
WA_T8JVB12_STR-TEXT_SU sy-vline      INTO ld_text SEPARATED BY SPACE.

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