ABAP Select data from SAP table RJSEPAWUL_MAMFAK 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 RJSEPAWUL_MAMFAK 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 RJSEPAWUL_MAMFAK. 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 RJSEPAWUL_MAMFAK 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_RJSEPAWUL_MAMFAK TYPE STANDARD TABLE OF RJSEPAWUL_MAMFAK,
      WA_RJSEPAWUL_MAMFAK TYPE RJSEPAWUL_MAMFAK,
      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: <RJSEPAWUL_MAMFAK> TYPE RJSEPAWUL_MAMFAK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RJSEPAWUL_MAMFAK
*  INTO TABLE @DATA(IT_RJSEPAWUL_MAMFAK2).
*--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_RJSEPAWUL_MAMFAK INDEX 1 INTO DATA(WA_RJSEPAWUL_MAMFAK2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RJSEPAWUL_MAMFAK>-KUNRG = 1.
<RJSEPAWUL_MAMFAK>-ISMADDRESS = 1.
<RJSEPAWUL_MAMFAK>-VBELN = 1.
<RJSEPAWUL_MAMFAK>-FKART = 1.
<RJSEPAWUL_MAMFAK>-FKDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RJSEPAWUL_MAMFAK-RFBSK, sy-vline,
  WA_RJSEPAWUL_MAMFAK-VKORG, sy-vline,
  WA_RJSEPAWUL_MAMFAK-ZLSCH, sy-vline,
  WA_RJSEPAWUL_MAMFAK-BRTWK, sy-vline,
  WA_RJSEPAWUL_MAMFAK-WAERK, sy-vline,
  WA_RJSEPAWUL_MAMFAK-FKTYP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RJSEPAWUL_MAMFAK 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_RJSEPAWUL_MAMFAK 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_RJSEPAWUL_MAMFAK INTO WA_RJSEPAWUL_MAMFAK.


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

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

*Conversion exit ISOLA, internal->external for field SND_LANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RJSEPAWUL_MAMFAK-SND_LANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RJSEPAWUL_MAMFAK-SND_LANGUAGE.
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_RJSEPAWUL_MAMFAK_STR, 
KUNRG TYPE STRING,
ISMADDRESS TYPE STRING,
VBELN TYPE STRING,
FKART TYPE STRING,
FKDAT TYPE STRING,
RFBSK TYPE STRING,
VKORG TYPE STRING,
ZLSCH TYPE STRING,
BRTWK TYPE STRING,
WAERK TYPE STRING,
FKTYP TYPE STRING,
EKORG TYPE STRING,
BUKRS TYPE STRING,
MNDID TYPE STRING,
MVERS TYPE STRING,
SIGN_CITY TYPE STRING,
SIGN_DATE TYPE STRING,
PAY_TYPE TYPE STRING,
VAL_FROM_DATE TYPE STRING,
VAL_TO_DATE TYPE STRING,
STATUS TYPE STRING,
B2B TYPE STRING,
REASON_CODE TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
ERTIM TYPE STRING,
CHG_REASON TYPE STRING,
ORIGIN TYPE STRING,
ORIGIN_REC_CRDID TYPE STRING,
ORIGIN_MNDID TYPE STRING,
GLOCK TYPE STRING,
GLOCK_VAL_FROM TYPE STRING,
GLOCK_VAL_TO TYPE STRING,
ANWND TYPE STRING,
ORI_ERNAM TYPE STRING,
ORI_ERDAT TYPE STRING,
ORI_ERTIM TYPE STRING,
REF_TYPE TYPE STRING,
REF_ID TYPE STRING,
REF_DESC TYPE STRING,
SND_TYPE TYPE STRING,
SND_ID TYPE STRING,
SND_NAME1 TYPE STRING,
SND_NAME2 TYPE STRING,
SND_STREET TYPE STRING,
SND_HOUSENUM TYPE STRING,
SND_POSTAL TYPE STRING,
SND_CITY TYPE STRING,
SND_COUNTRY TYPE STRING,
SND_IBAN TYPE STRING,
SND_BIC TYPE STRING,
SND_DIR_NAME TYPE STRING,
SND_LANGUAGE TYPE STRING,
SND_DIR_ID TYPE STRING,
SND_DEBTOR_ID TYPE STRING,
REC_TYPE TYPE STRING,
REC_ID TYPE STRING,
REC_NAME1 TYPE STRING,
REC_NAME2 TYPE STRING,
REC_CRDID TYPE STRING,
REC_STREET TYPE STRING,
REC_HOUSENUM TYPE STRING,
REC_POSTAL TYPE STRING,
REC_CITY TYPE STRING,
REC_COUNTRY TYPE STRING,
REC_DIR_NAME TYPE STRING,
REC_DIR_ID TYPE STRING,
FIRSTUSE_DATE TYPE STRING,
FIRSTUSE_DOCTYPE TYPE STRING,
FIRSTUSE_DOCID TYPE STRING,
LASTUSE_DATE TYPE STRING,
LASTUSE_DOCTYPE TYPE STRING,
LASTUSE_DOCID TYPE STRING,
FIRSTUSE_PAYRUN TYPE STRING,
ORGF1 TYPE STRING,
ORGF2 TYPE STRING,
ORGF3 TYPE STRING,
ORGF4 TYPE STRING,
ALVSTYLE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RJSEPAWUL_MAMFAK_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_RJSEPAWUL_MAMFAK_STR-KUNRG sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ISMADDRESS sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-VBELN sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FKART sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FKDAT sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-RFBSK sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-VKORG sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ZLSCH sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-BRTWK sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-WAERK sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FKTYP sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-EKORG sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-BUKRS sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-MNDID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-MVERS sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SIGN_CITY sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SIGN_DATE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-PAY_TYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-VAL_FROM_DATE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-VAL_TO_DATE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-STATUS sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-B2B sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REASON_CODE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ERNAM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ERDAT sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ERTIM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-CHG_REASON sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORIGIN sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORIGIN_REC_CRDID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORIGIN_MNDID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-GLOCK sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-GLOCK_VAL_FROM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-GLOCK_VAL_TO sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ANWND sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORI_ERNAM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORI_ERDAT sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORI_ERTIM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REF_TYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REF_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REF_DESC sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_TYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_NAME1 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_NAME2 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_STREET sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_HOUSENUM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_POSTAL sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_CITY sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_COUNTRY sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_IBAN sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_BIC sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_DIR_NAME sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_LANGUAGE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_DIR_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-SND_DEBTOR_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_TYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_NAME1 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_NAME2 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_CRDID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_STREET sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_HOUSENUM sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_POSTAL sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_CITY sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_COUNTRY sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_DIR_NAME sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-REC_DIR_ID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FIRSTUSE_DATE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FIRSTUSE_DOCTYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FIRSTUSE_DOCID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-LASTUSE_DATE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-LASTUSE_DOCTYPE sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-LASTUSE_DOCID sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-FIRSTUSE_PAYRUN sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORGF1 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORGF2 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORGF3 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ORGF4 sy-vline 
WA_RJSEPAWUL_MAMFAK_STR-ALVSTYLE sy-vline      INTO ld_text SEPARATED BY SPACE.

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