ABAP Select data from SAP table P28_P0528 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 P28_P0528 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 P28_P0528. 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 P28_P0528 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_P28_P0528 TYPE STANDARD TABLE OF P28_P0528,
      WA_P28_P0528 TYPE P28_P0528,
      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: <P28_P0528> TYPE P28_P0528.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P28_P0528
*  INTO TABLE @DATA(IT_P28_P05282).
*--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_P28_P0528 INDEX 1 INTO DATA(WA_P28_P05282).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P28_P0528>-EMPLOYEENO = 1.
<P28_P0528>-SUBTYPE = 1.
<P28_P0528>-OBJECTID = 1.
<P28_P0528>-LOCKINDIC = 1.
<P28_P0528>-VALIDEND = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P28_P0528-VALIDBEGIN, sy-vline,
  WA_P28_P0528-RECORDNR, sy-vline,
  WA_P28_P0528-MEMBERTYPE, sy-vline,
  WA_P28_P0528-FIRSTNAME, sy-vline,
  WA_P28_P0528-LASTNAME, sy-vline,
  WA_P28_P0528-DATEOFBIRTH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P28_P0528 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_P28_P0528 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_P28_P0528 INTO WA_P28_P0528.


*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 PDATE, internal->external for field DATEOFBIRTH
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
  EXPORTING
    input =                      WA_P28_P0528-DATEOFBIRTH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P28_P0528-DATEOFBIRTH.
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_P28_P0528_STR, 
EMPLOYEENO TYPE STRING,
SUBTYPE TYPE STRING,
OBJECTID TYPE STRING,
LOCKINDIC TYPE STRING,
VALIDEND TYPE STRING,
VALIDBEGIN TYPE STRING,
RECORDNR TYPE STRING,
MEMBERTYPE TYPE STRING,
FIRSTNAME TYPE STRING,
LASTNAME TYPE STRING,
DATEOFBIRTH TYPE STRING,
AGE TYPE STRING,
PLACEOFBIRTH TYPE STRING,
LANDOFBIRTH TYPE STRING,
NATIONALITY TYPE STRING,
GENDER TYPE STRING,
NAMEOFGENDER TYPE STRING,
NAMEOFLANDOFBIRTH TYPE STRING,
NAMEOFNATIONALITY TYPE STRING,
NAMEOFMEMBERTYPE TYPE STRING,
ID1TYPE TYPE STRING,
ID1NUMBER TYPE STRING,
ID2TYPE TYPE STRING,
ID2NUMBER TYPE STRING,
ID3TYPE TYPE STRING,
ID3NUMBER TYPE STRING,
ID4TYPE TYPE STRING,
ID4NUMBER TYPE STRING,
ID5TYPE TYPE STRING,
ID5NUMBER TYPE STRING,
TELEPHONENUMBER TYPE STRING,
SAMECOMPANYINDIC TYPE STRING,
MARITALSTATUS TYPE STRING,
MARITALSTATUSSIN TYPE STRING,
POLITICALSTATUS TYPE STRING,
OCCUPATIONKEY TYPE STRING,
JOBSTATUSKEY TYPE STRING,
FORMOFADDRESSKEY TYPE STRING,
FULLNAME TYPE STRING,
NAMEFORMATINDIC TYPE STRING,
CONTACT1TYPE TYPE STRING,
CONTACT1NUMBER TYPE STRING,
CONTACT2TYPE TYPE STRING,
CONTACT2NUMBER TYPE STRING,
CONTACT3TYPE TYPE STRING,
CONTACT3NUMBER TYPE STRING,
CONTACT4TYPE TYPE STRING,
CONTACT4NUMBER TYPE STRING,
POSTALCODE TYPE STRING,
COUNTRY TYPE STRING,
PROVINCE TYPE STRING,
CITY TYPE STRING,
DISTRICT TYPE STRING,
STREET TYPE STRING,
FULLADDRESS TYPE STRING,
EMPLOYERADDRKEY TYPE STRING,
NAMEOFCOUNTRY TYPE STRING,
NAMEOFPROVINCE TYPE STRING,
EMPLOYERADDRESS TYPE STRING,
NAMEOFOCCUPATION TYPE STRING,
NAMEOFJOBSTATUS TYPE STRING,
NAMEPOLITISTATUS TYPE STRING,
NAMEMARITALSTATS TYPE STRING,
NAMEFORMADDRES TYPE STRING,
ID1TYPETEXT TYPE STRING,
ID2TYPETEXT TYPE STRING,
ID3TYPETEXT TYPE STRING,
ID4TYPETEXT TYPE STRING,
ID5TYPETEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P28_P0528_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_P28_P0528_STR-EMPLOYEENO sy-vline 
WA_P28_P0528_STR-SUBTYPE sy-vline 
WA_P28_P0528_STR-OBJECTID sy-vline 
WA_P28_P0528_STR-LOCKINDIC sy-vline 
WA_P28_P0528_STR-VALIDEND sy-vline 
WA_P28_P0528_STR-VALIDBEGIN sy-vline 
WA_P28_P0528_STR-RECORDNR sy-vline 
WA_P28_P0528_STR-MEMBERTYPE sy-vline 
WA_P28_P0528_STR-FIRSTNAME sy-vline 
WA_P28_P0528_STR-LASTNAME sy-vline 
WA_P28_P0528_STR-DATEOFBIRTH sy-vline 
WA_P28_P0528_STR-AGE sy-vline 
WA_P28_P0528_STR-PLACEOFBIRTH sy-vline 
WA_P28_P0528_STR-LANDOFBIRTH sy-vline 
WA_P28_P0528_STR-NATIONALITY sy-vline 
WA_P28_P0528_STR-GENDER sy-vline 
WA_P28_P0528_STR-NAMEOFGENDER sy-vline 
WA_P28_P0528_STR-NAMEOFLANDOFBIRTH sy-vline 
WA_P28_P0528_STR-NAMEOFNATIONALITY sy-vline 
WA_P28_P0528_STR-NAMEOFMEMBERTYPE sy-vline 
WA_P28_P0528_STR-ID1TYPE sy-vline 
WA_P28_P0528_STR-ID1NUMBER sy-vline 
WA_P28_P0528_STR-ID2TYPE sy-vline 
WA_P28_P0528_STR-ID2NUMBER sy-vline 
WA_P28_P0528_STR-ID3TYPE sy-vline 
WA_P28_P0528_STR-ID3NUMBER sy-vline 
WA_P28_P0528_STR-ID4TYPE sy-vline 
WA_P28_P0528_STR-ID4NUMBER sy-vline 
WA_P28_P0528_STR-ID5TYPE sy-vline 
WA_P28_P0528_STR-ID5NUMBER sy-vline 
WA_P28_P0528_STR-TELEPHONENUMBER sy-vline 
WA_P28_P0528_STR-SAMECOMPANYINDIC sy-vline 
WA_P28_P0528_STR-MARITALSTATUS sy-vline 
WA_P28_P0528_STR-MARITALSTATUSSIN sy-vline 
WA_P28_P0528_STR-POLITICALSTATUS sy-vline 
WA_P28_P0528_STR-OCCUPATIONKEY sy-vline 
WA_P28_P0528_STR-JOBSTATUSKEY sy-vline 
WA_P28_P0528_STR-FORMOFADDRESSKEY sy-vline 
WA_P28_P0528_STR-FULLNAME sy-vline 
WA_P28_P0528_STR-NAMEFORMATINDIC sy-vline 
WA_P28_P0528_STR-CONTACT1TYPE sy-vline 
WA_P28_P0528_STR-CONTACT1NUMBER sy-vline 
WA_P28_P0528_STR-CONTACT2TYPE sy-vline 
WA_P28_P0528_STR-CONTACT2NUMBER sy-vline 
WA_P28_P0528_STR-CONTACT3TYPE sy-vline 
WA_P28_P0528_STR-CONTACT3NUMBER sy-vline 
WA_P28_P0528_STR-CONTACT4TYPE sy-vline 
WA_P28_P0528_STR-CONTACT4NUMBER sy-vline 
WA_P28_P0528_STR-POSTALCODE sy-vline 
WA_P28_P0528_STR-COUNTRY sy-vline 
WA_P28_P0528_STR-PROVINCE sy-vline 
WA_P28_P0528_STR-CITY sy-vline 
WA_P28_P0528_STR-DISTRICT sy-vline 
WA_P28_P0528_STR-STREET sy-vline 
WA_P28_P0528_STR-FULLADDRESS sy-vline 
WA_P28_P0528_STR-EMPLOYERADDRKEY sy-vline 
WA_P28_P0528_STR-NAMEOFCOUNTRY sy-vline 
WA_P28_P0528_STR-NAMEOFPROVINCE sy-vline 
WA_P28_P0528_STR-EMPLOYERADDRESS sy-vline 
WA_P28_P0528_STR-NAMEOFOCCUPATION sy-vline 
WA_P28_P0528_STR-NAMEOFJOBSTATUS sy-vline 
WA_P28_P0528_STR-NAMEPOLITISTATUS sy-vline 
WA_P28_P0528_STR-NAMEMARITALSTATS sy-vline 
WA_P28_P0528_STR-NAMEFORMADDRES sy-vline 
WA_P28_P0528_STR-ID1TYPETEXT sy-vline 
WA_P28_P0528_STR-ID2TYPETEXT sy-vline 
WA_P28_P0528_STR-ID3TYPETEXT sy-vline 
WA_P28_P0528_STR-ID4TYPETEXT sy-vline 
WA_P28_P0528_STR-ID5TYPETEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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