ABAP Select data from SAP table P08_ABS_SXP_OXP_PERS_CALE 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 P08_ABS_SXP_OXP_PERS_CALE 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 P08_ABS_SXP_OXP_PERS_CALE. 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 P08_ABS_SXP_OXP_PERS_CALE 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_P08_ABS_SXP_OXP_PERS_CALE TYPE STANDARD TABLE OF P08_ABS_SXP_OXP_PERS_CALE,
      WA_P08_ABS_SXP_OXP_PERS_CALE TYPE P08_ABS_SXP_OXP_PERS_CALE,
      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: <P08_ABS_SXP_OXP_PERS_CALE> TYPE P08_ABS_SXP_OXP_PERS_CALE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P08_ABS_SXP_OXP_PERS_CALE
*  INTO TABLE @DATA(IT_P08_ABS_SXP_OXP_PERS_CALE2).
*--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_P08_ABS_SXP_OXP_PERS_CALE INDEX 1 INTO DATA(WA_P08_ABS_SXP_OXP_PERS_CALE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P08_ABS_SXP_OXP_PERS_CALE>-BUKRS = 1.
<P08_ABS_SXP_OXP_PERS_CALE>-BUTXT = 1.
<P08_ABS_SXP_OXP_PERS_CALE>-WERKS = 1.
<P08_ABS_SXP_OXP_PERS_CALE>-NAME1 = 1.
<P08_ABS_SXP_OXP_PERS_CALE>-BTRTL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P08_ABS_SXP_OXP_PERS_CALE-BTEXT, sy-vline,
  WA_P08_ABS_SXP_OXP_PERS_CALE-PERSG, sy-vline,
  WA_P08_ABS_SXP_OXP_PERS_CALE-PGTXT, sy-vline,
  WA_P08_ABS_SXP_OXP_PERS_CALE-PERSK, sy-vline,
  WA_P08_ABS_SXP_OXP_PERS_CALE-PKTXT, sy-vline,
  WA_P08_ABS_SXP_OXP_PERS_CALE-ORGEH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P08_ABS_SXP_OXP_PERS_CALE 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_P08_ABS_SXP_OXP_PERS_CALE 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_P08_ABS_SXP_OXP_PERS_CALE INTO WA_P08_ABS_SXP_OXP_PERS_CALE.


*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 ALPHA, internal->external for field KOSTL
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_P08_ABS_SXP_OXP_PERS_CALE-KOSTL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P08_ABS_SXP_OXP_PERS_CALE-KOSTL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PDATE, internal->external for field GBDAT
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
  EXPORTING
    input =                      WA_P08_ABS_SXP_OXP_PERS_CALE-GBDAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_P08_ABS_SXP_OXP_PERS_CALE-GBDAT.
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_P08_ABS_SXP_OXP_PERS_CALE_STR, 
BUKRS TYPE STRING,
BUTXT TYPE STRING,
WERKS TYPE STRING,
NAME1 TYPE STRING,
BTRTL TYPE STRING,
BTEXT TYPE STRING,
PERSG TYPE STRING,
PGTXT TYPE STRING,
PERSK TYPE STRING,
PKTXT TYPE STRING,
ORGEH TYPE STRING,
ORGTX TYPE STRING,
KOSTL TYPE STRING,
KOSTT TYPE STRING,
ABKRS TYPE STRING,
ABKTX TYPE STRING,
PERNR TYPE STRING,
ENAME TYPE STRING,
GBDAT TYPE STRING,
GESCH TYPE STRING,
NINUM TYPE STRING,
CDATE TYPE STRING,
RTYPE TYPE STRING,
PTYPE TYPE STRING,
ENDDA TYPE STRING,
LNKDA TYPE STRING,
EMPTY_01 TYPE STRING,
EVCLS TYPE STRING,
BEGDA TYPE STRING,
MPDWK TYPE STRING,
MABWK TYPE STRING,
SWKPD TYPE STRING,
EXCLD TYPE STRING,
EMPTY_02 TYPE STRING,
AWART TYPE STRING,
OBEGD TYPE STRING,
OENDD TYPE STRING,
KENN1 TYPE STRING,
KENN2 TYPE STRING,
PMRK1_CDSEQ TYPE STRING,
PMRK1_CDFCT TYPE STRING,
PMRK1_CRAB1 TYPE STRING,
PMRK1_CQUAL TYPE STRING,
PMRK1_CWTDS TYPE STRING,
PMRK1_CRAB2 TYPE STRING,
PMRK1_CREVC TYPE STRING,
PMRK1_CREXT TYPE STRING,
PMRK1_CFILL TYPE STRING,
PMRK2_CDSEQ TYPE STRING,
PMRK2_CDFCT TYPE STRING,
PMRK2_CRAB1 TYPE STRING,
PMRK2_CQUAL TYPE STRING,
PMRK2_CWTDS TYPE STRING,
PMRK2_CRAB2 TYPE STRING,
PMRK2_CREVC TYPE STRING,
PMRK2_CREXT TYPE STRING,
PMRK2_CFILL TYPE STRING,
PMRK3_CDSEQ TYPE STRING,
PMRK3_CDFCT TYPE STRING,
PMRK3_CRAB1 TYPE STRING,
PMRK3_CQUAL TYPE STRING,
PMRK3_CWTDS TYPE STRING,
PMRK3_CRAB2 TYPE STRING,
PMRK3_CREVC TYPE STRING,
PMRK3_CREXT TYPE STRING,
PMRK3_CFILL TYPE STRING,
PMRK4_CDSEQ TYPE STRING,
PMRK4_CDFCT TYPE STRING,
PMRK4_CRAB1 TYPE STRING,
PMRK4_CQUAL TYPE STRING,
PMRK4_CWTDS TYPE STRING,
PMRK4_CRAB2 TYPE STRING,
PMRK4_CREVC TYPE STRING,
PMRK4_CREXT TYPE STRING,
PMRK4_CFILL TYPE STRING,
PMRK5_CDSEQ TYPE STRING,
PMRK5_CDFCT TYPE STRING,
PMRK5_CRAB1 TYPE STRING,
PMRK5_CQUAL TYPE STRING,
PMRK5_CWTDS TYPE STRING,
PMRK5_CRAB2 TYPE STRING,
PMRK5_CREVC TYPE STRING,
PMRK5_CREXT TYPE STRING,
PMRK5_CFILL TYPE STRING,
DOCNR TYPE STRING,
FRACTION TYPE STRING,
COVUNIT TYPE STRING,
SEQNO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P08_ABS_SXP_OXP_PERS_CALE_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_P08_ABS_SXP_OXP_PERS_CALE_STR-BUKRS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-BUTXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-WERKS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-NAME1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-BTRTL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-BTEXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PERSG sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PGTXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PERSK sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PKTXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ORGEH sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ORGTX sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-KOSTL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-KOSTT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ABKRS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ABKTX sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PERNR sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ENAME sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-GBDAT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-GESCH sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-NINUM sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-CDATE sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-RTYPE sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PTYPE sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-ENDDA sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-LNKDA sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-EMPTY_01 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-EVCLS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-BEGDA sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-MPDWK sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-MABWK sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-SWKPD sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-EXCLD sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-EMPTY_02 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-AWART sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-OBEGD sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-OENDD sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-KENN1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-KENN2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CDSEQ sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CDFCT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CRAB1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CQUAL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CWTDS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CRAB2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CREVC sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CREXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK1_CFILL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CDSEQ sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CDFCT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CRAB1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CQUAL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CWTDS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CRAB2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CREVC sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CREXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK2_CFILL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CDSEQ sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CDFCT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CRAB1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CQUAL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CWTDS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CRAB2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CREVC sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CREXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK3_CFILL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CDSEQ sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CDFCT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CRAB1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CQUAL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CWTDS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CRAB2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CREVC sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CREXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK4_CFILL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CDSEQ sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CDFCT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CRAB1 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CQUAL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CWTDS sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CRAB2 sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CREVC sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CREXT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-PMRK5_CFILL sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-DOCNR sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-FRACTION sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-COVUNIT sy-vline 
WA_P08_ABS_SXP_OXP_PERS_CALE_STR-SEQNO sy-vline      INTO ld_text SEPARATED BY SPACE.

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