ABAP Select data from SAP table HRBENUS_S_ACA_XML_1095_C 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 HRBENUS_S_ACA_XML_1095_C 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 HRBENUS_S_ACA_XML_1095_C. 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 HRBENUS_S_ACA_XML_1095_C 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_HRBENUS_S_ACA_XML_1095_C TYPE STANDARD TABLE OF HRBENUS_S_ACA_XML_1095_C,
      WA_HRBENUS_S_ACA_XML_1095_C TYPE HRBENUS_S_ACA_XML_1095_C,
      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: <HRBENUS_S_ACA_XML_1095_C> TYPE HRBENUS_S_ACA_XML_1095_C.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM HRBENUS_S_ACA_XML_1095_C
*  INTO TABLE @DATA(IT_HRBENUS_S_ACA_XML_1095_C2).
*--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_HRBENUS_S_ACA_XML_1095_C INDEX 1 INTO DATA(WA_HRBENUS_S_ACA_XML_1095_C2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<HRBENUS_S_ACA_XML_1095_C>-RECORDID = 1.
<HRBENUS_S_ACA_XML_1095_C>-TESTSCENARIOID = 1.
<HRBENUS_S_ACA_XML_1095_C>-CORRECTEDIND = 1.
<HRBENUS_S_ACA_XML_1095_C>-CORRECTEDRECORDINFOGRP = 1.
<HRBENUS_S_ACA_XML_1095_C>-CORRECTEDUNIQUERECORDID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_HRBENUS_S_ACA_XML_1095_C-CORRECTEDRECORDPAYEENAME, sy-vline,
  WA_HRBENUS_S_ACA_XML_1095_C-PERSONFIRSTNM, sy-vline,
  WA_HRBENUS_S_ACA_XML_1095_C-PERSONMIDDLENM, sy-vline,
  WA_HRBENUS_S_ACA_XML_1095_C-PERSONLASTNM, sy-vline,
  WA_HRBENUS_S_ACA_XML_1095_C-SUFFIXNM, sy-vline,
  WA_HRBENUS_S_ACA_XML_1095_C-CORRECTEDRECORDPAYEETIN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_HRBENUS_S_ACA_XML_1095_C 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_HRBENUS_S_ACA_XML_1095_C 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_HRBENUS_S_ACA_XML_1095_C INTO WA_HRBENUS_S_ACA_XML_1095_C.


*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 TAXYR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_HRBENUS_S_ACA_XML_1095_C-TAXYR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_HRBENUS_S_ACA_XML_1095_C-TAXYR.
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_HRBENUS_S_ACA_XML_1095_C_STR, 
RECORDID TYPE STRING,
TESTSCENARIOID TYPE STRING,
CORRECTEDIND TYPE STRING,
CORRECTEDRECORDINFOGRP TYPE STRING,
CORRECTEDUNIQUERECORDID TYPE STRING,
CORRECTEDRECORDPAYEENAME TYPE STRING,
PERSONFIRSTNM TYPE STRING,
PERSONMIDDLENM TYPE STRING,
PERSONLASTNM TYPE STRING,
SUFFIXNM TYPE STRING,
CORRECTEDRECORDPAYEETIN TYPE STRING,
CORRECTEDRECRECIPIENTNAME TYPE STRING,
BUSINESSNAMELINE1TXT TYPE STRING,
BUSINESSNAMELINE2TXT TYPE STRING,
TAXYR TYPE STRING,
EMPLOYEEINFOGRP TYPE STRING,
OTHERCOMPLETEPERSONNAME TYPE STRING,
PERSONFIRSTNM TYPE STRING,
PERSONMIDDLENM TYPE STRING,
PERSONLASTNM TYPE STRING,
SUFFIXNM TYPE STRING,
PERSONNAMECONTROLTXT TYPE STRING,
TINREQUESTTYPECD TYPE STRING,
SSN TYPE STRING,
MAILINGADDRESSGRP TYPE STRING,
USADDRESSGRP TYPE STRING,
ADDRESSLINE1TXT TYPE STRING,
ADDRESSLINE2TXT TYPE STRING,
CITYNM TYPE STRING,
USSTATECD TYPE STRING,
USZIPCD TYPE STRING,
USZIPEXTENSIONCD TYPE STRING,
FOREIGNADDRESSGRP TYPE STRING,
ADDRESSLINE1TXT TYPE STRING,
ADDRESSLINE2TXT TYPE STRING,
CITYNM TYPE STRING,
COUNTRYCD TYPE STRING,
COUNTRYNM TYPE STRING,
FOREIGNPROVINCENM TYPE STRING,
FOREIGNPOSTALCD TYPE STRING,
ALECONTACTPHONENUM TYPE STRING,
STARTMONTHNUMBERCD TYPE STRING,
EMPLOYEEOFFERANDCOVERAGEGRP TYPE STRING,
ANNUALOFFEROFCOVERAGECD TYPE STRING,
MONTHLYOFFERCOVERAGEGRP TYPE STRING,
JANOFFERCD TYPE STRING,
FEBOFFERCD TYPE STRING,
MAROFFERCD TYPE STRING,
APROFFERCD TYPE STRING,
MAYOFFERCD TYPE STRING,
JUNOFFERCD TYPE STRING,
JULOFFERCD TYPE STRING,
AUGOFFERCD TYPE STRING,
SEPOFFERCD TYPE STRING,
OCTOFFERCD TYPE STRING,
NOVOFFERCD TYPE STRING,
DECOFFERCD TYPE STRING,
ANNLSHRLOWESTCOSTMTHLYPREMAMT TYPE STRING,
MONTHLYSHAREOFLOWESTCOSTMONTH TYPE STRING,
JANUARYAMT TYPE STRING,
FEBRUARYAMT TYPE STRING,
MARCHAMT TYPE STRING,
APRILAMT TYPE STRING,
MAYAMT TYPE STRING,
JUNEAMT TYPE STRING,
JULYAMT TYPE STRING,
AUGUSTAMT TYPE STRING,
SEPTEMBERAMT TYPE STRING,
OCTOBERAMT TYPE STRING,
NOVEMBERAMT TYPE STRING,
DECEMBERAMT TYPE STRING,
ANNUALSAFEHARBORCD TYPE STRING,
MONTHLYSAFEHARBORGRP TYPE STRING,
JANSAFEHARBORCD TYPE STRING,
FEBSAFEHARBORCD TYPE STRING,
MARSAFEHARBORCD TYPE STRING,
APRSAFEHARBORCD TYPE STRING,
MAYSAFEHARBORCD TYPE STRING,
JUNSAFEHARBORCD TYPE STRING,
JULSAFEHARBORCD TYPE STRING,
AUGSAFEHARBORCD TYPE STRING,
SEPSAFEHARBORCD TYPE STRING,
OCTSAFEHARBORCD TYPE STRING,
NOVSAFEHARBORCD TYPE STRING,
DECSAFEHARBORCD TYPE STRING,
ANNUALICHRAZIPCD TYPE STRING,
MONTHLYICHRAZIPCDGRP TYPE STRING,
JANICHRAZIPCD TYPE STRING,
FEBICHRAZIPCD TYPE STRING,
MARICHRAZIPCD TYPE STRING,
APRICHRAZIPCD TYPE STRING,
MAYICHRAZIPCD TYPE STRING,
JUNICHRAZIPCD TYPE STRING,
JULICHRAZIPCD TYPE STRING,
AUGICHRAZIPCD TYPE STRING,
SEPICHRAZIPCD TYPE STRING,
OCTICHRAZIPCD TYPE STRING,
NOVICHRAZIPCD TYPE STRING,
DECICHRAZIPCD TYPE STRING,
COVEREDINDIVIDUALIND TYPE STRING,
COVEREDINDIVIDUALGRP TYPE STRING,
RECORDTYPE TYPE STRING,
LINENUM TYPE STRING,
AGENUM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_HRBENUS_S_ACA_XML_1095_C_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_HRBENUS_S_ACA_XML_1095_C_STR-RECORDID sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-TESTSCENARIOID sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDIND sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDRECORDINFOGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDUNIQUERECORDID sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDRECORDPAYEENAME sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONFIRSTNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONMIDDLENM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONLASTNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SUFFIXNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDRECORDPAYEETIN sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CORRECTEDRECRECIPIENTNAME sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-BUSINESSNAMELINE1TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-BUSINESSNAMELINE2TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-TAXYR sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-EMPLOYEEINFOGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-OTHERCOMPLETEPERSONNAME sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONFIRSTNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONMIDDLENM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONLASTNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SUFFIXNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-PERSONNAMECONTROLTXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-TINREQUESTTYPECD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SSN sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAILINGADDRESSGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-USADDRESSGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ADDRESSLINE1TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ADDRESSLINE2TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CITYNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-USSTATECD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-USZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-USZIPEXTENSIONCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FOREIGNADDRESSGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ADDRESSLINE1TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ADDRESSLINE2TXT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-CITYNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-COUNTRYCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-COUNTRYNM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FOREIGNPROVINCENM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FOREIGNPOSTALCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ALECONTACTPHONENUM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-STARTMONTHNUMBERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-EMPLOYEEOFFERANDCOVERAGEGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ANNUALOFFEROFCOVERAGECD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MONTHLYOFFERCOVERAGEGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JANOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FEBOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAROFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-APROFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAYOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JUNOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JULOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-AUGOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SEPOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-OCTOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-NOVOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-DECOFFERCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ANNLSHRLOWESTCOSTMTHLYPREMAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MONTHLYSHAREOFLOWESTCOSTMONTH sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JANUARYAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FEBRUARYAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MARCHAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-APRILAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAYAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JUNEAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JULYAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-AUGUSTAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SEPTEMBERAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-OCTOBERAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-NOVEMBERAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-DECEMBERAMT sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ANNUALSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MONTHLYSAFEHARBORGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JANSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FEBSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MARSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-APRSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAYSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JUNSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JULSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-AUGSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SEPSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-OCTSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-NOVSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-DECSAFEHARBORCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-ANNUALICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MONTHLYICHRAZIPCDGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JANICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-FEBICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MARICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-APRICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-MAYICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JUNICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-JULICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-AUGICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-SEPICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-OCTICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-NOVICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-DECICHRAZIPCD sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-COVEREDINDIVIDUALIND sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-COVEREDINDIVIDUALGRP sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-RECORDTYPE sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-LINENUM sy-vline 
WA_HRBENUS_S_ACA_XML_1095_C_STR-AGENUM sy-vline      INTO ld_text SEPARATED BY SPACE.

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