ABAP Select data from SAP table PUA_LEGAL_PROPERTIES_DATA 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 PUA_LEGAL_PROPERTIES_DATA 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 PUA_LEGAL_PROPERTIES_DATA. 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 PUA_LEGAL_PROPERTIES_DATA 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_PUA_LEGAL_PROPERTIES_DATA TYPE STANDARD TABLE OF PUA_LEGAL_PROPERTIES_DATA,
      WA_PUA_LEGAL_PROPERTIES_DATA TYPE PUA_LEGAL_PROPERTIES_DATA,
      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: <PUA_LEGAL_PROPERTIES_DATA> TYPE PUA_LEGAL_PROPERTIES_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PUA_LEGAL_PROPERTIES_DATA
*  INTO TABLE @DATA(IT_PUA_LEGAL_PROPERTIES_DATA2).
*--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_PUA_LEGAL_PROPERTIES_DATA INDEX 1 INTO DATA(WA_PUA_LEGAL_PROPERTIES_DATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PUA_LEGAL_PROPERTIES_DATA>-LNAME = 1.
<PUA_LEGAL_PROPERTIES_DATA>-KINDEX = 1.
<PUA_LEGAL_PROPERTIES_DATA>-REGION = 1.
<PUA_LEGAL_PROPERTIES_DATA>-CITY = 1.
<PUA_LEGAL_PROPERTIES_DATA>-STREET = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PUA_LEGAL_PROPERTIES_DATA-HOUSE, sy-vline,
  WA_PUA_LEGAL_PROPERTIES_DATA-BLDNG, sy-vline,
  WA_PUA_LEGAL_PROPERTIES_DATA-DPAU_N, sy-vline,
  WA_PUA_LEGAL_PROPERTIES_DATA-DPAU_EDRPOU, sy-vline,
  WA_PUA_LEGAL_PROPERTIES_DATA-CAREA, sy-vline,
  WA_PUA_LEGAL_PROPERTIES_DATA-CADREG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PUA_LEGAL_PROPERTIES_DATA 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_PUA_LEGAL_PROPERTIES_DATA 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_PUA_LEGAL_PROPERTIES_DATA INTO WA_PUA_LEGAL_PROPERTIES_DATA.


*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_PUA_LEGAL_PROPERTIES_DATA_STR, 
LNAME TYPE STRING,
KINDEX TYPE STRING,
REGION TYPE STRING,
CITY TYPE STRING,
STREET TYPE STRING,
HOUSE TYPE STRING,
BLDNG TYPE STRING,
DPAU_N TYPE STRING,
DPAU_EDRPOU TYPE STRING,
CAREA TYPE STRING,
CADREG TYPE STRING,
CSORG TYPE STRING,
CONT01_TAX TYPE STRING,
PERN01_TAX TYPE STRING,
CONT02_TAX TYPE STRING,
PERN02_TAX TYPE STRING,
CONT03_TAX TYPE STRING,
PERN03_TAX TYPE STRING,
PFU_N TYPE STRING,
PFU_NUM TYPE STRING,
PFU_NUM_SO TYPE STRING,
PFU_REG_NUM TYPE STRING,
CONT01_PFU TYPE STRING,
PERN01_PFU TYPE STRING,
CONT02_PFU TYPE STRING,
PERN02_PFU TYPE STRING,
CONT03_PFU TYPE STRING,
PERN03_PFU TYPE STRING,
FSSU_N TYPE STRING,
FSSU_NUM TYPE STRING,
FSSU_DIR TYPE STRING,
FSSU_NUM_SO TYPE STRING,
CONT01_SIN TYPE STRING,
PERN01_SIN TYPE STRING,
CONT02_SIN TYPE STRING,
PERN02_SIN TYPE STRING,
CONT03_SIN TYPE STRING,
PERN03_SIN TYPE STRING,
DKSU_N TYPE STRING,
DKSUCODE TYPE STRING,
SUBD_N TYPE STRING,
CONT01_CST TYPE STRING,
PERN01_CST TYPE STRING,
CONT02_CST TYPE STRING,
PERN02_CST TYPE STRING,
CONT03_CST TYPE STRING,
PERN03_CST TYPE STRING,
KINDEXF TYPE STRING,
REGIONF TYPE STRING,
CITYF TYPE STRING,
STREETF TYPE STRING,
HOUSEF TYPE STRING,
BLDNGF TYPE STRING,
TELNRF TYPE STRING,
FAXNRF TYPE STRING,
EMAILF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PUA_LEGAL_PROPERTIES_DATA_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_PUA_LEGAL_PROPERTIES_DATA_STR-LNAME sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-KINDEX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-REGION sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CITY sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-STREET sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-HOUSE sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-BLDNG sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-DPAU_N sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-DPAU_EDRPOU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CAREA sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CADREG sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CSORG sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT01_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN01_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT02_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN02_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT03_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN03_TAX sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PFU_N sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PFU_NUM sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PFU_NUM_SO sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PFU_REG_NUM sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT01_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN01_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT02_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN02_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT03_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN03_PFU sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-FSSU_N sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-FSSU_NUM sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-FSSU_DIR sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-FSSU_NUM_SO sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT01_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN01_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT02_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN02_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT03_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN03_SIN sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-DKSU_N sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-DKSUCODE sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-SUBD_N sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT01_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN01_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT02_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN02_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CONT03_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-PERN03_CST sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-KINDEXF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-REGIONF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-CITYF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-STREETF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-HOUSEF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-BLDNGF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-TELNRF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-FAXNRF sy-vline 
WA_PUA_LEGAL_PROPERTIES_DATA_STR-EMAILF sy-vline      INTO ld_text SEPARATED BY SPACE.

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