ABAP Select data from SAP table PA0083 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 PA0083 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 PA0083. 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 PA0083 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_PA0083 TYPE STANDARD TABLE OF PA0083,
      WA_PA0083 TYPE PA0083,
      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: <PA0083> TYPE PA0083.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PA0083
*  INTO TABLE @DATA(IT_PA00832).
*--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_PA0083 INDEX 1 INTO DATA(WA_PA00832).


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

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

ENDLOOP.

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

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


*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 GJAHR, internal->external for field USJ01
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field USJ02
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ02
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field USJ03
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field USJ04
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field USJ05
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field USJ06
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_PA0083-USJ06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PA0083-USJ06.
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_PA0083_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,
WAERS TYPE STRING,
UAR01 TYPE STRING,
AAR01 TYPE STRING,
AAZ01 TYPE STRING,
BTR01 TYPE STRING,
UAR02 TYPE STRING,
AAR02 TYPE STRING,
AAZ02 TYPE STRING,
BTR02 TYPE STRING,
UAR03 TYPE STRING,
AAR03 TYPE STRING,
AAZ03 TYPE STRING,
BTR03 TYPE STRING,
UAR04 TYPE STRING,
AAR04 TYPE STRING,
AAZ04 TYPE STRING,
BTR04 TYPE STRING,
UAR05 TYPE STRING,
AAR05 TYPE STRING,
AAZ05 TYPE STRING,
BTR05 TYPE STRING,
UAR06 TYPE STRING,
AAR06 TYPE STRING,
AAZ06 TYPE STRING,
BTR06 TYPE STRING,
ALA01 TYPE STRING,
USJ01 TYPE STRING,
USO01 TYPE STRING,
ALA02 TYPE STRING,
USJ02 TYPE STRING,
USO02 TYPE STRING,
ALA03 TYPE STRING,
USJ03 TYPE STRING,
USO03 TYPE STRING,
ALA04 TYPE STRING,
USJ04 TYPE STRING,
USO04 TYPE STRING,
ALA05 TYPE STRING,
USJ05 TYPE STRING,
USO05 TYPE STRING,
ALA06 TYPE STRING,
USJ06 TYPE STRING,
USO06 TYPE STRING,
NOC01 TYPE STRING,
NOC02 TYPE STRING,
NOC03 TYPE STRING,
NOC04 TYPE STRING,
NOC05 TYPE STRING,
NOC06 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PA0083_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_PA0083_STR-MANDT sy-vline 
WA_PA0083_STR-PERNR sy-vline 
WA_PA0083_STR-SUBTY sy-vline 
WA_PA0083_STR-OBJPS sy-vline 
WA_PA0083_STR-SPRPS sy-vline 
WA_PA0083_STR-ENDDA sy-vline 
WA_PA0083_STR-BEGDA sy-vline 
WA_PA0083_STR-SEQNR sy-vline 
WA_PA0083_STR-AEDTM sy-vline 
WA_PA0083_STR-UNAME sy-vline 
WA_PA0083_STR-HISTO sy-vline 
WA_PA0083_STR-ITXEX sy-vline 
WA_PA0083_STR-REFEX sy-vline 
WA_PA0083_STR-ORDEX sy-vline 
WA_PA0083_STR-ITBLD sy-vline 
WA_PA0083_STR-PREAS sy-vline 
WA_PA0083_STR-FLAG1 sy-vline 
WA_PA0083_STR-FLAG2 sy-vline 
WA_PA0083_STR-FLAG3 sy-vline 
WA_PA0083_STR-FLAG4 sy-vline 
WA_PA0083_STR-RESE1 sy-vline 
WA_PA0083_STR-RESE2 sy-vline 
WA_PA0083_STR-GRPVL sy-vline 
WA_PA0083_STR-WAERS sy-vline 
WA_PA0083_STR-UAR01 sy-vline 
WA_PA0083_STR-AAR01 sy-vline 
WA_PA0083_STR-AAZ01 sy-vline 
WA_PA0083_STR-BTR01 sy-vline 
WA_PA0083_STR-UAR02 sy-vline 
WA_PA0083_STR-AAR02 sy-vline 
WA_PA0083_STR-AAZ02 sy-vline 
WA_PA0083_STR-BTR02 sy-vline 
WA_PA0083_STR-UAR03 sy-vline 
WA_PA0083_STR-AAR03 sy-vline 
WA_PA0083_STR-AAZ03 sy-vline 
WA_PA0083_STR-BTR03 sy-vline 
WA_PA0083_STR-UAR04 sy-vline 
WA_PA0083_STR-AAR04 sy-vline 
WA_PA0083_STR-AAZ04 sy-vline 
WA_PA0083_STR-BTR04 sy-vline 
WA_PA0083_STR-UAR05 sy-vline 
WA_PA0083_STR-AAR05 sy-vline 
WA_PA0083_STR-AAZ05 sy-vline 
WA_PA0083_STR-BTR05 sy-vline 
WA_PA0083_STR-UAR06 sy-vline 
WA_PA0083_STR-AAR06 sy-vline 
WA_PA0083_STR-AAZ06 sy-vline 
WA_PA0083_STR-BTR06 sy-vline 
WA_PA0083_STR-ALA01 sy-vline 
WA_PA0083_STR-USJ01 sy-vline 
WA_PA0083_STR-USO01 sy-vline 
WA_PA0083_STR-ALA02 sy-vline 
WA_PA0083_STR-USJ02 sy-vline 
WA_PA0083_STR-USO02 sy-vline 
WA_PA0083_STR-ALA03 sy-vline 
WA_PA0083_STR-USJ03 sy-vline 
WA_PA0083_STR-USO03 sy-vline 
WA_PA0083_STR-ALA04 sy-vline 
WA_PA0083_STR-USJ04 sy-vline 
WA_PA0083_STR-USO04 sy-vline 
WA_PA0083_STR-ALA05 sy-vline 
WA_PA0083_STR-USJ05 sy-vline 
WA_PA0083_STR-USO05 sy-vline 
WA_PA0083_STR-ALA06 sy-vline 
WA_PA0083_STR-USJ06 sy-vline 
WA_PA0083_STR-USO06 sy-vline 
WA_PA0083_STR-NOC01 sy-vline 
WA_PA0083_STR-NOC02 sy-vline 
WA_PA0083_STR-NOC03 sy-vline 
WA_PA0083_STR-NOC04 sy-vline 
WA_PA0083_STR-NOC05 sy-vline 
WA_PA0083_STR-NOC06 sy-vline      INTO ld_text SEPARATED BY SPACE.

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