ABAP Select data from SAP table FARR_S_POB_POSTING_DATA 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 FARR_S_POB_POSTING_DATA 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 FARR_S_POB_POSTING_DATA. 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 FARR_S_POB_POSTING_DATA 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_FARR_S_POB_POSTING_DATA TYPE STANDARD TABLE OF FARR_S_POB_POSTING_DATA,
      WA_FARR_S_POB_POSTING_DATA TYPE FARR_S_POB_POSTING_DATA,
      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: <FARR_S_POB_POSTING_DATA> TYPE FARR_S_POB_POSTING_DATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FARR_S_POB_POSTING_DATA
*  INTO TABLE @DATA(IT_FARR_S_POB_POSTING_DATA2).
*--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_FARR_S_POB_POSTING_DATA INDEX 1 INTO DATA(WA_FARR_S_POB_POSTING_DATA2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FARR_S_POB_POSTING_DATA ASSIGNING <FARR_S_POB_POSTING_DATA>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FARR_S_POB_POSTING_DATA>-POB_ID = 1.
<FARR_S_POB_POSTING_DATA>-CONTRACT_ID = 1.
<FARR_S_POB_POSTING_DATA>-POB_ROLE = 1.
<FARR_S_POB_POSTING_DATA>-POB_NAME = 1.
<FARR_S_POB_POSTING_DATA>-POB_TYPE = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FARR_S_POB_POSTING_DATA-POB_CATEGORY, sy-vline,
WA_FARR_S_POB_POSTING_DATA-ACCT_PRINCIPLE, sy-vline,
WA_FARR_S_POB_POSTING_DATA-COMPANY_CODE, sy-vline,
WA_FARR_S_POB_POSTING_DATA-FULFILL_TYPE, sy-vline,
WA_FARR_S_POB_POSTING_DATA-START_DATE_TYPE, sy-vline,
WA_FARR_S_POB_POSTING_DATA-START_DATE, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FARR_S_POB_POSTING_DATA 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_FARR_S_POB_POSTING_DATA 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_FARR_S_POB_POSTING_DATA INTO WA_FARR_S_POB_POSTING_DATA. *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 POB_ID CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FARR_S_POB_POSTING_DATA-POB_ID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FARR_S_POB_POSTING_DATA-POB_ID.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ABPSN, internal->external for field PS_POSID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_FARR_S_POB_POSTING_DATA-PS_POSID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FARR_S_POB_POSTING_DATA-PS_POSID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field PS_PSP_PNR CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = WA_FARR_S_POB_POSTING_DATA-PS_PSP_PNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FARR_S_POB_POSTING_DATA-PS_PSP_PNR.
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_FARR_S_POB_POSTING_DATA_STR,
POB_ID TYPE STRING,
CONTRACT_ID TYPE STRING,
POB_ROLE TYPE STRING,
POB_NAME TYPE STRING,
POB_TYPE TYPE STRING,
POB_CATEGORY TYPE STRING,
ACCT_PRINCIPLE TYPE STRING,
COMPANY_CODE TYPE STRING,
FULFILL_TYPE TYPE STRING,
START_DATE_TYPE TYPE STRING,
START_DATE TYPE STRING,
XNEGATIVE_ITEM TYPE STRING,
HI_LEVEL_POB_ID TYPE STRING,
DISTINCT_TYPE TYPE STRING,
SOURCE_OF_PRICE TYPE STRING,
RECEIVABLE_ACCOUNT TYPE STRING,
ASSET_ACCOUNT TYPE STRING,
LIABILITY_ACCOUNT TYPE STRING,
ACCRUED_COST_ACCOUNT TYPE STRING,
DEFERRED_COST_ACCOUNT TYPE STRING,
BOM_POB_ID TYPE STRING,
ALLOC_AMT TYPE STRING,
ALLOC_AMT_CURK TYPE STRING,
TRX_PRICE TYPE STRING,
MANUAL_CREATED TYPE STRING,
SSP TYPE STRING,
SSP_CURK TYPE STRING,
VALUE_BASED_FULFILLMENTS TYPE STRING,
INITIAL_EFFECTIVE_DATE TYPE STRING,
FKBER TYPE STRING,
GSBER TYPE STRING,
SEGMENT TYPE STRING,
PRCTR TYPE STRING,
PAOBJNR TYPE STRING,
KOSTL TYPE STRING,
AUFNR TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
PS_POSID TYPE STRING,
PS_PSP_PNR TYPE STRING,
DUMMY_CONTR_ITM_INCL_EEW_PS TYPE STRING,
POB_EEW_DUMMY TYPE STRING,
REP_EEW_DUMMY TYPE STRING,END OF T_EKKO_STR. DATA: WA_FARR_S_POB_POSTING_DATA_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_FARR_S_POB_POSTING_DATA_STR-POB_ID sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-CONTRACT_ID sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-POB_ROLE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-POB_NAME sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-POB_TYPE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-POB_CATEGORY sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-ACCT_PRINCIPLE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-COMPANY_CODE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-FULFILL_TYPE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-START_DATE_TYPE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-START_DATE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-XNEGATIVE_ITEM sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-HI_LEVEL_POB_ID sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-DISTINCT_TYPE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-SOURCE_OF_PRICE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-RECEIVABLE_ACCOUNT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-ASSET_ACCOUNT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-LIABILITY_ACCOUNT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-ACCRUED_COST_ACCOUNT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-DEFERRED_COST_ACCOUNT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-BOM_POB_ID sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-ALLOC_AMT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-ALLOC_AMT_CURK sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-TRX_PRICE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-MANUAL_CREATED sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-SSP sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-SSP_CURK sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-VALUE_BASED_FULFILLMENTS sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-INITIAL_EFFECTIVE_DATE sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-FKBER sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-GSBER sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-SEGMENT sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-PRCTR sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-PAOBJNR sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-KOSTL sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-AUFNR sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-KDAUF sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-KDPOS sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-PS_POSID sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-PS_PSP_PNR sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-DUMMY_CONTR_ITM_INCL_EEW_PS sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-POB_EEW_DUMMY sy-vline
WA_FARR_S_POB_POSTING_DATA_STR-REP_EEW_DUMMY sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.