ABAP Select data from SAP table RJ45A 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 RJ45A 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 RJ45A. 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 RJ45A 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_RJ45A TYPE STANDARD TABLE OF RJ45A,
      WA_RJ45A TYPE RJ45A,
      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: <RJ45A> TYPE RJ45A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJ45A
*  INTO TABLE @DATA(IT_RJ45A2).
*--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_RJ45A INDEX 1 INTO DATA(WA_RJ45A2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJ45A>-TXT_GRUND = 1.
<RJ45A>-TXT_AUART = 1.
<RJ45A>-TXT_VBELN = 1.
<RJ45A>-TXT_ANGDT = 1.
<RJ45A>-TXT_BNDDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJ45A-TXT_TITEL, sy-vline,
  WA_RJ45A-TXT_ZAHLW, sy-vline,
  WA_RJ45A-TXT_FKPER, sy-vline,
  WA_RJ45A-TXT_BZPRFK, sy-vline,
  WA_RJ45A-TXT_BZPRFL, sy-vline,
  WA_RJ45A-TXT_BZPRSE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJ45A 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_RJ45A 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_RJ45A INTO WA_RJ45A.


*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 BEZIRK
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJ45A-BEZIRK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJ45A-BEZIRK.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit JKWBZ, internal->external for field WBZABONR
CALL FUNCTION 'CONVERSION_EXIT_JKWBZ_OUTPUT'
  EXPORTING
    input =                      WA_RJ45A-WBZABONR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJ45A-WBZABONR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field VKONT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RJ45A-VKONT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJ45A-VKONT.
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_RJ45A_STR, 
TXT_GRUND TYPE STRING,
TXT_AUART TYPE STRING,
TXT_VBELN TYPE STRING,
TXT_ANGDT TYPE STRING,
TXT_BNDDT TYPE STRING,
TXT_TITEL TYPE STRING,
TXT_ZAHLW TYPE STRING,
TXT_FKPER TYPE STRING,
TXT_BZPRFK TYPE STRING,
TXT_BZPRFL TYPE STRING,
TXT_BZPRSE TYPE STRING,
TXT_IVWFR TYPE STRING,
TXT_UEBART TYPE STRING,
TXT_KUNWE TYPE STRING,
TXT_PRBAS TYPE STRING,
TXT_PRBSVK TYPE STRING,
TXT_REMART TYPE STRING,
TXT_REMWEI TYPE STRING,
TXT_BEABST TYPE STRING,
TXT_PREIS TYPE STRING,
TXT_AMORTN TYPE STRING,
TXT_KALSM_AMO TYPE STRING,
TXT_VTRBER TYPE STRING,
TXT_PERIOD1 TYPE STRING,
TXT_PERIOD2 TYPE STRING,
TXT_REFUND TYPE STRING,
TITLE TYPE STRING,
FAKSK TYPE STRING,
FAKSP TYPE STRING,
PREIS TYPE STRING,
POART_EX TYPE STRING,
ETART_EX TYPE STRING,
GRUND TYPE STRING,
GRD_BEZEI TYPE STRING,
MAKTX TYPE STRING,
XGELIEFERT TYPE STRING,
XFAKTRIERT TYPE STRING,
XOFFERED TYPE STRING,
XFAKT_UR TYPE STRING,
XVVL_OVER TYPE STRING,
FKRUECKBAR TYPE STRING,
XGEKUEND TYPE STRING,
XVTPRO TYPE STRING,
XVTPROAB TYPE STRING,
XFAKT_EINT TYPE STRING,
XLIEF_EINT TYPE STRING,
XFAKTURA TYPE STRING,
XIVW TYPE STRING,
XDEBI TYPE STRING,
GUELTIGVON TYPE STRING,
GUELTIGBIS TYPE STRING,
EINTRAG TYPE STRING,
EINTRAEGE TYPE STRING,
POSNR TYPE STRING,
POSEX TYPE STRING,
ETENR TYPE STRING,
BEZIRK TYPE STRING,
BEZRUNDE TYPE STRING,
ZUSTELLER TYPE STRING,
VSGZUSTLR TYPE STRING,
LIEFENDEM TYPE STRING,
RNAMEKURZ TYPE STRING,
RNAMELANG TYPE STRING,
RVNAMEKURZ TYPE STRING,
RVNAMELANG TYPE STRING,
ZUNAMEKURZ TYPE STRING,
ZGNAMEKURZ TYPE STRING,
FKDATNEXT TYPE STRING,
IVWLAND TYPE STRING,
VORLAUFDAT TYPE STRING,
ABL_LIST TYPE STRING,
BEABLST TYPE STRING,
XSCRIPT TYPE STRING,
GUELTIGAM TYPE STRING,
XCOND_AUTH TYPE STRING,
WBZABONR TYPE STRING,
TXT_WERBKZ TYPE STRING,
RABGRENZE TYPE STRING,
BEABLART TYPE STRING,
FKDATVSYST TYPE STRING,
XDISMISSED TYPE STRING,
FAKBIS TYPE STRING,
XCCARD TYPE STRING,
ZUONR TYPE STRING,
NBRISSUES TYPE STRING,
XKDFAKTURA TYPE STRING,
XDATUEBAKT TYPE STRING,
LFBARDAT TYPE STRING,
POSEX_TO TYPE STRING,
PUBL_NEW TYPE STRING,
PUBL_FROM TYPE STRING,
PUBL_DISTDATE TYPE STRING,
PUBL_WERBEART TYPE STRING,
PUBL_WERBEAKT TYPE STRING,
PUBL_BEZUGGRD TYPE STRING,
XEGLD TYPE STRING,
XFAKTRUECK TYPE STRING,
XTO_BILL TYPE STRING,
XGIFTSENT TYPE STRING,
AKTEINTRG2 TYPE STRING,
GESEINTRG2 TYPE STRING,
XAG_DIFFERENT TYPE STRING,
XRE_DIFFERENT TYPE STRING,
XRG_DIFFERENT TYPE STRING,
XDELIV_LOCKED TYPE STRING,
FAKTMODVON TYPE STRING,
XWERBFAKT TYPE STRING,
XSUBITEM TYPE STRING,
XVARIABLEDAYS TYPE STRING,
POSNR_MAIN TYPE STRING,
XSLAVEITEM TYPE STRING,
VKONT TYPE STRING,
VKONTBEZ TYPE STRING,
ICON_PAYMENT_MODE TYPE STRING,
XBUPP TYPE STRING,
XBUPO TYPE STRING,
XBUPG TYPE STRING,
REFUND TYPE STRING,
WAERK TYPE STRING,
XPRICEALTER TYPE STRING,
ISM_CVVAL TYPE STRING,
ISM_CVVCT TYPE STRING,
ISM_CVVST TYPE STRING,
CVVSTTEXT TYPE STRING,
XAMORTIZED TYPE STRING,
XCLOSED TYPE STRING,
XMULTIPROM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJ45A_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_RJ45A_STR-TXT_GRUND sy-vline 
WA_RJ45A_STR-TXT_AUART sy-vline 
WA_RJ45A_STR-TXT_VBELN sy-vline 
WA_RJ45A_STR-TXT_ANGDT sy-vline 
WA_RJ45A_STR-TXT_BNDDT sy-vline 
WA_RJ45A_STR-TXT_TITEL sy-vline 
WA_RJ45A_STR-TXT_ZAHLW sy-vline 
WA_RJ45A_STR-TXT_FKPER sy-vline 
WA_RJ45A_STR-TXT_BZPRFK sy-vline 
WA_RJ45A_STR-TXT_BZPRFL sy-vline 
WA_RJ45A_STR-TXT_BZPRSE sy-vline 
WA_RJ45A_STR-TXT_IVWFR sy-vline 
WA_RJ45A_STR-TXT_UEBART sy-vline 
WA_RJ45A_STR-TXT_KUNWE sy-vline 
WA_RJ45A_STR-TXT_PRBAS sy-vline 
WA_RJ45A_STR-TXT_PRBSVK sy-vline 
WA_RJ45A_STR-TXT_REMART sy-vline 
WA_RJ45A_STR-TXT_REMWEI sy-vline 
WA_RJ45A_STR-TXT_BEABST sy-vline 
WA_RJ45A_STR-TXT_PREIS sy-vline 
WA_RJ45A_STR-TXT_AMORTN sy-vline 
WA_RJ45A_STR-TXT_KALSM_AMO sy-vline 
WA_RJ45A_STR-TXT_VTRBER sy-vline 
WA_RJ45A_STR-TXT_PERIOD1 sy-vline 
WA_RJ45A_STR-TXT_PERIOD2 sy-vline 
WA_RJ45A_STR-TXT_REFUND sy-vline 
WA_RJ45A_STR-TITLE sy-vline 
WA_RJ45A_STR-FAKSK sy-vline 
WA_RJ45A_STR-FAKSP sy-vline 
WA_RJ45A_STR-PREIS sy-vline 
WA_RJ45A_STR-POART_EX sy-vline 
WA_RJ45A_STR-ETART_EX sy-vline 
WA_RJ45A_STR-GRUND sy-vline 
WA_RJ45A_STR-GRD_BEZEI sy-vline 
WA_RJ45A_STR-MAKTX sy-vline 
WA_RJ45A_STR-XGELIEFERT sy-vline 
WA_RJ45A_STR-XFAKTRIERT sy-vline 
WA_RJ45A_STR-XOFFERED sy-vline 
WA_RJ45A_STR-XFAKT_UR sy-vline 
WA_RJ45A_STR-XVVL_OVER sy-vline 
WA_RJ45A_STR-FKRUECKBAR sy-vline 
WA_RJ45A_STR-XGEKUEND sy-vline 
WA_RJ45A_STR-XVTPRO sy-vline 
WA_RJ45A_STR-XVTPROAB sy-vline 
WA_RJ45A_STR-XFAKT_EINT sy-vline 
WA_RJ45A_STR-XLIEF_EINT sy-vline 
WA_RJ45A_STR-XFAKTURA sy-vline 
WA_RJ45A_STR-XIVW sy-vline 
WA_RJ45A_STR-XDEBI sy-vline 
WA_RJ45A_STR-GUELTIGVON sy-vline 
WA_RJ45A_STR-GUELTIGBIS sy-vline 
WA_RJ45A_STR-EINTRAG sy-vline 
WA_RJ45A_STR-EINTRAEGE sy-vline 
WA_RJ45A_STR-POSNR sy-vline 
WA_RJ45A_STR-POSEX sy-vline 
WA_RJ45A_STR-ETENR sy-vline 
WA_RJ45A_STR-BEZIRK sy-vline 
WA_RJ45A_STR-BEZRUNDE sy-vline 
WA_RJ45A_STR-ZUSTELLER sy-vline 
WA_RJ45A_STR-VSGZUSTLR sy-vline 
WA_RJ45A_STR-LIEFENDEM sy-vline 
WA_RJ45A_STR-RNAMEKURZ sy-vline 
WA_RJ45A_STR-RNAMELANG sy-vline 
WA_RJ45A_STR-RVNAMEKURZ sy-vline 
WA_RJ45A_STR-RVNAMELANG sy-vline 
WA_RJ45A_STR-ZUNAMEKURZ sy-vline 
WA_RJ45A_STR-ZGNAMEKURZ sy-vline 
WA_RJ45A_STR-FKDATNEXT sy-vline 
WA_RJ45A_STR-IVWLAND sy-vline 
WA_RJ45A_STR-VORLAUFDAT sy-vline 
WA_RJ45A_STR-ABL_LIST sy-vline 
WA_RJ45A_STR-BEABLST sy-vline 
WA_RJ45A_STR-XSCRIPT sy-vline 
WA_RJ45A_STR-GUELTIGAM sy-vline 
WA_RJ45A_STR-XCOND_AUTH sy-vline 
WA_RJ45A_STR-WBZABONR sy-vline 
WA_RJ45A_STR-TXT_WERBKZ sy-vline 
WA_RJ45A_STR-RABGRENZE sy-vline 
WA_RJ45A_STR-BEABLART sy-vline 
WA_RJ45A_STR-FKDATVSYST sy-vline 
WA_RJ45A_STR-XDISMISSED sy-vline 
WA_RJ45A_STR-FAKBIS sy-vline 
WA_RJ45A_STR-XCCARD sy-vline 
WA_RJ45A_STR-ZUONR sy-vline 
WA_RJ45A_STR-NBRISSUES sy-vline 
WA_RJ45A_STR-XKDFAKTURA sy-vline 
WA_RJ45A_STR-XDATUEBAKT sy-vline 
WA_RJ45A_STR-LFBARDAT sy-vline 
WA_RJ45A_STR-POSEX_TO sy-vline 
WA_RJ45A_STR-PUBL_NEW sy-vline 
WA_RJ45A_STR-PUBL_FROM sy-vline 
WA_RJ45A_STR-PUBL_DISTDATE sy-vline 
WA_RJ45A_STR-PUBL_WERBEART sy-vline 
WA_RJ45A_STR-PUBL_WERBEAKT sy-vline 
WA_RJ45A_STR-PUBL_BEZUGGRD sy-vline 
WA_RJ45A_STR-XEGLD sy-vline 
WA_RJ45A_STR-XFAKTRUECK sy-vline 
WA_RJ45A_STR-XTO_BILL sy-vline 
WA_RJ45A_STR-XGIFTSENT sy-vline 
WA_RJ45A_STR-AKTEINTRG2 sy-vline 
WA_RJ45A_STR-GESEINTRG2 sy-vline 
WA_RJ45A_STR-XAG_DIFFERENT sy-vline 
WA_RJ45A_STR-XRE_DIFFERENT sy-vline 
WA_RJ45A_STR-XRG_DIFFERENT sy-vline 
WA_RJ45A_STR-XDELIV_LOCKED sy-vline 
WA_RJ45A_STR-FAKTMODVON sy-vline 
WA_RJ45A_STR-XWERBFAKT sy-vline 
WA_RJ45A_STR-XSUBITEM sy-vline 
WA_RJ45A_STR-XVARIABLEDAYS sy-vline 
WA_RJ45A_STR-POSNR_MAIN sy-vline 
WA_RJ45A_STR-XSLAVEITEM sy-vline 
WA_RJ45A_STR-VKONT sy-vline 
WA_RJ45A_STR-VKONTBEZ sy-vline 
WA_RJ45A_STR-ICON_PAYMENT_MODE sy-vline 
WA_RJ45A_STR-XBUPP sy-vline 
WA_RJ45A_STR-XBUPO sy-vline 
WA_RJ45A_STR-XBUPG sy-vline 
WA_RJ45A_STR-REFUND sy-vline 
WA_RJ45A_STR-WAERK sy-vline 
WA_RJ45A_STR-XPRICEALTER sy-vline 
WA_RJ45A_STR-ISM_CVVAL sy-vline 
WA_RJ45A_STR-ISM_CVVCT sy-vline 
WA_RJ45A_STR-ISM_CVVST sy-vline 
WA_RJ45A_STR-CVVSTTEXT sy-vline 
WA_RJ45A_STR-XAMORTIZED sy-vline 
WA_RJ45A_STR-XCLOSED sy-vline 
WA_RJ45A_STR-XMULTIPROM sy-vline      INTO ld_text SEPARATED BY SPACE.

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