ABAP Select data from SAP table PA0651 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 PA0651 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 PA0651. 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 PA0651 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_PA0651 TYPE STANDARD TABLE OF PA0651,
      WA_PA0651 TYPE PA0651,
      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: <PA0651> TYPE PA0651.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PA0651
*  INTO TABLE @DATA(IT_PA06512).
*--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_PA0651 INDEX 1 INTO DATA(WA_PA06512).


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

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

ENDLOOP.

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

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


*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_PA0651_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,
KVNAM TYPE STRING,
KNNAM TYPE STRING,
KGDAT TYPE STRING,
WVLDT TYPE STRING,
WALAZ TYPE STRING,
STWAG TYPE STRING,
EFZGD TYPE STRING,
AEZUS TYPE STRING,
AEBIS TYPE STRING,
ZLRHT TYPE STRING,
ZABRT TYPE STRING,
ZANTO TYPE STRING,
KDGAM TYPE STRING,
KDGRD TYPE STRING,
KDZUM TYPE STRING,
VWBET TYPE STRING,
VWBIS TYPE STRING,
VWRHT TYPE STRING,
ZUSAR TYPE STRING,
ZSBTG TYPE STRING,
LABEG TYPE STRING,
LAEND TYPE STRING,
LABE1 TYPE STRING,
LAEN1 TYPE STRING,
FRNTO TYPE STRING,
FRGKI TYPE STRING,
KIBE1 TYPE STRING,
KIEN1 TYPE STRING,
KIBE2 TYPE STRING,
KIEN2 TYPE STRING,
KITA1 TYPE STRING,
KITA2 TYPE STRING,
BRTAE TYPE STRING,
ANGRD TYPE STRING,
ANFRT TYPE STRING,
FALNR TYPE STRING,
FRABL TYPE STRING,
FADAT TYPE STRING,
ENTS1 TYPE STRING,
UNTS1 TYPE STRING,
ENTS2 TYPE STRING,
UNTS2 TYPE STRING,
ENTS3 TYPE STRING,
UNTS3 TYPE STRING,
MON01 TYPE STRING,
MON02 TYPE STRING,
MON03 TYPE STRING,
YEA01 TYPE STRING,
YEA02 TYPE STRING,
YEA03 TYPE STRING,
WAERS TYPE STRING,
UFTAG TYPE STRING,
KDGSL TYPE STRING,
AEUEB TYPE STRING,
FRBTO TYPE STRING,
UVTRG TYPE STRING,
SBRHT TYPE STRING,
ADRS1 TYPE STRING,
ADRS2 TYPE STRING,
ADRS3 TYPE STRING,
KNDNR TYPE STRING,
ABMSN TYPE STRING,
VORER TYPE STRING,
BEGVE1 TYPE STRING,
ENDVE1 TYPE STRING,
BEGVE2 TYPE STRING,
ENDVE2 TYPE STRING,
AEVZMON TYPE STRING,
AEVZSTD TYPE STRING,
WAZTRF TYPE STRING,
BEGTRF TYPE STRING,
TRFGEM TYPE STRING,
MMTRF TYPE STRING,
VRGTGR TYPE STRING,
VWLMON TYPE STRING,
EZTRF TYPE STRING,
AEENTTRF TYPE STRING,
VWL TYPE STRING,
BRUSB TYPE STRING,
NETSB TYPE STRING,
UNFAZ TYPE STRING,
UNFTR TYPE STRING,
BVALS TYPE STRING,
ABWGRD TYPE STRING,
ABWBEG TYPE STRING,
EAZEND TYPE STRING,
LBTAG TYPE STRING,
UMGEWAE TYPE STRING,
VEBBRU TYPE STRING,
VEBNET TYPE STRING,
EZKV TYPE STRING,
EZRV TYPE STRING,
EZAV TYPE STRING,
ANZTG TYPE STRING,
ANZAT TYPE STRING,
FRTAG01 TYPE STRING,
FRTAG02 TYPE STRING,
ABWAUS TYPE STRING,
AEERSTTAG TYPE STRING,
KUERZFAKT TYPE STRING,
ANZARBTG TYPE STRING,
AZUNENT1 TYPE STRING,
AZENTSCH1 TYPE STRING,
AZUNENT2 TYPE STRING,
AZENTSCH2 TYPE STRING,
AZUNENT3 TYPE STRING,
AZENTSCH3 TYPE STRING,
FRBRUTTO TYPE STRING,
FRNETTO TYPE STRING,
AEERSTTAG2 TYPE STRING,
ABFVON TYPE STRING,
ABFBIS TYPE STRING,
SFNZU TYPE STRING,
FEKTG TYPE STRING,
ANGNAM TYPE STRING,
ANGVNR TYPE STRING,
PUANGRD TYPE STRING,
FREISTEZ TYPE STRING,
EZUV TYPE STRING,
KUERZUNG TYPE STRING,
FREIST_STDW TYPE STRING,
KUERZUNG_TAEGL TYPE STRING,
ARBEITSTAGE TYPE STRING,
STUNDENLOHN TYPE STRING,
MITNR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PA0651_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_PA0651_STR-MANDT sy-vline 
WA_PA0651_STR-PERNR sy-vline 
WA_PA0651_STR-SUBTY sy-vline 
WA_PA0651_STR-OBJPS sy-vline 
WA_PA0651_STR-SPRPS sy-vline 
WA_PA0651_STR-ENDDA sy-vline 
WA_PA0651_STR-BEGDA sy-vline 
WA_PA0651_STR-SEQNR sy-vline 
WA_PA0651_STR-AEDTM sy-vline 
WA_PA0651_STR-UNAME sy-vline 
WA_PA0651_STR-HISTO sy-vline 
WA_PA0651_STR-ITXEX sy-vline 
WA_PA0651_STR-REFEX sy-vline 
WA_PA0651_STR-ORDEX sy-vline 
WA_PA0651_STR-ITBLD sy-vline 
WA_PA0651_STR-PREAS sy-vline 
WA_PA0651_STR-FLAG1 sy-vline 
WA_PA0651_STR-FLAG2 sy-vline 
WA_PA0651_STR-FLAG3 sy-vline 
WA_PA0651_STR-FLAG4 sy-vline 
WA_PA0651_STR-RESE1 sy-vline 
WA_PA0651_STR-RESE2 sy-vline 
WA_PA0651_STR-GRPVL sy-vline 
WA_PA0651_STR-KVNAM sy-vline 
WA_PA0651_STR-KNNAM sy-vline 
WA_PA0651_STR-KGDAT sy-vline 
WA_PA0651_STR-WVLDT sy-vline 
WA_PA0651_STR-WALAZ sy-vline 
WA_PA0651_STR-STWAG sy-vline 
WA_PA0651_STR-EFZGD sy-vline 
WA_PA0651_STR-AEZUS sy-vline 
WA_PA0651_STR-AEBIS sy-vline 
WA_PA0651_STR-ZLRHT sy-vline 
WA_PA0651_STR-ZABRT sy-vline 
WA_PA0651_STR-ZANTO sy-vline 
WA_PA0651_STR-KDGAM sy-vline 
WA_PA0651_STR-KDGRD sy-vline 
WA_PA0651_STR-KDZUM sy-vline 
WA_PA0651_STR-VWBET sy-vline 
WA_PA0651_STR-VWBIS sy-vline 
WA_PA0651_STR-VWRHT sy-vline 
WA_PA0651_STR-ZUSAR sy-vline 
WA_PA0651_STR-ZSBTG sy-vline 
WA_PA0651_STR-LABEG sy-vline 
WA_PA0651_STR-LAEND sy-vline 
WA_PA0651_STR-LABE1 sy-vline 
WA_PA0651_STR-LAEN1 sy-vline 
WA_PA0651_STR-FRNTO sy-vline 
WA_PA0651_STR-FRGKI sy-vline 
WA_PA0651_STR-KIBE1 sy-vline 
WA_PA0651_STR-KIEN1 sy-vline 
WA_PA0651_STR-KIBE2 sy-vline 
WA_PA0651_STR-KIEN2 sy-vline 
WA_PA0651_STR-KITA1 sy-vline 
WA_PA0651_STR-KITA2 sy-vline 
WA_PA0651_STR-BRTAE sy-vline 
WA_PA0651_STR-ANGRD sy-vline 
WA_PA0651_STR-ANFRT sy-vline 
WA_PA0651_STR-FALNR sy-vline 
WA_PA0651_STR-FRABL sy-vline 
WA_PA0651_STR-FADAT sy-vline 
WA_PA0651_STR-ENTS1 sy-vline 
WA_PA0651_STR-UNTS1 sy-vline 
WA_PA0651_STR-ENTS2 sy-vline 
WA_PA0651_STR-UNTS2 sy-vline 
WA_PA0651_STR-ENTS3 sy-vline 
WA_PA0651_STR-UNTS3 sy-vline 
WA_PA0651_STR-MON01 sy-vline 
WA_PA0651_STR-MON02 sy-vline 
WA_PA0651_STR-MON03 sy-vline 
WA_PA0651_STR-YEA01 sy-vline 
WA_PA0651_STR-YEA02 sy-vline 
WA_PA0651_STR-YEA03 sy-vline 
WA_PA0651_STR-WAERS sy-vline 
WA_PA0651_STR-UFTAG sy-vline 
WA_PA0651_STR-KDGSL sy-vline 
WA_PA0651_STR-AEUEB sy-vline 
WA_PA0651_STR-FRBTO sy-vline 
WA_PA0651_STR-UVTRG sy-vline 
WA_PA0651_STR-SBRHT sy-vline 
WA_PA0651_STR-ADRS1 sy-vline 
WA_PA0651_STR-ADRS2 sy-vline 
WA_PA0651_STR-ADRS3 sy-vline 
WA_PA0651_STR-KNDNR sy-vline 
WA_PA0651_STR-ABMSN sy-vline 
WA_PA0651_STR-VORER sy-vline 
WA_PA0651_STR-BEGVE1 sy-vline 
WA_PA0651_STR-ENDVE1 sy-vline 
WA_PA0651_STR-BEGVE2 sy-vline 
WA_PA0651_STR-ENDVE2 sy-vline 
WA_PA0651_STR-AEVZMON sy-vline 
WA_PA0651_STR-AEVZSTD sy-vline 
WA_PA0651_STR-WAZTRF sy-vline 
WA_PA0651_STR-BEGTRF sy-vline 
WA_PA0651_STR-TRFGEM sy-vline 
WA_PA0651_STR-MMTRF sy-vline 
WA_PA0651_STR-VRGTGR sy-vline 
WA_PA0651_STR-VWLMON sy-vline 
WA_PA0651_STR-EZTRF sy-vline 
WA_PA0651_STR-AEENTTRF sy-vline 
WA_PA0651_STR-VWL sy-vline 
WA_PA0651_STR-BRUSB sy-vline 
WA_PA0651_STR-NETSB sy-vline 
WA_PA0651_STR-UNFAZ sy-vline 
WA_PA0651_STR-UNFTR sy-vline 
WA_PA0651_STR-BVALS sy-vline 
WA_PA0651_STR-ABWGRD sy-vline 
WA_PA0651_STR-ABWBEG sy-vline 
WA_PA0651_STR-EAZEND sy-vline 
WA_PA0651_STR-LBTAG sy-vline 
WA_PA0651_STR-UMGEWAE sy-vline 
WA_PA0651_STR-VEBBRU sy-vline 
WA_PA0651_STR-VEBNET sy-vline 
WA_PA0651_STR-EZKV sy-vline 
WA_PA0651_STR-EZRV sy-vline 
WA_PA0651_STR-EZAV sy-vline 
WA_PA0651_STR-ANZTG sy-vline 
WA_PA0651_STR-ANZAT sy-vline 
WA_PA0651_STR-FRTAG01 sy-vline 
WA_PA0651_STR-FRTAG02 sy-vline 
WA_PA0651_STR-ABWAUS sy-vline 
WA_PA0651_STR-AEERSTTAG sy-vline 
WA_PA0651_STR-KUERZFAKT sy-vline 
WA_PA0651_STR-ANZARBTG sy-vline 
WA_PA0651_STR-AZUNENT1 sy-vline 
WA_PA0651_STR-AZENTSCH1 sy-vline 
WA_PA0651_STR-AZUNENT2 sy-vline 
WA_PA0651_STR-AZENTSCH2 sy-vline 
WA_PA0651_STR-AZUNENT3 sy-vline 
WA_PA0651_STR-AZENTSCH3 sy-vline 
WA_PA0651_STR-FRBRUTTO sy-vline 
WA_PA0651_STR-FRNETTO sy-vline 
WA_PA0651_STR-AEERSTTAG2 sy-vline 
WA_PA0651_STR-ABFVON sy-vline 
WA_PA0651_STR-ABFBIS sy-vline 
WA_PA0651_STR-SFNZU sy-vline 
WA_PA0651_STR-FEKTG sy-vline 
WA_PA0651_STR-ANGNAM sy-vline 
WA_PA0651_STR-ANGVNR sy-vline 
WA_PA0651_STR-PUANGRD sy-vline 
WA_PA0651_STR-FREISTEZ sy-vline 
WA_PA0651_STR-EZUV sy-vline 
WA_PA0651_STR-KUERZUNG sy-vline 
WA_PA0651_STR-FREIST_STDW sy-vline 
WA_PA0651_STR-KUERZUNG_TAEGL sy-vline 
WA_PA0651_STR-ARBEITSTAGE sy-vline 
WA_PA0651_STR-STUNDENLOHN sy-vline 
WA_PA0651_STR-MITNR sy-vline      INTO ld_text SEPARATED BY SPACE.

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