ABAP Select data from SAP table J_7LE01 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_7LE01 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_7LE01. 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_7LE01 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_7LE01 TYPE STANDARD TABLE OF J_7LE01,
      WA_J_7LE01 TYPE J_7LE01,
      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_7LE01> TYPE J_7LE01.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_7LE01
*  INTO TABLE @DATA(IT_J_7LE012).
*--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_7LE01 INDEX 1 INTO DATA(WA_J_7LE012).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_7LE01>-MANDT = 1.
<J_7LE01>-ENTNR = 1.
<J_7LE01>-LAND1 = 1.
<J_7LE01>-ENTNA = 1.
<J_7LE01>-NAME1 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_7LE01-NAME2, sy-vline,
  WA_J_7LE01-NAME3, sy-vline,
  WA_J_7LE01-KUNNR, sy-vline,
  WA_J_7LE01-GGEWANTBAG, sy-vline,
  WA_J_7LE01-KZBAGRG, sy-vline,
  WA_J_7LE01-FBAGRG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_7LE01 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_7LE01 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_7LE01 INTO WA_J_7LE01.


*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 ENTNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_7LE01-ENTNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LE01-ENTNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field GEWEI
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_J_7LE01-GEWEI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LE01-GEWEI.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field FLHEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_J_7LE01-FLHEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LE01-FLHEH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field VOLEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_J_7LE01-VOLEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LE01-VOLEH.
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_J_7LE01_STR, 
MANDT TYPE STRING,
ENTNR TYPE STRING,
LAND1 TYPE STRING,
ENTNA TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
KUNNR TYPE STRING,
GGEWANTBAG TYPE STRING,
KZBAGRG TYPE STRING,
FBAGRG TYPE STRING,
GGEWKLNVP TYPE STRING,
GEWEI TYPE STRING,
GFLKLNVP TYPE STRING,
FLHEH TYPE STRING,
GVOLKLNVP TYPE STRING,
VOLEH TYPE STRING,
KZSTKENTG TYPE STRING,
KZSTKENTG_DEF TYPE STRING,
KZGEWENTG TYPE STRING,
KZGEWENTG_DEF TYPE STRING,
KZMLDS TYPE STRING,
MLDCHAR TYPE STRING,
KZMLDM TYPE STRING,
NUMOBM TYPE STRING,
NUMKRM TYPE STRING,
MLDML TYPE STRING,
KZMMNR TYPE STRING,
KZMARM TYPE STRING,
KZMLDV TYPE STRING,
NUMOBV TYPE STRING,
NUMKRV TYPE STRING,
MLDVL TYPE STRING,
KZVMNR TYPE STRING,
KZMLDG TYPE STRING,
NUMOBG TYPE STRING,
NUMKRG TYPE STRING,
MLDGL TYPE STRING,
KZVGRP TYPE STRING,
KZGMNR TYPE STRING,
KZGMRM TYPE STRING,
KZVGAG TYPE STRING,
KZMNRV TYPE STRING,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KSCHL TYPE STRING,
KQUELLSCHL TYPE STRING,
KVEWEZ TYPE STRING,
KAPPLZ TYPE STRING,
KSCHLZ TYPE STRING,
KQUELLSCHLZ TYPE STRING,
ABLSKO TYPE STRING,
KZABLSKO_AUT TYPE STRING,
FMGRP TYPE STRING,
RUNDG TYPE STRING,
KZFRME TYPE STRING,
KZFRMM TYPE STRING,
FORMEL TYPE STRING,
KZSPLIT TYPE STRING,
KZREGIO TYPE STRING,
KZZENTR TYPE STRING,
ZSPLITV TYPE STRING,
ZSPLITG TYPE STRING,
ZSPLITK TYPE STRING,
KZLEVEL TYPE STRING,
KZVPAGE TYPE STRING,
KZVPASE TYPE STRING,
KZFUELG TYPE STRING,
KZINFOK TYPE STRING,
KZSTUFE TYPE STRING,
KZVRPKT TYPE STRING,
KZSTADD TYPE STRING,
PRFSTUF TYPE STRING,
KZPREIS TYPE STRING,
KZMFUEL TYPE STRING,
KZMINFK TYPE STRING,
KZMHDST TYPE STRING,
KZHNDSTV TYPE STRING,
KZVPPRG TYPE STRING,
KZEVPAG TYPE STRING,
KZEVPAS TYPE STRING,
KZEFVPE TYPE STRING,
VEBENE_DEF TYPE STRING,
KZEFVKT TYPE STRING,
KZHIDE_VPRT TYPE STRING,
KZSTOFE_NEED TYPE STRING,
KZFRMFR TYPE STRING,
KZEXITCHKA TYPE STRING,
EXITCHKA TYPE STRING,
KZEXITCHKV TYPE STRING,
EXITCHKV TYPE STRING,
FRMFBGR TYPE STRING,
FRMFRAK TYPE STRING,
KZPRFM TYPE STRING,
PFORMEL TYPE STRING,
KZPRFMA TYPE STRING,
KZKARTK TYPE STRING,
KARTKAB TYPE STRING,
KZKARTM TYPE STRING,
KARTMAB TYPE STRING,
KZKARTP TYPE STRING,
KARTPAB TYPE STRING,
DATABADM TYPE STRING,
DATBIADM TYPE STRING,
ERSDAADM TYPE STRING,
ERZETADM TYPE STRING,
ERNAMADM TYPE STRING,
LAEDAADM TYPE STRING,
AEZETADM TYPE STRING,
AENAMADM TYPE STRING,
LVORMADM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_7LE01_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_7LE01_STR-MANDT sy-vline 
WA_J_7LE01_STR-ENTNR sy-vline 
WA_J_7LE01_STR-LAND1 sy-vline 
WA_J_7LE01_STR-ENTNA sy-vline 
WA_J_7LE01_STR-NAME1 sy-vline 
WA_J_7LE01_STR-NAME2 sy-vline 
WA_J_7LE01_STR-NAME3 sy-vline 
WA_J_7LE01_STR-KUNNR sy-vline 
WA_J_7LE01_STR-GGEWANTBAG sy-vline 
WA_J_7LE01_STR-KZBAGRG sy-vline 
WA_J_7LE01_STR-FBAGRG sy-vline 
WA_J_7LE01_STR-GGEWKLNVP sy-vline 
WA_J_7LE01_STR-GEWEI sy-vline 
WA_J_7LE01_STR-GFLKLNVP sy-vline 
WA_J_7LE01_STR-FLHEH sy-vline 
WA_J_7LE01_STR-GVOLKLNVP sy-vline 
WA_J_7LE01_STR-VOLEH sy-vline 
WA_J_7LE01_STR-KZSTKENTG sy-vline 
WA_J_7LE01_STR-KZSTKENTG_DEF sy-vline 
WA_J_7LE01_STR-KZGEWENTG sy-vline 
WA_J_7LE01_STR-KZGEWENTG_DEF sy-vline 
WA_J_7LE01_STR-KZMLDS sy-vline 
WA_J_7LE01_STR-MLDCHAR sy-vline 
WA_J_7LE01_STR-KZMLDM sy-vline 
WA_J_7LE01_STR-NUMOBM sy-vline 
WA_J_7LE01_STR-NUMKRM sy-vline 
WA_J_7LE01_STR-MLDML sy-vline 
WA_J_7LE01_STR-KZMMNR sy-vline 
WA_J_7LE01_STR-KZMARM sy-vline 
WA_J_7LE01_STR-KZMLDV sy-vline 
WA_J_7LE01_STR-NUMOBV sy-vline 
WA_J_7LE01_STR-NUMKRV sy-vline 
WA_J_7LE01_STR-MLDVL sy-vline 
WA_J_7LE01_STR-KZVMNR sy-vline 
WA_J_7LE01_STR-KZMLDG sy-vline 
WA_J_7LE01_STR-NUMOBG sy-vline 
WA_J_7LE01_STR-NUMKRG sy-vline 
WA_J_7LE01_STR-MLDGL sy-vline 
WA_J_7LE01_STR-KZVGRP sy-vline 
WA_J_7LE01_STR-KZGMNR sy-vline 
WA_J_7LE01_STR-KZGMRM sy-vline 
WA_J_7LE01_STR-KZVGAG sy-vline 
WA_J_7LE01_STR-KZMNRV sy-vline 
WA_J_7LE01_STR-KVEWE sy-vline 
WA_J_7LE01_STR-KAPPL sy-vline 
WA_J_7LE01_STR-KSCHL sy-vline 
WA_J_7LE01_STR-KQUELLSCHL sy-vline 
WA_J_7LE01_STR-KVEWEZ sy-vline 
WA_J_7LE01_STR-KAPPLZ sy-vline 
WA_J_7LE01_STR-KSCHLZ sy-vline 
WA_J_7LE01_STR-KQUELLSCHLZ sy-vline 
WA_J_7LE01_STR-ABLSKO sy-vline 
WA_J_7LE01_STR-KZABLSKO_AUT sy-vline 
WA_J_7LE01_STR-FMGRP sy-vline 
WA_J_7LE01_STR-RUNDG sy-vline 
WA_J_7LE01_STR-KZFRME sy-vline 
WA_J_7LE01_STR-KZFRMM sy-vline 
WA_J_7LE01_STR-FORMEL sy-vline 
WA_J_7LE01_STR-KZSPLIT sy-vline 
WA_J_7LE01_STR-KZREGIO sy-vline 
WA_J_7LE01_STR-KZZENTR sy-vline 
WA_J_7LE01_STR-ZSPLITV sy-vline 
WA_J_7LE01_STR-ZSPLITG sy-vline 
WA_J_7LE01_STR-ZSPLITK sy-vline 
WA_J_7LE01_STR-KZLEVEL sy-vline 
WA_J_7LE01_STR-KZVPAGE sy-vline 
WA_J_7LE01_STR-KZVPASE sy-vline 
WA_J_7LE01_STR-KZFUELG sy-vline 
WA_J_7LE01_STR-KZINFOK sy-vline 
WA_J_7LE01_STR-KZSTUFE sy-vline 
WA_J_7LE01_STR-KZVRPKT sy-vline 
WA_J_7LE01_STR-KZSTADD sy-vline 
WA_J_7LE01_STR-PRFSTUF sy-vline 
WA_J_7LE01_STR-KZPREIS sy-vline 
WA_J_7LE01_STR-KZMFUEL sy-vline 
WA_J_7LE01_STR-KZMINFK sy-vline 
WA_J_7LE01_STR-KZMHDST sy-vline 
WA_J_7LE01_STR-KZHNDSTV sy-vline 
WA_J_7LE01_STR-KZVPPRG sy-vline 
WA_J_7LE01_STR-KZEVPAG sy-vline 
WA_J_7LE01_STR-KZEVPAS sy-vline 
WA_J_7LE01_STR-KZEFVPE sy-vline 
WA_J_7LE01_STR-VEBENE_DEF sy-vline 
WA_J_7LE01_STR-KZEFVKT sy-vline 
WA_J_7LE01_STR-KZHIDE_VPRT sy-vline 
WA_J_7LE01_STR-KZSTOFE_NEED sy-vline 
WA_J_7LE01_STR-KZFRMFR sy-vline 
WA_J_7LE01_STR-KZEXITCHKA sy-vline 
WA_J_7LE01_STR-EXITCHKA sy-vline 
WA_J_7LE01_STR-KZEXITCHKV sy-vline 
WA_J_7LE01_STR-EXITCHKV sy-vline 
WA_J_7LE01_STR-FRMFBGR sy-vline 
WA_J_7LE01_STR-FRMFRAK sy-vline 
WA_J_7LE01_STR-KZPRFM sy-vline 
WA_J_7LE01_STR-PFORMEL sy-vline 
WA_J_7LE01_STR-KZPRFMA sy-vline 
WA_J_7LE01_STR-KZKARTK sy-vline 
WA_J_7LE01_STR-KARTKAB sy-vline 
WA_J_7LE01_STR-KZKARTM sy-vline 
WA_J_7LE01_STR-KARTMAB sy-vline 
WA_J_7LE01_STR-KZKARTP sy-vline 
WA_J_7LE01_STR-KARTPAB sy-vline 
WA_J_7LE01_STR-DATABADM sy-vline 
WA_J_7LE01_STR-DATBIADM sy-vline 
WA_J_7LE01_STR-ERSDAADM sy-vline 
WA_J_7LE01_STR-ERZETADM sy-vline 
WA_J_7LE01_STR-ERNAMADM sy-vline 
WA_J_7LE01_STR-LAEDAADM sy-vline 
WA_J_7LE01_STR-AEZETADM sy-vline 
WA_J_7LE01_STR-AENAMADM sy-vline 
WA_J_7LE01_STR-LVORMADM sy-vline      INTO ld_text SEPARATED BY SPACE.

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