ABAP Select data from SAP table Q0527 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 Q0527 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 Q0527. 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 Q0527 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_Q0527 TYPE STANDARD TABLE OF Q0527,
      WA_Q0527 TYPE Q0527,
      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: <Q0527> TYPE Q0527.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM Q0527
*  INTO TABLE @DATA(IT_Q05272).
*--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_Q0527 INDEX 1 INTO DATA(WA_Q05272).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<Q0527>-WAERS = 1.
<Q0527>-ABFEJ = 1.
<Q0527>-UEUAJ = 1.
<Q0527>-MALUJ = 1.
<Q0527>-UENTS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_Q0527-UABFI, sy-vline,
  WA_Q0527-SONSJ, sy-vline,
  WA_Q0527-ABSTS, sy-vline,
  WA_Q0527-KUENT, sy-vline,
  WA_Q0527-GABFG, sy-vline,
  WA_Q0527-UGLFD, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_Q0527 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_Q0527 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_Q0527 INTO WA_Q0527.


*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_Q0527_STR, 
WAERS TYPE STRING,
ABFEJ TYPE STRING,
UEUAJ TYPE STRING,
MALUJ TYPE STRING,
UENTS TYPE STRING,
UABFI TYPE STRING,
SONSJ TYPE STRING,
ABSTS TYPE STRING,
KUENT TYPE STRING,
GABFG TYPE STRING,
UGLFD TYPE STRING,
UGSZG TYPE STRING,
MGLFD TYPE STRING,
MGSZG TYPE STRING,
FABFG TYPE STRING,
USVBG TYPE STRING,
SOSOZ TYPE STRING,
ABS_BETRG TYPE STRING,
ANT_STFREI TYPE STRING,
DN_SVBETRG TYPE STRING,
SONDERZAHL TYPE STRING,
ABZYE_STNET TYPE STRING,
ABZYE_STBRT TYPE STRING,
FAKT1 TYPE STRING,
ST_NACH_PROZENT TYPE STRING,
ST_NACH_QUOTIENT TYPE STRING,
NACH_QUOTIENT_BLERT TYPE STRING,
NACH_QUOTIENT_ALERT TYPE STRING,
BMGJVDEF TYPE STRING,
ANGABDEF TYPE STRING,
ANPABDEF TYPE STRING,
FABFGDEF TYPE STRING,
ANZDJDEF TYPE STRING,
PENABDEF TYPE STRING,
SOSOZDEF TYPE STRING,
FAVDZDEF TYPE STRING,
UKTAGDEF TYPE STRING,
UGLFDDEF TYPE STRING,
UGSZGDEF TYPE STRING,
KONTDEF TYPE STRING,
KKTAGDEF TYPE STRING,
KGLFDDEF TYPE STRING,
KGSZGDEF TYPE STRING,
GABFGDEF TYPE STRING,
ABANZDJDEF TYPE STRING,
ABSTAUTO1 TYPE STRING,
ABSTAUTO2 TYPE STRING,
ABSTAUTO3 TYPE STRING,
ABSTAUTO4 TYPE STRING,
ABSTAUTO5 TYPE STRING,
ABSTAUTO6 TYPE STRING,
ABAUTO TYPE STRING,
FAAUTO TYPE STRING,
ZSAUTO TYPE STRING,
MAAUTO TYPE STRING,
EUAUTO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_Q0527_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_Q0527_STR-WAERS sy-vline 
WA_Q0527_STR-ABFEJ sy-vline 
WA_Q0527_STR-UEUAJ sy-vline 
WA_Q0527_STR-MALUJ sy-vline 
WA_Q0527_STR-UENTS sy-vline 
WA_Q0527_STR-UABFI sy-vline 
WA_Q0527_STR-SONSJ sy-vline 
WA_Q0527_STR-ABSTS sy-vline 
WA_Q0527_STR-KUENT sy-vline 
WA_Q0527_STR-GABFG sy-vline 
WA_Q0527_STR-UGLFD sy-vline 
WA_Q0527_STR-UGSZG sy-vline 
WA_Q0527_STR-MGLFD sy-vline 
WA_Q0527_STR-MGSZG sy-vline 
WA_Q0527_STR-FABFG sy-vline 
WA_Q0527_STR-USVBG sy-vline 
WA_Q0527_STR-SOSOZ sy-vline 
WA_Q0527_STR-ABS_BETRG sy-vline 
WA_Q0527_STR-ANT_STFREI sy-vline 
WA_Q0527_STR-DN_SVBETRG sy-vline 
WA_Q0527_STR-SONDERZAHL sy-vline 
WA_Q0527_STR-ABZYE_STNET sy-vline 
WA_Q0527_STR-ABZYE_STBRT sy-vline 
WA_Q0527_STR-FAKT1 sy-vline 
WA_Q0527_STR-ST_NACH_PROZENT sy-vline 
WA_Q0527_STR-ST_NACH_QUOTIENT sy-vline 
WA_Q0527_STR-NACH_QUOTIENT_BLERT sy-vline 
WA_Q0527_STR-NACH_QUOTIENT_ALERT sy-vline 
WA_Q0527_STR-BMGJVDEF sy-vline 
WA_Q0527_STR-ANGABDEF sy-vline 
WA_Q0527_STR-ANPABDEF sy-vline 
WA_Q0527_STR-FABFGDEF sy-vline 
WA_Q0527_STR-ANZDJDEF sy-vline 
WA_Q0527_STR-PENABDEF sy-vline 
WA_Q0527_STR-SOSOZDEF sy-vline 
WA_Q0527_STR-FAVDZDEF sy-vline 
WA_Q0527_STR-UKTAGDEF sy-vline 
WA_Q0527_STR-UGLFDDEF sy-vline 
WA_Q0527_STR-UGSZGDEF sy-vline 
WA_Q0527_STR-KONTDEF sy-vline 
WA_Q0527_STR-KKTAGDEF sy-vline 
WA_Q0527_STR-KGLFDDEF sy-vline 
WA_Q0527_STR-KGSZGDEF sy-vline 
WA_Q0527_STR-GABFGDEF sy-vline 
WA_Q0527_STR-ABANZDJDEF sy-vline 
WA_Q0527_STR-ABSTAUTO1 sy-vline 
WA_Q0527_STR-ABSTAUTO2 sy-vline 
WA_Q0527_STR-ABSTAUTO3 sy-vline 
WA_Q0527_STR-ABSTAUTO4 sy-vline 
WA_Q0527_STR-ABSTAUTO5 sy-vline 
WA_Q0527_STR-ABSTAUTO6 sy-vline 
WA_Q0527_STR-ABAUTO sy-vline 
WA_Q0527_STR-FAAUTO sy-vline 
WA_Q0527_STR-ZSAUTO sy-vline 
WA_Q0527_STR-MAAUTO sy-vline 
WA_Q0527_STR-EUAUTO sy-vline      INTO ld_text SEPARATED BY SPACE.

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