ABAP Select data from SAP table PA0495 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 PA0495 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 PA0495. 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 PA0495 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_PA0495 TYPE STANDARD TABLE OF PA0495,
      WA_PA0495 TYPE PA0495,
      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: <PA0495> TYPE PA0495.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PA0495
*  INTO TABLE @DATA(IT_PA04952).
*--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_PA0495 INDEX 1 INTO DATA(WA_PA04952).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PA0495>-MANDT = 1.
<PA0495>-PERNR = 1.
<PA0495>-SUBTY = 1.
<PA0495>-OBJPS = 1.
<PA0495>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PA0495-ENDDA, sy-vline,
  WA_PA0495-BEGDA, sy-vline,
  WA_PA0495-SEQNR, sy-vline,
  WA_PA0495-AEDTM, sy-vline,
  WA_PA0495-UNAME, sy-vline,
  WA_PA0495-HISTO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PA0495 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_PA0495 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_PA0495 INTO WA_PA0495.


*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_PA0495_STR, 
MANDT TYPE STRING,
PERNR TYPE STRING,
SUBTY TYPE STRING,
OBJPS TYPE STRING,
SPRPS TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
SEQNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
HISTO TYPE STRING,
ITXEX TYPE STRING,
REFEX TYPE STRING,
ORDEX TYPE STRING,
ITBLD TYPE STRING,
PREAS TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
GRPVL TYPE STRING,
STYPE TYPE STRING,
PTYPE TYPE STRING,
FUTDTE TYPE STRING,
APEAMT TYPE STRING,
PBSAMT TYPE STRING,
PAAMT TYPE STRING,
RESECT TYPE STRING,
REFOPT TYPE STRING,
REFACT TYPE STRING,
WAERS TYPE STRING,
AMTOPT TYPE STRING,
AMTACT TYPE STRING,
DTREF TYPE STRING,
REFRNO TYPE STRING,
REFRDT TYPE STRING,
REFENO TYPE STRING,
RECPFA TYPE STRING,
PROCF TYPE STRING,
OPUPF TYPE STRING,
OPMPF TYPE STRING,
ACO01 TYPE STRING,
BEG01 TYPE STRING,
END01 TYPE STRING,
ACO02 TYPE STRING,
BEG02 TYPE STRING,
END02 TYPE STRING,
ACO03 TYPE STRING,
BEG03 TYPE STRING,
END03 TYPE STRING,
ACO04 TYPE STRING,
BEG04 TYPE STRING,
END04 TYPE STRING,
ACO05 TYPE STRING,
BEG05 TYPE STRING,
END05 TYPE STRING,
ACO06 TYPE STRING,
BEG06 TYPE STRING,
END06 TYPE STRING,
ACO07 TYPE STRING,
BEG07 TYPE STRING,
END07 TYPE STRING,
ACO08 TYPE STRING,
BEG08 TYPE STRING,
END08 TYPE STRING,
ACO09 TYPE STRING,
BEG09 TYPE STRING,
END09 TYPE STRING,
ACO10 TYPE STRING,
BEG10 TYPE STRING,
END10 TYPE STRING,
ACO11 TYPE STRING,
BEG11 TYPE STRING,
END11 TYPE STRING,
ACO12 TYPE STRING,
BEG12 TYPE STRING,
END12 TYPE STRING,
ACO13 TYPE STRING,
BEG13 TYPE STRING,
END13 TYPE STRING,
ACO14 TYPE STRING,
BEG14 TYPE STRING,
END14 TYPE STRING,
ACO15 TYPE STRING,
BEG15 TYPE STRING,
END15 TYPE STRING,
ACO16 TYPE STRING,
BEG16 TYPE STRING,
END16 TYPE STRING,
ACO17 TYPE STRING,
BEG17 TYPE STRING,
END17 TYPE STRING,
ACO18 TYPE STRING,
BEG18 TYPE STRING,
END18 TYPE STRING,
ACO19 TYPE STRING,
BEG19 TYPE STRING,
END19 TYPE STRING,
ACO20 TYPE STRING,
BEG20 TYPE STRING,
END20 TYPE STRING,
PENSAL TYPE STRING,
NPESAL TYPE STRING,
FROSAL TYPE STRING,
GUAPA TYPE STRING,
CPFPY TYPE STRING,
BENTY TYPE STRING,
DEDPC TYPE STRING,
PEACD TYPE STRING,
PENS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PA0495_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_PA0495_STR-MANDT sy-vline 
WA_PA0495_STR-PERNR sy-vline 
WA_PA0495_STR-SUBTY sy-vline 
WA_PA0495_STR-OBJPS sy-vline 
WA_PA0495_STR-SPRPS sy-vline 
WA_PA0495_STR-ENDDA sy-vline 
WA_PA0495_STR-BEGDA sy-vline 
WA_PA0495_STR-SEQNR sy-vline 
WA_PA0495_STR-AEDTM sy-vline 
WA_PA0495_STR-UNAME sy-vline 
WA_PA0495_STR-HISTO sy-vline 
WA_PA0495_STR-ITXEX sy-vline 
WA_PA0495_STR-REFEX sy-vline 
WA_PA0495_STR-ORDEX sy-vline 
WA_PA0495_STR-ITBLD sy-vline 
WA_PA0495_STR-PREAS sy-vline 
WA_PA0495_STR-FLAG1 sy-vline 
WA_PA0495_STR-FLAG2 sy-vline 
WA_PA0495_STR-FLAG3 sy-vline 
WA_PA0495_STR-FLAG4 sy-vline 
WA_PA0495_STR-RESE1 sy-vline 
WA_PA0495_STR-RESE2 sy-vline 
WA_PA0495_STR-GRPVL sy-vline 
WA_PA0495_STR-STYPE sy-vline 
WA_PA0495_STR-PTYPE sy-vline 
WA_PA0495_STR-FUTDTE sy-vline 
WA_PA0495_STR-APEAMT sy-vline 
WA_PA0495_STR-PBSAMT sy-vline 
WA_PA0495_STR-PAAMT sy-vline 
WA_PA0495_STR-RESECT sy-vline 
WA_PA0495_STR-REFOPT sy-vline 
WA_PA0495_STR-REFACT sy-vline 
WA_PA0495_STR-WAERS sy-vline 
WA_PA0495_STR-AMTOPT sy-vline 
WA_PA0495_STR-AMTACT sy-vline 
WA_PA0495_STR-DTREF sy-vline 
WA_PA0495_STR-REFRNO sy-vline 
WA_PA0495_STR-REFRDT sy-vline 
WA_PA0495_STR-REFENO sy-vline 
WA_PA0495_STR-RECPFA sy-vline 
WA_PA0495_STR-PROCF sy-vline 
WA_PA0495_STR-OPUPF sy-vline 
WA_PA0495_STR-OPMPF sy-vline 
WA_PA0495_STR-ACO01 sy-vline 
WA_PA0495_STR-BEG01 sy-vline 
WA_PA0495_STR-END01 sy-vline 
WA_PA0495_STR-ACO02 sy-vline 
WA_PA0495_STR-BEG02 sy-vline 
WA_PA0495_STR-END02 sy-vline 
WA_PA0495_STR-ACO03 sy-vline 
WA_PA0495_STR-BEG03 sy-vline 
WA_PA0495_STR-END03 sy-vline 
WA_PA0495_STR-ACO04 sy-vline 
WA_PA0495_STR-BEG04 sy-vline 
WA_PA0495_STR-END04 sy-vline 
WA_PA0495_STR-ACO05 sy-vline 
WA_PA0495_STR-BEG05 sy-vline 
WA_PA0495_STR-END05 sy-vline 
WA_PA0495_STR-ACO06 sy-vline 
WA_PA0495_STR-BEG06 sy-vline 
WA_PA0495_STR-END06 sy-vline 
WA_PA0495_STR-ACO07 sy-vline 
WA_PA0495_STR-BEG07 sy-vline 
WA_PA0495_STR-END07 sy-vline 
WA_PA0495_STR-ACO08 sy-vline 
WA_PA0495_STR-BEG08 sy-vline 
WA_PA0495_STR-END08 sy-vline 
WA_PA0495_STR-ACO09 sy-vline 
WA_PA0495_STR-BEG09 sy-vline 
WA_PA0495_STR-END09 sy-vline 
WA_PA0495_STR-ACO10 sy-vline 
WA_PA0495_STR-BEG10 sy-vline 
WA_PA0495_STR-END10 sy-vline 
WA_PA0495_STR-ACO11 sy-vline 
WA_PA0495_STR-BEG11 sy-vline 
WA_PA0495_STR-END11 sy-vline 
WA_PA0495_STR-ACO12 sy-vline 
WA_PA0495_STR-BEG12 sy-vline 
WA_PA0495_STR-END12 sy-vline 
WA_PA0495_STR-ACO13 sy-vline 
WA_PA0495_STR-BEG13 sy-vline 
WA_PA0495_STR-END13 sy-vline 
WA_PA0495_STR-ACO14 sy-vline 
WA_PA0495_STR-BEG14 sy-vline 
WA_PA0495_STR-END14 sy-vline 
WA_PA0495_STR-ACO15 sy-vline 
WA_PA0495_STR-BEG15 sy-vline 
WA_PA0495_STR-END15 sy-vline 
WA_PA0495_STR-ACO16 sy-vline 
WA_PA0495_STR-BEG16 sy-vline 
WA_PA0495_STR-END16 sy-vline 
WA_PA0495_STR-ACO17 sy-vline 
WA_PA0495_STR-BEG17 sy-vline 
WA_PA0495_STR-END17 sy-vline 
WA_PA0495_STR-ACO18 sy-vline 
WA_PA0495_STR-BEG18 sy-vline 
WA_PA0495_STR-END18 sy-vline 
WA_PA0495_STR-ACO19 sy-vline 
WA_PA0495_STR-BEG19 sy-vline 
WA_PA0495_STR-END19 sy-vline 
WA_PA0495_STR-ACO20 sy-vline 
WA_PA0495_STR-BEG20 sy-vline 
WA_PA0495_STR-END20 sy-vline 
WA_PA0495_STR-PENSAL sy-vline 
WA_PA0495_STR-NPESAL sy-vline 
WA_PA0495_STR-FROSAL sy-vline 
WA_PA0495_STR-GUAPA sy-vline 
WA_PA0495_STR-CPFPY sy-vline 
WA_PA0495_STR-BENTY sy-vline 
WA_PA0495_STR-DEDPC sy-vline 
WA_PA0495_STR-PEACD sy-vline 
WA_PA0495_STR-PENS sy-vline      INTO ld_text SEPARATED BY SPACE.

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