ABAP Select data from SAP table IPLSAFTINVOICEH into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP IPLSAFTINVOICEH 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 IPLSAFTINVOICEH. 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 IPLSAFTINVOICEH 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_IPLSAFTINVOICEH TYPE STANDARD TABLE OF IPLSAFTINVOICEH,
      WA_IPLSAFTINVOICEH TYPE IPLSAFTINVOICEH,
      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: <IPLSAFTINVOICEH> TYPE IPLSAFTINVOICEH.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IPLSAFTINVOICEH
*  INTO TABLE @DATA(IT_IPLSAFTINVOICEH2).
*--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_IPLSAFTINVOICEH INDEX 1 INTO DATA(WA_IPLSAFTINVOICEH2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_IPLSAFTINVOICEH ASSIGNING <IPLSAFTINVOICEH>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<IPLSAFTINVOICEH>-MANDT = 1.
<IPLSAFTINVOICEH>-SAFTEXTRACTIONUUID = 1.
<IPLSAFTINVOICEH>-FISCALYEAR = 1.
<IPLSAFTINVOICEH>-ACCOUNTINGDOCUMENT = 1.
<IPLSAFTINVOICEH>-COMPANYCODE = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IPLSAFTINVOICEH-EMAILADDRESS, sy-vline,
WA_IPLSAFTINVOICEH-LOCALTAXOFFICE, sy-vline,
WA_IPLSAFTINVOICEH-DISTRICT, sy-vline,
WA_IPLSAFTINVOICEH-COMPANYREGION, sy-vline,
WA_IPLSAFTINVOICEH-MUNICIPALITY, sy-vline,
WA_IPLSAFTINVOICEH-INVOICEDOCUMENTNUMBER, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IPLSAFTINVOICEH 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_IPLSAFTINVOICEH 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_IPLSAFTINVOICEH INTO WA_IPLSAFTINVOICEH. *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 FISCALYEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-FISCALYEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-FISCALYEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ACCOUNTINGDOCUMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-ACCOUNTINGDOCUMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-ACCOUNTINGDOCUMENT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field CUSTOMER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-CUSTOMER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-CUSTOMER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field SUPPLIER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-SUPPLIER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-SUPPLIER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT10 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT10 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTTAXAMOUNT16 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT16 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT16.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT11 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT11 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTTAXAMOUNT18 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT18 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT18.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT12 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT12 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTTAXAMOUNT20 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT20 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT20.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT13 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT13 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT13.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTTAXAMOUNT24 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT24 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT24.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT14 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT14 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT14.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTTAXAMOUNT26 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT26 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTTAXAMOUNT26.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT15 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT15 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT15.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field PL_SAFTNETAMOUNT17 CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT17 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTNETAMOUNT17.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field TOTALAMOUNTINTRANSACTIONCRCY CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-TOTALAMOUNTINTRANSACTIONCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-TOTALAMOUNTINTRANSACTIONCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PL_SAFTHIGHRATETXAMTINLOCLCRCY CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTHIGHRATETXAMTINLOCLCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTHIGHRATETXAMTINLOCLCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PL_SAFTMDMRATETXAMTINLOCLCRCY CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTMDMRATETXAMTINLOCLCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTMDMRATETXAMTINLOCLCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PL_SAFTLOWRATETXAMTINLOCLCRCY CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTLOWRATETXAMTINLOCLCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTLOWRATETXAMTINLOCLCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PL_SAFTOTHRATETXAMTINLOCLCRCY CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-PL_SAFTOTHRATETXAMTINLOCLCRCY IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-PL_SAFTOTHRATETXAMTINLOCLCRCY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field SALESDOCUMENT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-SALESDOCUMENT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-SALESDOCUMENT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AE182, internal->external for field TOTALGROSSAMOUNT CALL FUNCTION 'CONVERSION_EXIT_AE182_OUTPUT' EXPORTING input = WA_IPLSAFTINVOICEH-TOTALGROSSAMOUNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IPLSAFTINVOICEH-TOTALGROSSAMOUNT.
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_IPLSAFTINVOICEH_STR,
MANDT TYPE STRING,
SAFTEXTRACTIONUUID TYPE STRING,
FISCALYEAR TYPE STRING,
ACCOUNTINGDOCUMENT TYPE STRING,
COMPANYCODE TYPE STRING,
EMAILADDRESS TYPE STRING,
LOCALTAXOFFICE TYPE STRING,
DISTRICT TYPE STRING,
COMPANYREGION TYPE STRING,
MUNICIPALITY TYPE STRING,
INVOICEDOCUMENTNUMBER TYPE STRING,
CUSTOMER TYPE STRING,
SUPPLIER TYPE STRING,
SOURCEDOCUMENT TYPE STRING,
DOCUMENTDATE TYPE STRING,
POSTINGDATE TYPE STRING,
DELIVERYDATE TYPE STRING,
DOCUMENTTYPE TYPE STRING,
CURRENCY TYPE STRING,
VATREGISTRATION TYPE STRING,
CUSTOMERSUPPLIERCOUNTRY TYPE STRING,
ACCOUNTINGDOCUMENTITEM TYPE STRING,
PL_SAFTNETAMOUNT10 TYPE STRING,
PL_SAFTTAXAMOUNT16 TYPE STRING,
PL_SAFTNETAMOUNT11 TYPE STRING,
PL_SAFTTAXAMOUNT18 TYPE STRING,
PL_SAFTNETAMOUNT12 TYPE STRING,
PL_SAFTTAXAMOUNT20 TYPE STRING,
PL_SAFTNETAMOUNT13 TYPE STRING,
PL_SAFTTAXAMOUNT24 TYPE STRING,
PL_SAFTNETAMOUNT14 TYPE STRING,
PL_SAFTTAXAMOUNT26 TYPE STRING,
PL_SAFTNETAMOUNT15 TYPE STRING,
PL_SAFTNETAMOUNT17 TYPE STRING,
TOTALAMOUNTINTRANSACTIONCRCY TYPE STRING,
REASONCODE TYPE STRING,
TAXEXMPRSNTXT TYPE STRING,
EXEMPTIONREASONTEXT TYPE STRING,
SDDOCUMENTREASONTEXT TYPE STRING,
CORRECTIONINVOICE TYPE STRING,
CORRECTIONINVOICEDATE TYPE STRING,
ISEUTRIANGULARDEAL TYPE STRING,
ISREVERSED TYPE STRING,
PL_SAFTHIGHRATETXAMTINLOCLCRCY TYPE STRING,
PL_SAFTMDMRATETXAMTINLOCLCRCY TYPE STRING,
PL_SAFTLOWRATETXAMTINLOCLCRCY TYPE STRING,
PL_SAFTOTHRATETXAMTINLOCLCRCY TYPE STRING,
PL_SAFTINVOICEHASSPLITPAYMENT TYPE STRING,
PL_SAFTDOWNPAYMENTPREVINVCSTXT TYPE STRING,
SALESDOCUMENT TYPE STRING,
TOTALGROSSAMOUNT TYPE STRING,END OF T_EKKO_STR. DATA: WA_IPLSAFTINVOICEH_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_IPLSAFTINVOICEH_STR-MANDT sy-vline
WA_IPLSAFTINVOICEH_STR-SAFTEXTRACTIONUUID sy-vline
WA_IPLSAFTINVOICEH_STR-FISCALYEAR sy-vline
WA_IPLSAFTINVOICEH_STR-ACCOUNTINGDOCUMENT sy-vline
WA_IPLSAFTINVOICEH_STR-COMPANYCODE sy-vline
WA_IPLSAFTINVOICEH_STR-EMAILADDRESS sy-vline
WA_IPLSAFTINVOICEH_STR-LOCALTAXOFFICE sy-vline
WA_IPLSAFTINVOICEH_STR-DISTRICT sy-vline
WA_IPLSAFTINVOICEH_STR-COMPANYREGION sy-vline
WA_IPLSAFTINVOICEH_STR-MUNICIPALITY sy-vline
WA_IPLSAFTINVOICEH_STR-INVOICEDOCUMENTNUMBER sy-vline
WA_IPLSAFTINVOICEH_STR-CUSTOMER sy-vline
WA_IPLSAFTINVOICEH_STR-SUPPLIER sy-vline
WA_IPLSAFTINVOICEH_STR-SOURCEDOCUMENT sy-vline
WA_IPLSAFTINVOICEH_STR-DOCUMENTDATE sy-vline
WA_IPLSAFTINVOICEH_STR-POSTINGDATE sy-vline
WA_IPLSAFTINVOICEH_STR-DELIVERYDATE sy-vline
WA_IPLSAFTINVOICEH_STR-DOCUMENTTYPE sy-vline
WA_IPLSAFTINVOICEH_STR-CURRENCY sy-vline
WA_IPLSAFTINVOICEH_STR-VATREGISTRATION sy-vline
WA_IPLSAFTINVOICEH_STR-CUSTOMERSUPPLIERCOUNTRY sy-vline
WA_IPLSAFTINVOICEH_STR-ACCOUNTINGDOCUMENTITEM sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT10 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTTAXAMOUNT16 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT11 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTTAXAMOUNT18 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT12 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTTAXAMOUNT20 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT13 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTTAXAMOUNT24 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT14 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTTAXAMOUNT26 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT15 sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTNETAMOUNT17 sy-vline
WA_IPLSAFTINVOICEH_STR-TOTALAMOUNTINTRANSACTIONCRCY sy-vline
WA_IPLSAFTINVOICEH_STR-REASONCODE sy-vline
WA_IPLSAFTINVOICEH_STR-TAXEXMPRSNTXT sy-vline
WA_IPLSAFTINVOICEH_STR-EXEMPTIONREASONTEXT sy-vline
WA_IPLSAFTINVOICEH_STR-SDDOCUMENTREASONTEXT sy-vline
WA_IPLSAFTINVOICEH_STR-CORRECTIONINVOICE sy-vline
WA_IPLSAFTINVOICEH_STR-CORRECTIONINVOICEDATE sy-vline
WA_IPLSAFTINVOICEH_STR-ISEUTRIANGULARDEAL sy-vline
WA_IPLSAFTINVOICEH_STR-ISREVERSED sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTHIGHRATETXAMTINLOCLCRCY sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTMDMRATETXAMTINLOCLCRCY sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTLOWRATETXAMTINLOCLCRCY sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTOTHRATETXAMTINLOCLCRCY sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTINVOICEHASSPLITPAYMENT sy-vline
WA_IPLSAFTINVOICEH_STR-PL_SAFTDOWNPAYMENTPREVINVCSTXT sy-vline
WA_IPLSAFTINVOICEH_STR-SALESDOCUMENT sy-vline
WA_IPLSAFTINVOICEH_STR-TOTALGROSSAMOUNT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.