ABAP Select data from SAP table FC01LMDLF0 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 FC01LMDLF0 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 FC01LMDLF0. 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 FC01LMDLF0 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_FC01LMDLF0 TYPE STANDARD TABLE OF FC01LMDLF0,
      WA_FC01LMDLF0 TYPE FC01LMDLF0,
      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: <FC01LMDLF0> TYPE FC01LMDLF0.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FC01LMDLF0
*  INTO TABLE @DATA(IT_FC01LMDLF02).
*--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_FC01LMDLF0 INDEX 1 INTO DATA(WA_FC01LMDLF02).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FC01LMDLF0>-DIMEN = 1.
<FC01LMDLF0>-CMETH = 1.
<FC01LMDLF0>-TXT = 1.
<FC01LMDLF0>-CACTT = 1.
<FC01LMDLF0>-PRFIND = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FC01LMDLF0-ACTIND, sy-vline,
  WA_FC01LMDLF0-UNAME, sy-vline,
  WA_FC01LMDLF0-DATUM, sy-vline,
  WA_FC01LMDLF0-UZEIT, sy-vline,
  WA_FC01LMDLF0-DIFIND, sy-vline,
  WA_FC01LMDLF0-LIMIND, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FC01LMDLF0 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_FC01LMDLF0 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_FC01LMDLF0 INTO WA_FC01LMDLF0.


*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 AC172, internal->external for field LIMIT
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-LIMIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-LIMIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field ODIFITD
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-ODIFITD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-ODIFITD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field ODIFITC
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-ODIFITC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-ODIFITC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field CDIFITD
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-CDIFITD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-CDIFITD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field CDIFITC
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-CDIFITC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-CDIFITC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field IITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-IITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-IITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field IBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-IBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-IBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field FITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-FITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-FITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field FBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-FBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-FBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit BFIMC, internal->external for field TITEM
CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-TITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-TITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field TBUPTR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-TBUPTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-TBUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field CONGR
CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-CONGR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-CONGR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field GWALVAL
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-GWALVAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-GWALVAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field GWRLVAL
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-GWRLVAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-GWRLVAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field NGALVAL
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-NGALVAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-NGALVAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field NGRLVAL
CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT'
  EXPORTING
    input =                      WA_FC01LMDLF0-NGRLVAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FC01LMDLF0-NGRLVAL.
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_FC01LMDLF0_STR, 
DIMEN TYPE STRING,
CMETH TYPE STRING,
TXT TYPE STRING,
CACTT TYPE STRING,
PRFIND TYPE STRING,
ACTIND TYPE STRING,
UNAME TYPE STRING,
DATUM TYPE STRING,
UZEIT TYPE STRING,
DIFIND TYPE STRING,
LIMIND TYPE STRING,
CURR TYPE STRING,
LIMIT TYPE STRING,
TCSIND TYPE STRING,
CUTYP TYPE STRING,
OSIIND TYPE STRING,
OSPIND TYPE STRING,
DOSIND TYPE STRING,
NOQIND TYPE STRING,
DLTAIND TYPE STRING,
SEQNO TYPE STRING,
ITCLG TYPE STRING,
ITSET1 TYPE STRING,
SISET1 TYPE STRING,
SITYP1 TYPE STRING,
ITSET2 TYPE STRING,
SISET2 TYPE STRING,
SITYP2 TYPE STRING,
SITYP TYPE STRING,
ODIFITD TYPE STRING,
ODIFSID TYPE STRING,
ODIFSTD TYPE STRING,
ODIFITC TYPE STRING,
ODIFSIC TYPE STRING,
ODIFSTC TYPE STRING,
CDIFITD TYPE STRING,
CDIFSID TYPE STRING,
CDIFSTD TYPE STRING,
CDIFITC TYPE STRING,
CDIFSIC TYPE STRING,
CDIFSTC TYPE STRING,
IITEM TYPE STRING,
IITSET TYPE STRING,
ISITYP TYPE STRING,
ISITEM TYPE STRING,
ISISET TYPE STRING,
IBUPTR TYPE STRING,
IBPSET TYPE STRING,
FITEM TYPE STRING,
FSITYP TYPE STRING,
FSITEM TYPE STRING,
FBUPTR TYPE STRING,
TITEM TYPE STRING,
TSITYP TYPE STRING,
TSITEM TYPE STRING,
TBUPTR TYPE STRING,
PERIND TYPE STRING,
FSCAT TYPE STRING,
PERCT TYPE STRING,
PBIND TYPE STRING,
DOCIND TYPE STRING,
BSIGN TYPE STRING,
BAL_SUBIT TYPE STRING,
BAL_BUPTR TYPE STRING,
CONGR TYPE STRING,
COITP TYPE STRING,
USGAAP TYPE STRING,
GWPROC TYPE STRING,
NGPROC TYPE STRING,
HIREXC TYPE STRING,
GWAEXC TYPE STRING,
GWDEXC TYPE STRING,
GWREXC TYPE STRING,
NGAEXC TYPE STRING,
NGDEXC TYPE STRING,
NGREXC TYPE STRING,
NEQEXC TYPE STRING,
NINVFLG TYPE STRING,
NMINFLG TYPE STRING,
HRREV TYPE STRING,
HRSHA TYPE STRING,
HRSITYP TYPE STRING,
HRAQDSI TYPE STRING,
HRDPCSI TYPE STRING,
HRDPDSI TYPE STRING,
NHSITYP TYPE STRING,
NHAQCSI TYPE STRING,
NHDPDSI TYPE STRING,
NHDPCSI TYPE STRING,
GWAYR TYPE STRING,
GWAPE TYPE STRING,
GWABG TYPE STRING,
GWARFLG TYPE STRING,
GWALFLG TYPE STRING,
GWALVAL TYPE STRING,
GWALCUR TYPE STRING,
GWRYR TYPE STRING,
GWRPE TYPE STRING,
GWRBG TYPE STRING,
GWRRFLG TYPE STRING,
GWRLFLG TYPE STRING,
GWRLVAL TYPE STRING,
GWRLCUR TYPE STRING,
NGAYR TYPE STRING,
NGAPE TYPE STRING,
NGABG TYPE STRING,
NGARFLG TYPE STRING,
NGALFLG TYPE STRING,
NGALVAL TYPE STRING,
NGALCUR TYPE STRING,
NGRYR TYPE STRING,
NGRPE TYPE STRING,
NGRBG TYPE STRING,
NGRRFLG TYPE STRING,
NGRLFLG TYPE STRING,
NGRLVAL TYPE STRING,
NGRLCUR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FC01LMDLF0_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_FC01LMDLF0_STR-DIMEN sy-vline 
WA_FC01LMDLF0_STR-CMETH sy-vline 
WA_FC01LMDLF0_STR-TXT sy-vline 
WA_FC01LMDLF0_STR-CACTT sy-vline 
WA_FC01LMDLF0_STR-PRFIND sy-vline 
WA_FC01LMDLF0_STR-ACTIND sy-vline 
WA_FC01LMDLF0_STR-UNAME sy-vline 
WA_FC01LMDLF0_STR-DATUM sy-vline 
WA_FC01LMDLF0_STR-UZEIT sy-vline 
WA_FC01LMDLF0_STR-DIFIND sy-vline 
WA_FC01LMDLF0_STR-LIMIND sy-vline 
WA_FC01LMDLF0_STR-CURR sy-vline 
WA_FC01LMDLF0_STR-LIMIT sy-vline 
WA_FC01LMDLF0_STR-TCSIND sy-vline 
WA_FC01LMDLF0_STR-CUTYP sy-vline 
WA_FC01LMDLF0_STR-OSIIND sy-vline 
WA_FC01LMDLF0_STR-OSPIND sy-vline 
WA_FC01LMDLF0_STR-DOSIND sy-vline 
WA_FC01LMDLF0_STR-NOQIND sy-vline 
WA_FC01LMDLF0_STR-DLTAIND sy-vline 
WA_FC01LMDLF0_STR-SEQNO sy-vline 
WA_FC01LMDLF0_STR-ITCLG sy-vline 
WA_FC01LMDLF0_STR-ITSET1 sy-vline 
WA_FC01LMDLF0_STR-SISET1 sy-vline 
WA_FC01LMDLF0_STR-SITYP1 sy-vline 
WA_FC01LMDLF0_STR-ITSET2 sy-vline 
WA_FC01LMDLF0_STR-SISET2 sy-vline 
WA_FC01LMDLF0_STR-SITYP2 sy-vline 
WA_FC01LMDLF0_STR-SITYP sy-vline 
WA_FC01LMDLF0_STR-ODIFITD sy-vline 
WA_FC01LMDLF0_STR-ODIFSID sy-vline 
WA_FC01LMDLF0_STR-ODIFSTD sy-vline 
WA_FC01LMDLF0_STR-ODIFITC sy-vline 
WA_FC01LMDLF0_STR-ODIFSIC sy-vline 
WA_FC01LMDLF0_STR-ODIFSTC sy-vline 
WA_FC01LMDLF0_STR-CDIFITD sy-vline 
WA_FC01LMDLF0_STR-CDIFSID sy-vline 
WA_FC01LMDLF0_STR-CDIFSTD sy-vline 
WA_FC01LMDLF0_STR-CDIFITC sy-vline 
WA_FC01LMDLF0_STR-CDIFSIC sy-vline 
WA_FC01LMDLF0_STR-CDIFSTC sy-vline 
WA_FC01LMDLF0_STR-IITEM sy-vline 
WA_FC01LMDLF0_STR-IITSET sy-vline 
WA_FC01LMDLF0_STR-ISITYP sy-vline 
WA_FC01LMDLF0_STR-ISITEM sy-vline 
WA_FC01LMDLF0_STR-ISISET sy-vline 
WA_FC01LMDLF0_STR-IBUPTR sy-vline 
WA_FC01LMDLF0_STR-IBPSET sy-vline 
WA_FC01LMDLF0_STR-FITEM sy-vline 
WA_FC01LMDLF0_STR-FSITYP sy-vline 
WA_FC01LMDLF0_STR-FSITEM sy-vline 
WA_FC01LMDLF0_STR-FBUPTR sy-vline 
WA_FC01LMDLF0_STR-TITEM sy-vline 
WA_FC01LMDLF0_STR-TSITYP sy-vline 
WA_FC01LMDLF0_STR-TSITEM sy-vline 
WA_FC01LMDLF0_STR-TBUPTR sy-vline 
WA_FC01LMDLF0_STR-PERIND sy-vline 
WA_FC01LMDLF0_STR-FSCAT sy-vline 
WA_FC01LMDLF0_STR-PERCT sy-vline 
WA_FC01LMDLF0_STR-PBIND sy-vline 
WA_FC01LMDLF0_STR-DOCIND sy-vline 
WA_FC01LMDLF0_STR-BSIGN sy-vline 
WA_FC01LMDLF0_STR-BAL_SUBIT sy-vline 
WA_FC01LMDLF0_STR-BAL_BUPTR sy-vline 
WA_FC01LMDLF0_STR-CONGR sy-vline 
WA_FC01LMDLF0_STR-COITP sy-vline 
WA_FC01LMDLF0_STR-USGAAP sy-vline 
WA_FC01LMDLF0_STR-GWPROC sy-vline 
WA_FC01LMDLF0_STR-NGPROC sy-vline 
WA_FC01LMDLF0_STR-HIREXC sy-vline 
WA_FC01LMDLF0_STR-GWAEXC sy-vline 
WA_FC01LMDLF0_STR-GWDEXC sy-vline 
WA_FC01LMDLF0_STR-GWREXC sy-vline 
WA_FC01LMDLF0_STR-NGAEXC sy-vline 
WA_FC01LMDLF0_STR-NGDEXC sy-vline 
WA_FC01LMDLF0_STR-NGREXC sy-vline 
WA_FC01LMDLF0_STR-NEQEXC sy-vline 
WA_FC01LMDLF0_STR-NINVFLG sy-vline 
WA_FC01LMDLF0_STR-NMINFLG sy-vline 
WA_FC01LMDLF0_STR-HRREV sy-vline 
WA_FC01LMDLF0_STR-HRSHA sy-vline 
WA_FC01LMDLF0_STR-HRSITYP sy-vline 
WA_FC01LMDLF0_STR-HRAQDSI sy-vline 
WA_FC01LMDLF0_STR-HRDPCSI sy-vline 
WA_FC01LMDLF0_STR-HRDPDSI sy-vline 
WA_FC01LMDLF0_STR-NHSITYP sy-vline 
WA_FC01LMDLF0_STR-NHAQCSI sy-vline 
WA_FC01LMDLF0_STR-NHDPDSI sy-vline 
WA_FC01LMDLF0_STR-NHDPCSI sy-vline 
WA_FC01LMDLF0_STR-GWAYR sy-vline 
WA_FC01LMDLF0_STR-GWAPE sy-vline 
WA_FC01LMDLF0_STR-GWABG sy-vline 
WA_FC01LMDLF0_STR-GWARFLG sy-vline 
WA_FC01LMDLF0_STR-GWALFLG sy-vline 
WA_FC01LMDLF0_STR-GWALVAL sy-vline 
WA_FC01LMDLF0_STR-GWALCUR sy-vline 
WA_FC01LMDLF0_STR-GWRYR sy-vline 
WA_FC01LMDLF0_STR-GWRPE sy-vline 
WA_FC01LMDLF0_STR-GWRBG sy-vline 
WA_FC01LMDLF0_STR-GWRRFLG sy-vline 
WA_FC01LMDLF0_STR-GWRLFLG sy-vline 
WA_FC01LMDLF0_STR-GWRLVAL sy-vline 
WA_FC01LMDLF0_STR-GWRLCUR sy-vline 
WA_FC01LMDLF0_STR-NGAYR sy-vline 
WA_FC01LMDLF0_STR-NGAPE sy-vline 
WA_FC01LMDLF0_STR-NGABG sy-vline 
WA_FC01LMDLF0_STR-NGARFLG sy-vline 
WA_FC01LMDLF0_STR-NGALFLG sy-vline 
WA_FC01LMDLF0_STR-NGALVAL sy-vline 
WA_FC01LMDLF0_STR-NGALCUR sy-vline 
WA_FC01LMDLF0_STR-NGRYR sy-vline 
WA_FC01LMDLF0_STR-NGRPE sy-vline 
WA_FC01LMDLF0_STR-NGRBG sy-vline 
WA_FC01LMDLF0_STR-NGRRFLG sy-vline 
WA_FC01LMDLF0_STR-NGRLFLG sy-vline 
WA_FC01LMDLF0_STR-NGRLVAL sy-vline 
WA_FC01LMDLF0_STR-NGRLCUR sy-vline      INTO ld_text SEPARATED BY SPACE.

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