ABAP Select data from SAP table FIWTUS_S_1042S_FILE_REC_Q 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 FIWTUS_S_1042S_FILE_REC_Q 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 FIWTUS_S_1042S_FILE_REC_Q. 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 FIWTUS_S_1042S_FILE_REC_Q 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_FIWTUS_S_1042S_FILE_REC_Q TYPE STANDARD TABLE OF FIWTUS_S_1042S_FILE_REC_Q,
WA_FIWTUS_S_1042S_FILE_REC_Q TYPE FIWTUS_S_1042S_FILE_REC_Q,
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: <FIWTUS_S_1042S_FILE_REC_Q> TYPE FIWTUS_S_1042S_FILE_REC_Q.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_FIWTUS_S_1042S_FILE_REC_Q.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM FIWTUS_S_1042S_FILE_REC_Q
INTO TABLE IT_FIWTUS_S_1042S_FILE_REC_Q.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM FIWTUS_S_1042S_FILE_REC_Q
* INTO TABLE @DATA(IT_FIWTUS_S_1042S_FILE_REC_Q2).
*--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_FIWTUS_S_1042S_FILE_REC_Q INDEX 1 INTO DATA(WA_FIWTUS_S_1042S_FILE_REC_Q2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FIWTUS_S_1042S_FILE_REC_Q ASSIGNING <FIWTUS_S_1042S_FILE_REC_Q>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<FIWTUS_S_1042S_FILE_REC_Q>-RECORD_TYPE = 1.
<FIWTUS_S_1042S_FILE_REC_Q>-RETURN_TYPE_IND = 1.
<FIWTUS_S_1042S_FILE_REC_Q>-PRO_RATA_BASIS_REP = 1.
<FIWTUS_S_1042S_FILE_REC_Q>-INCOME_CODE = 1.
<FIWTUS_S_1042S_FILE_REC_Q>-GROSS_INCOME = 1.
ENDLOOP. LOOP AT IT_FIWTUS_S_1042S_FILE_REC_Q INTO WA_FIWTUS_S_1042S_FILE_REC_Q. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_FIWTUS_S_1042S_FILE_REC_Q-WITHHOLDING_ALLOWANCE, sy-vline,
WA_FIWTUS_S_1042S_FILE_REC_Q-NET_INCOME, sy-vline,
WA_FIWTUS_S_1042S_FILE_REC_Q-TAX_RATE_CHP3_FORMULA, sy-vline,
WA_FIWTUS_S_1042S_FILE_REC_Q-EXEMPTION_CODE_CHP3, sy-vline,
WA_FIWTUS_S_1042S_FILE_REC_Q-REC_CTRY_OF_RESIDENT, sy-vline,
WA_FIWTUS_S_1042S_FILE_REC_Q-TAX_RATE_CHP4_FORMULA, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FIWTUS_S_1042S_FILE_REC_Q 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_FIWTUS_S_1042S_FILE_REC_Q 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_FIWTUS_S_1042S_FILE_REC_Q INTO WA_FIWTUS_S_1042S_FILE_REC_Q. *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_FIWTUS_S_1042S_FILE_REC_Q_STR,
RECORD_TYPE TYPE STRING,
RETURN_TYPE_IND TYPE STRING,
PRO_RATA_BASIS_REP TYPE STRING,
INCOME_CODE TYPE STRING,
GROSS_INCOME TYPE STRING,
WITHHOLDING_ALLOWANCE TYPE STRING,
NET_INCOME TYPE STRING,
TAX_RATE_CHP3_FORMULA TYPE STRING,
EXEMPTION_CODE_CHP3 TYPE STRING,
REC_CTRY_OF_RESIDENT TYPE STRING,
TAX_RATE_CHP4_FORMULA TYPE STRING,
EXEMPTION_CODE_CHP4 TYPE STRING,
LOB_CODE TYPE STRING,
RESERVED TYPE STRING,
AMOUNT_REPAID TYPE STRING,
REC_ACCOUNT_NUMBER TYPE STRING,
RESERVED1 TYPE STRING,
RECIPIENT_NAME_1 TYPE STRING,
RECIPIENT_NAME_2 TYPE STRING,
RECIPIENT_NAME_3 TYPE STRING,
REC_STREET_ADDRESS1 TYPE STRING,
REC_STREET_ADDRESS2 TYPE STRING,
RECIPIENTS_CITY TYPE STRING,
RECIPIENTS_STATE TYPE STRING,
REC_PROVINCE_CODE TYPE STRING,
REC_COUNTRY_CODE TYPE STRING,
REC_POSTAL_ZIP_CODE TYPE STRING,
RECIPIENTS_TIN TYPE STRING,
TYPE_OF_TIN TYPE STRING,
US_FEDERAL_TAX_WITHH TYPE STRING,
WITHH_BY_OTHR_AGENT TYPE STRING,
TOTAL_WITHHLDG_CREDIT TYPE STRING,
RESERVED2 TYPE STRING,
NQI_FLW_THR_NAME TYPE STRING,
NQI_FLW_THR_NAME2 TYPE STRING,
NQI_FLW_THR_NAME3 TYPE STRING,
RESERVED3 TYPE STRING,
NQI_FLW_THR_STREET_1 TYPE STRING,
NQI_FLW_THR_STREET_2 TYPE STRING,
NQI_FLW_THR_CITY TYPE STRING,
NQI_FLW_THR_STATE TYPE STRING,
NQI_FLW_THR_PROVINCE TYPE STRING,
NQI_FLW_THR_COUNTRY TYPE STRING,
NQI_FLW_THR_POSTAL_C TYPE STRING,
NQI_FLW_THR_US_TIN TYPE STRING,
PAYERS_NAME TYPE STRING,
PAYERS_TIN TYPE STRING,
STATE_INCOME_TAX_WH TYPE STRING,
PAYERS_STATE_TAX_NO TYPE STRING,
STATE_CODE TYPE STRING,
SPECIAL_DATA_ENTRIES TYPE STRING,
US_TAX_WITHHELD_IND TYPE STRING,
REC_FORGN_TAX_ID_NO TYPE STRING,
CHAPTER_3_WITHHOLDING_INDICATO TYPE STRING,
RESERVED4 TYPE STRING,
CHAPTER_3_STATUS_CODE TYPE STRING,
CHAPTER_4_STATUS_CODE TYPE STRING,
TAX_NOT_DEPOSITED_UNDER_ESCROW TYPE STRING,
RECEPIENTS_GIIN TYPE STRING,
AMENDD_RET_INDCTR TYPE STRING,
RECIPIENTS_DATE_OF_BIRTH TYPE STRING,
TAX_ASSUMED_BY_WITHHOLDING_AGE TYPE STRING,
INTERMEDIARY_OR_FTE_GIIN TYPE STRING,
INTER_OR_FTE_CHAP3_STATUS_CODE TYPE STRING,
INTER_OR_FTE_CHAP4_STATUS_CODE TYPE STRING,
INTER_OR_FTES_FOREIGN_TAXID TYPE STRING,
PAYERS_GIIN TYPE STRING,
PRIMARY_WHLDG_AGENTS_NAME1 TYPE STRING,
PRIMARY_WHLDG_AGENTS_NAME2 TYPE STRING,
PRIMARY_WHLDG_AGENTS_EIN TYPE STRING,
PAYER_CHAPTER3_STATUSCODE TYPE STRING,
PAYER_CHAPTER4_STATUSCODE TYPE STRING,
UNIQUE_FORM_IDENTIFIER TYPE STRING,
AMENDMENT_NUMBER TYPE STRING,
PARTNERSHIP_INTEREST_IND TYPE STRING,
RESERVED5 TYPE STRING,
RECORD_SEQUENCE_NO TYPE STRING,
BLANK_OR_CR_LF TYPE STRING,END OF T_EKKO_STR. DATA: WA_FIWTUS_S_1042S_FILE_REC_Q_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_FIWTUS_S_1042S_FILE_REC_Q_STR-RECORD_TYPE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RETURN_TYPE_IND sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PRO_RATA_BASIS_REP sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-INCOME_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-GROSS_INCOME sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-WITHHOLDING_ALLOWANCE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NET_INCOME sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TAX_RATE_CHP3_FORMULA sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-EXEMPTION_CODE_CHP3 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_CTRY_OF_RESIDENT sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TAX_RATE_CHP4_FORMULA sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-EXEMPTION_CODE_CHP4 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-LOB_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-AMOUNT_REPAID sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_ACCOUNT_NUMBER sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED1 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENT_NAME_1 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENT_NAME_2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENT_NAME_3 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_STREET_ADDRESS1 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_STREET_ADDRESS2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENTS_CITY sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENTS_STATE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_PROVINCE_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_COUNTRY_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_POSTAL_ZIP_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENTS_TIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TYPE_OF_TIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-US_FEDERAL_TAX_WITHH sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-WITHH_BY_OTHR_AGENT sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TOTAL_WITHHLDG_CREDIT sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_NAME sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_NAME2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_NAME3 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED3 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_STREET_1 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_STREET_2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_CITY sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_STATE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_PROVINCE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_COUNTRY sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_POSTAL_C sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-NQI_FLW_THR_US_TIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYERS_NAME sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYERS_TIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-STATE_INCOME_TAX_WH sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYERS_STATE_TAX_NO sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-STATE_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-SPECIAL_DATA_ENTRIES sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-US_TAX_WITHHELD_IND sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-REC_FORGN_TAX_ID_NO sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-CHAPTER_3_WITHHOLDING_INDICATO sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED4 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-CHAPTER_3_STATUS_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-CHAPTER_4_STATUS_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TAX_NOT_DEPOSITED_UNDER_ESCROW sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECEPIENTS_GIIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-AMENDD_RET_INDCTR sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECIPIENTS_DATE_OF_BIRTH sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-TAX_ASSUMED_BY_WITHHOLDING_AGE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-INTERMEDIARY_OR_FTE_GIIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-INTER_OR_FTE_CHAP3_STATUS_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-INTER_OR_FTE_CHAP4_STATUS_CODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-INTER_OR_FTES_FOREIGN_TAXID sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYERS_GIIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PRIMARY_WHLDG_AGENTS_NAME1 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PRIMARY_WHLDG_AGENTS_NAME2 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PRIMARY_WHLDG_AGENTS_EIN sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYER_CHAPTER3_STATUSCODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PAYER_CHAPTER4_STATUSCODE sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-UNIQUE_FORM_IDENTIFIER sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-AMENDMENT_NUMBER sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-PARTNERSHIP_INTEREST_IND sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RESERVED5 sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-RECORD_SEQUENCE_NO sy-vline
WA_FIWTUS_S_1042S_FILE_REC_Q_STR-BLANK_OR_CR_LF sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.