ABAP Select data from SAP table Q559L 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 Q559L 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 Q559L. 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 Q559L 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_Q559L TYPE STANDARD TABLE OF Q559L,
      WA_Q559L TYPE Q559L,
      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: <Q559L> TYPE Q559L.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM Q559L
*  INTO TABLE @DATA(IT_Q559L2).
*--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_Q559L INDEX 1 INTO DATA(WA_Q559L2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<Q559L>-PFREQ = 1.
<Q559L>-PERDT = 1.
<Q559L>-PERFR = 1.
<Q559L>-PERYE = 1.
<Q559L>-PERTI = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_Q559L-PERPA, sy-vline,
  WA_Q559L-PERDA, sy-vline,
  WA_Q559L-PERRU, sy-vline,
  WA_Q559L-AFREQ, sy-vline,
  WA_Q559L-ACCFR, sy-vline,
  WA_Q559L-ACCYE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_Q559L 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_Q559L 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_Q559L INTO WA_Q559L.


*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_Q559L_STR, 
PFREQ TYPE STRING,
PERDT TYPE STRING,
PERFR TYPE STRING,
PERYE TYPE STRING,
PERTI TYPE STRING,
PERPA TYPE STRING,
PERDA TYPE STRING,
PERRU TYPE STRING,
AFREQ TYPE STRING,
ACCFR TYPE STRING,
ACCYE TYPE STRING,
ACCTI TYPE STRING,
ACCPA TYPE STRING,
ACCMO TYPE STRING,
ACCDA TYPE STRING,
ACCDT TYPE STRING,
ACCRU TYPE STRING,
NFREQ TYPE STRING,
MUNON TYPE STRING,
MUZES TYPE STRING,
MUZES_TXT TYPE STRING,
MUSAL TYPE STRING,
MUSAL_TXT TYPE STRING,
KDDAY_SEN TYPE STRING,
KDBAC_SEN TYPE STRING,
KDEAC_SEN TYPE STRING,
KDBBA_SEN TYPE STRING,
KDEBA_SEN TYPE STRING,
KDDAT_SEN TYPE STRING,
KDDAY_AGE TYPE STRING,
KDBAC_AGE TYPE STRING,
KDEAC_AGE TYPE STRING,
KDBBA_AGE TYPE STRING,
KDEBA_AGE TYPE STRING,
KDDAT_AGE TYPE STRING,
SEBEG_ENT TYPE STRING,
SEEND_ENT TYPE STRING,
SEUNI_ENT TYPE STRING,
AGBEG_ENT TYPE STRING,
AGEND_ENT TYPE STRING,
AGUNI_ENT TYPE STRING,
LVNUM_ENT TYPE STRING,
TTZES_ENT TYPE STRING,
TTSAL_ENT TYPE STRING,
LVUNI_ENT TYPE STRING,
BAPER_ENT TYPE STRING,
PRORA TYPE STRING,
NO_PRORA TYPE STRING,END OF T_EKKO_STR.
DATA: WA_Q559L_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_Q559L_STR-PFREQ sy-vline 
WA_Q559L_STR-PERDT sy-vline 
WA_Q559L_STR-PERFR sy-vline 
WA_Q559L_STR-PERYE sy-vline 
WA_Q559L_STR-PERTI sy-vline 
WA_Q559L_STR-PERPA sy-vline 
WA_Q559L_STR-PERDA sy-vline 
WA_Q559L_STR-PERRU sy-vline 
WA_Q559L_STR-AFREQ sy-vline 
WA_Q559L_STR-ACCFR sy-vline 
WA_Q559L_STR-ACCYE sy-vline 
WA_Q559L_STR-ACCTI sy-vline 
WA_Q559L_STR-ACCPA sy-vline 
WA_Q559L_STR-ACCMO sy-vline 
WA_Q559L_STR-ACCDA sy-vline 
WA_Q559L_STR-ACCDT sy-vline 
WA_Q559L_STR-ACCRU sy-vline 
WA_Q559L_STR-NFREQ sy-vline 
WA_Q559L_STR-MUNON sy-vline 
WA_Q559L_STR-MUZES sy-vline 
WA_Q559L_STR-MUZES_TXT sy-vline 
WA_Q559L_STR-MUSAL sy-vline 
WA_Q559L_STR-MUSAL_TXT sy-vline 
WA_Q559L_STR-KDDAY_SEN sy-vline 
WA_Q559L_STR-KDBAC_SEN sy-vline 
WA_Q559L_STR-KDEAC_SEN sy-vline 
WA_Q559L_STR-KDBBA_SEN sy-vline 
WA_Q559L_STR-KDEBA_SEN sy-vline 
WA_Q559L_STR-KDDAT_SEN sy-vline 
WA_Q559L_STR-KDDAY_AGE sy-vline 
WA_Q559L_STR-KDBAC_AGE sy-vline 
WA_Q559L_STR-KDEAC_AGE sy-vline 
WA_Q559L_STR-KDBBA_AGE sy-vline 
WA_Q559L_STR-KDEBA_AGE sy-vline 
WA_Q559L_STR-KDDAT_AGE sy-vline 
WA_Q559L_STR-SEBEG_ENT sy-vline 
WA_Q559L_STR-SEEND_ENT sy-vline 
WA_Q559L_STR-SEUNI_ENT sy-vline 
WA_Q559L_STR-AGBEG_ENT sy-vline 
WA_Q559L_STR-AGEND_ENT sy-vline 
WA_Q559L_STR-AGUNI_ENT sy-vline 
WA_Q559L_STR-LVNUM_ENT sy-vline 
WA_Q559L_STR-TTZES_ENT sy-vline 
WA_Q559L_STR-TTSAL_ENT sy-vline 
WA_Q559L_STR-LVUNI_ENT sy-vline 
WA_Q559L_STR-BAPER_ENT sy-vline 
WA_Q559L_STR-PRORA sy-vline 
WA_Q559L_STR-NO_PRORA sy-vline      INTO ld_text SEPARATED BY SPACE.

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