ABAP Select data from SAP table J_7LMS 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_7LMS 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_7LMS. 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_7LMS 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_7LMS TYPE STANDARD TABLE OF J_7LMS,
      WA_J_7LMS TYPE J_7LMS,
      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_7LMS> TYPE J_7LMS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_7LMS
*  INTO TABLE @DATA(IT_J_7LMS2).
*--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_7LMS INDEX 1 INTO DATA(WA_J_7LMS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_7LMS>-MANDT = 1.
<J_7LMS>-ENTNR = 1.
<J_7LMS>-FMGRP = 1.
<J_7LMS>-FMGRP_V1K = 1.
<J_7LMS>-ENTNA = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_7LMS-BUKRS, sy-vline,
  WA_J_7LMS-LAND1, sy-vline,
  WA_J_7LMS-BLART, sy-vline,
  WA_J_7LMS-BLTYP, sy-vline,
  WA_J_7LMS-BLTYP_KOPF, sy-vline,
  WA_J_7LMS-FBGRP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_7LMS 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_7LMS 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_7LMS INTO WA_J_7LMS.


*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_7LMS-ENTNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LMS-ENTNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit SPDEV, internal->external for field SPLD
CALL FUNCTION 'CONVERSION_EXIT_SPDEV_OUTPUT'
  EXPORTING
    input =                      WA_J_7LMS-SPLD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LMS-SPLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field KUNNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_J_7LMS-KUNNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_7LMS-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_J_7LMS_STR, 
MANDT TYPE STRING,
ENTNR TYPE STRING,
FMGRP TYPE STRING,
FMGRP_V1K TYPE STRING,
ENTNA TYPE STRING,
BUKRS TYPE STRING,
LAND1 TYPE STRING,
BLART TYPE STRING,
BLTYP TYPE STRING,
BLTYP_KOPF TYPE STRING,
FBGRP TYPE STRING,
PERIO TYPE STRING,
PERIO_GELD TYPE STRING,
DATAB TYPE STRING,
DATBI TYPE STRING,
PERINR TYPE STRING,
GJAHR TYPE STRING,
PERIV TYPE STRING,
DATPE TYPE STRING,
TLKNZ TYPE STRING,
WAERU TYPE STRING,
KURST TYPE STRING,
KURSD TYPE STRING,
KURSF TYPE STRING,
WAERK TYPE STRING,
PLVRS TYPE STRING,
KPROZ TYPE STRING,
KZPRAD TYPE STRING,
KORWE TYPE STRING,
KORWR TYPE STRING,
KORWH TYPE STRING,
MWSKR TYPE STRING,
MWSKE TYPE STRING,
MWSKH TYPE STRING,
BUDAT TYPE STRING,
TXDAT TYPE STRING,
SPLD TYPE STRING,
PROTKZ TYPE STRING,
PROT_FORMAT TYPE STRING,
DTAKZ TYPE STRING,
DTA_STKZ TYPE STRING,
PATHLOCAL TYPE STRING,
PATHEXTERN TYPE STRING,
SUBRC TYPE STRING,
MSATZ TYPE STRING,
MWSKZ TYPE STRING,
RUNDG TYPE STRING,
ZART TYPE STRING,
EVENT TYPE STRING,
SAVKZ TYPE STRING,
ANZKZ TYPE STRING,
SUNKZ TYPE STRING,
DUNKZ TYPE STRING,
SAVEDKZ TYPE STRING,
FCODE TYPE STRING,
FONAM TYPE STRING,
KUNNR TYPE STRING,
SMARTFORM_KZ TYPE STRING,
SAPSCRIPT TYPE STRING,
SMARTFONAM TYPE STRING,
D_FORM_NAME TYPE STRING,
APPEND_MODUS TYPE STRING,
JET_TERMINAL_KZ TYPE STRING,
JET_DOM_SUFFIX TYPE STRING,
HITYP TYPE STRING,
HISTUNR TYPE STRING,
HREKU TYPE STRING,
VRSIO TYPE STRING,
MSGTYBAL TYPE STRING,
MSGIDBAL TYPE STRING,
MSGNOBAL TYPE STRING,
MSGV1BAL TYPE STRING,
MSGV2BAL TYPE STRING,
MSGV3BAL TYPE STRING,
MSGV4BAL TYPE STRING,
ALTEXTBAL TYPE STRING,
USEREXITPBAL TYPE STRING,
USEREXITFBAL TYPE STRING,
DETLEVELBAL TYPE STRING,
PROBCLASSBAL TYPE STRING,
ALSORTBAL TYPE STRING,
LOESCHENCAT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_7LMS_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_7LMS_STR-MANDT sy-vline 
WA_J_7LMS_STR-ENTNR sy-vline 
WA_J_7LMS_STR-FMGRP sy-vline 
WA_J_7LMS_STR-FMGRP_V1K sy-vline 
WA_J_7LMS_STR-ENTNA sy-vline 
WA_J_7LMS_STR-BUKRS sy-vline 
WA_J_7LMS_STR-LAND1 sy-vline 
WA_J_7LMS_STR-BLART sy-vline 
WA_J_7LMS_STR-BLTYP sy-vline 
WA_J_7LMS_STR-BLTYP_KOPF sy-vline 
WA_J_7LMS_STR-FBGRP sy-vline 
WA_J_7LMS_STR-PERIO sy-vline 
WA_J_7LMS_STR-PERIO_GELD sy-vline 
WA_J_7LMS_STR-DATAB sy-vline 
WA_J_7LMS_STR-DATBI sy-vline 
WA_J_7LMS_STR-PERINR sy-vline 
WA_J_7LMS_STR-GJAHR sy-vline 
WA_J_7LMS_STR-PERIV sy-vline 
WA_J_7LMS_STR-DATPE sy-vline 
WA_J_7LMS_STR-TLKNZ sy-vline 
WA_J_7LMS_STR-WAERU sy-vline 
WA_J_7LMS_STR-KURST sy-vline 
WA_J_7LMS_STR-KURSD sy-vline 
WA_J_7LMS_STR-KURSF sy-vline 
WA_J_7LMS_STR-WAERK sy-vline 
WA_J_7LMS_STR-PLVRS sy-vline 
WA_J_7LMS_STR-KPROZ sy-vline 
WA_J_7LMS_STR-KZPRAD sy-vline 
WA_J_7LMS_STR-KORWE sy-vline 
WA_J_7LMS_STR-KORWR sy-vline 
WA_J_7LMS_STR-KORWH sy-vline 
WA_J_7LMS_STR-MWSKR sy-vline 
WA_J_7LMS_STR-MWSKE sy-vline 
WA_J_7LMS_STR-MWSKH sy-vline 
WA_J_7LMS_STR-BUDAT sy-vline 
WA_J_7LMS_STR-TXDAT sy-vline 
WA_J_7LMS_STR-SPLD sy-vline 
WA_J_7LMS_STR-PROTKZ sy-vline 
WA_J_7LMS_STR-PROT_FORMAT sy-vline 
WA_J_7LMS_STR-DTAKZ sy-vline 
WA_J_7LMS_STR-DTA_STKZ sy-vline 
WA_J_7LMS_STR-PATHLOCAL sy-vline 
WA_J_7LMS_STR-PATHEXTERN sy-vline 
WA_J_7LMS_STR-SUBRC sy-vline 
WA_J_7LMS_STR-MSATZ sy-vline 
WA_J_7LMS_STR-MWSKZ sy-vline 
WA_J_7LMS_STR-RUNDG sy-vline 
WA_J_7LMS_STR-ZART sy-vline 
WA_J_7LMS_STR-EVENT sy-vline 
WA_J_7LMS_STR-SAVKZ sy-vline 
WA_J_7LMS_STR-ANZKZ sy-vline 
WA_J_7LMS_STR-SUNKZ sy-vline 
WA_J_7LMS_STR-DUNKZ sy-vline 
WA_J_7LMS_STR-SAVEDKZ sy-vline 
WA_J_7LMS_STR-FCODE sy-vline 
WA_J_7LMS_STR-FONAM sy-vline 
WA_J_7LMS_STR-KUNNR sy-vline 
WA_J_7LMS_STR-SMARTFORM_KZ sy-vline 
WA_J_7LMS_STR-SAPSCRIPT sy-vline 
WA_J_7LMS_STR-SMARTFONAM sy-vline 
WA_J_7LMS_STR-D_FORM_NAME sy-vline 
WA_J_7LMS_STR-APPEND_MODUS sy-vline 
WA_J_7LMS_STR-JET_TERMINAL_KZ sy-vline 
WA_J_7LMS_STR-JET_DOM_SUFFIX sy-vline 
WA_J_7LMS_STR-HITYP sy-vline 
WA_J_7LMS_STR-HISTUNR sy-vline 
WA_J_7LMS_STR-HREKU sy-vline 
WA_J_7LMS_STR-VRSIO sy-vline 
WA_J_7LMS_STR-MSGTYBAL sy-vline 
WA_J_7LMS_STR-MSGIDBAL sy-vline 
WA_J_7LMS_STR-MSGNOBAL sy-vline 
WA_J_7LMS_STR-MSGV1BAL sy-vline 
WA_J_7LMS_STR-MSGV2BAL sy-vline 
WA_J_7LMS_STR-MSGV3BAL sy-vline 
WA_J_7LMS_STR-MSGV4BAL sy-vline 
WA_J_7LMS_STR-ALTEXTBAL sy-vline 
WA_J_7LMS_STR-USEREXITPBAL sy-vline 
WA_J_7LMS_STR-USEREXITFBAL sy-vline 
WA_J_7LMS_STR-DETLEVELBAL sy-vline 
WA_J_7LMS_STR-PROBCLASSBAL sy-vline 
WA_J_7LMS_STR-ALSORTBAL sy-vline 
WA_J_7LMS_STR-LOESCHENCAT sy-vline      INTO ld_text SEPARATED BY SPACE.

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