ABAP Select data from SAP table /SAPPSSRM/S_CCR_VENDOR 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 /SAPPSSRM/S_CCR_VENDOR 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 /SAPPSSRM/S_CCR_VENDOR. 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 /SAPPSSRM/S_CCR_VENDOR 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_/SAPPSSRM/S_CCR_VENDOR TYPE STANDARD TABLE OF /SAPPSSRM/S_CCR_VENDOR,
      WA_/SAPPSSRM/S_CCR_VENDOR TYPE /SAPPSSRM/S_CCR_VENDOR,
      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: </SAPPSSRM/S_CCR_VENDOR> TYPE /SAPPSSRM/S_CCR_VENDOR.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /SAPPSSRM/S_CCR_VENDOR
  INTO TABLE IT_/SAPPSSRM/S_CCR_VENDOR.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /SAPPSSRM/S_CCR_VENDOR
*  INTO TABLE @DATA(IT_/SAPPSSRM/S_CCR_VENDOR2).
*--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_/SAPPSSRM/S_CCR_VENDOR INDEX 1 INTO DATA(WA_/SAPPSSRM/S_CCR_VENDOR2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SAPPSSRM/S_CCR_VENDOR ASSIGNING </SAPPSSRM/S_CCR_VENDOR>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SAPPSSRM/S_CCR_VENDOR>-MANDT = 1.
</SAPPSSRM/S_CCR_VENDOR>-DUNS = 1.
</SAPPSSRM/S_CCR_VENDOR>-DUNS4 = 1.
</SAPPSSRM/S_CCR_VENDOR>-CAGE = 1.
</SAPPSSRM/S_CCR_VENDOR>-EXCODE = 1.

ENDLOOP.

LOOP AT IT_/SAPPSSRM/S_CCR_VENDOR INTO WA_/SAPPSSRM/S_CCR_VENDOR.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SAPPSSRM/S_CCR_VENDOR-REGDATE, sy-vline,
  WA_/SAPPSSRM/S_CCR_VENDOR-RENDATE, sy-vline,
  WA_/SAPPSSRM/S_CCR_VENDOR-BUSNAME, sy-vline,
  WA_/SAPPSSRM/S_CCR_VENDOR-DBANAME, sy-vline,
  WA_/SAPPSSRM/S_CCR_VENDOR-COMPDIV, sy-vline,
  WA_/SAPPSSRM/S_CCR_VENDOR-DIVNUM, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SAPPSSRM/S_CCR_VENDOR 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_/SAPPSSRM/S_CCR_VENDOR 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_/SAPPSSRM/S_CCR_VENDOR INTO WA_/SAPPSSRM/S_CCR_VENDOR.


*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_/SAPPSSRM/S_CCR_VENDOR_STR, 
MANDT TYPE STRING,
DUNS TYPE STRING,
DUNS4 TYPE STRING,
CAGE TYPE STRING,
EXCODE TYPE STRING,
REGDATE TYPE STRING,
RENDATE TYPE STRING,
BUSNAME TYPE STRING,
DBANAME TYPE STRING,
COMPDIV TYPE STRING,
DIVNUM TYPE STRING,
STADD1 TYPE STRING,
STADD2 TYPE STRING,
CITY TYPE STRING,
STATE TYPE STRING,
POSTAL TYPE STRING,
COUNTRY TYPE STRING,
BUSSTART TYPE STRING,
FISCEND TYPE STRING,
COSECLVL TYPE STRING,
EMSECLVL TYPE STRING,
URL TYPE STRING,
ORGTYP TYPE STRING,
STATEINC TYPE STRING,
COUNTRYINC TYPE STRING,
PARENTDUNS TYPE STRING,
BUSTYPES TYPE STRING,
BUSTYP01 TYPE STRING,
BUSTYP02 TYPE STRING,
BUSTYP03 TYPE STRING,
BUSTYP04 TYPE STRING,
BUSTYP05 TYPE STRING,
BUSTYP06 TYPE STRING,
BUSTYP07 TYPE STRING,
BUSTYP08 TYPE STRING,
BUSTYP09 TYPE STRING,
BUSTYP10 TYPE STRING,
SICCODE TYPE STRING,
SIC01 TYPE STRING,
SIC02 TYPE STRING,
SIC03 TYPE STRING,
SIC04 TYPE STRING,
SIC05 TYPE STRING,
SIC06 TYPE STRING,
SIC07 TYPE STRING,
SIC08 TYPE STRING,
SIC09 TYPE STRING,
SIC10 TYPE STRING,
SIC11 TYPE STRING,
SIC12 TYPE STRING,
SIC13 TYPE STRING,
SIC14 TYPE STRING,
SIC15 TYPE STRING,
SIC16 TYPE STRING,
SIC17 TYPE STRING,
SIC18 TYPE STRING,
SIC19 TYPE STRING,
SIC20 TYPE STRING,
NAICS TYPE STRING,
NAICS01 TYPE STRING,
NAICS02 TYPE STRING,
NAICS03 TYPE STRING,
NAICS04 TYPE STRING,
NAICS05 TYPE STRING,
NAICS06 TYPE STRING,
NAICS07 TYPE STRING,
NAICS08 TYPE STRING,
NAICS09 TYPE STRING,
NAICS10 TYPE STRING,
NAICS11 TYPE STRING,
NAICS12 TYPE STRING,
NAICS13 TYPE STRING,
NAICS14 TYPE STRING,
NAICS15 TYPE STRING,
NAICS16 TYPE STRING,
NAICS17 TYPE STRING,
NAICS18 TYPE STRING,
NAICS19 TYPE STRING,
NAICS20 TYPE STRING,
FSCCODE TYPE STRING,
FSC01 TYPE STRING,
FSC02 TYPE STRING,
FSC03 TYPE STRING,
FSC04 TYPE STRING,
FSC05 TYPE STRING,
FSC06 TYPE STRING,
FSC07 TYPE STRING,
FSC08 TYPE STRING,
FSC09 TYPE STRING,
FSC10 TYPE STRING,
PSCCODE TYPE STRING,
PSC01 TYPE STRING,
PSC02 TYPE STRING,
PSC03 TYPE STRING,
PSC04 TYPE STRING,
PSC05 TYPE STRING,
PSC06 TYPE STRING,
PSC07 TYPE STRING,
PSC08 TYPE STRING,
PSC09 TYPE STRING,
PSC10 TYPE STRING,
CREDCARD TYPE STRING,
CORRFLAG TYPE STRING,
EDI TYPE STRING,
TAXID TYPE STRING,
AVGNUMEMP TYPE STRING,
ANNUALREV TYPE STRING,
SSN TYPE STRING,
FININST TYPE STRING,
ACCNTNO TYPE STRING,
ABAROUTE TYPE STRING,
PAYTYPE TYPE STRING,
LOCKBOXNO TYPE STRING,
AUTHDATE TYPE STRING,
EFTWAIVER TYPE STRING,
ACH_US_PHONE TYPE STRING,
ACH_NUS_PHONE TYPE STRING,
ACH_FAX TYPE STRING,
ACH_EMAIL TYPE STRING,
MPIN TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SAPPSSRM/S_CCR_VENDOR_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_/SAPPSSRM/S_CCR_VENDOR_STR-MANDT sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-DUNS sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-DUNS4 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-CAGE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-EXCODE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-REGDATE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-RENDATE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSNAME sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-DBANAME sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-COMPDIV sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-DIVNUM sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-STADD1 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-STADD2 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-CITY sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-STATE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-POSTAL sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-COUNTRY sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSSTART sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FISCEND sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-COSECLVL sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-EMSECLVL sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-URL sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ORGTYP sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-STATEINC sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-COUNTRYINC sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PARENTDUNS sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYPES sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP01 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP02 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP03 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP04 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP05 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP06 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP07 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP08 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP09 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-BUSTYP10 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SICCODE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC01 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC02 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC03 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC04 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC05 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC06 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC07 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC08 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC09 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC10 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC11 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC12 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC13 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC14 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC15 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC16 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC17 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC18 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC19 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SIC20 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS01 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS02 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS03 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS04 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS05 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS06 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS07 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS08 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS09 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS10 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS11 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS12 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS13 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS14 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS15 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS16 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS17 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS18 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS19 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-NAICS20 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSCCODE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC01 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC02 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC03 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC04 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC05 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC06 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC07 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC08 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC09 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FSC10 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSCCODE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC01 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC02 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC03 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC04 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC05 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC06 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC07 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC08 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC09 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PSC10 sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-CREDCARD sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-CORRFLAG sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-EDI sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-TAXID sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-AVGNUMEMP sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ANNUALREV sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-SSN sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-FININST sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ACCNTNO sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ABAROUTE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-PAYTYPE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-LOCKBOXNO sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-AUTHDATE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-EFTWAIVER sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ACH_US_PHONE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ACH_NUS_PHONE sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ACH_FAX sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-ACH_EMAIL sy-vline 
WA_/SAPPSSRM/S_CCR_VENDOR_STR-MPIN sy-vline      INTO ld_text SEPARATED BY SPACE.

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