ABAP Select data from SAP table RN1MED_ME_TPORDER 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 RN1MED_ME_TPORDER 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 RN1MED_ME_TPORDER. 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 RN1MED_ME_TPORDER 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_RN1MED_ME_TPORDER TYPE STANDARD TABLE OF RN1MED_ME_TPORDER,
      WA_RN1MED_ME_TPORDER TYPE RN1MED_ME_TPORDER,
      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: <RN1MED_ME_TPORDER> TYPE RN1MED_ME_TPORDER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1MED_ME_TPORDER
*  INTO TABLE @DATA(IT_RN1MED_ME_TPORDER2).
*--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_RN1MED_ME_TPORDER INDEX 1 INTO DATA(WA_RN1MED_ME_TPORDER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1MED_ME_TPORDER>-MANDT = 1.
<RN1MED_ME_TPORDER>-TPID = 1.
<RN1MED_ME_TPORDER>-EINRI = 1.
<RN1MED_ME_TPORDER>-MOTX = 1.
<RN1MED_ME_TPORDER>-MOTX_X = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1MED_ME_TPORDER-MOSTX, sy-vline,
  WA_RN1MED_ME_TPORDER-MOSTX_X, sy-vline,
  WA_RN1MED_ME_TPORDER-MOTYPID, sy-vline,
  WA_RN1MED_ME_TPORDER-MOTYPID_X, sy-vline,
  WA_RN1MED_ME_TPORDER-APDEV, sy-vline,
  WA_RN1MED_ME_TPORDER-APDEV_X, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1MED_ME_TPORDER 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_RN1MED_ME_TPORDER 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_RN1MED_ME_TPORDER INTO WA_RN1MED_ME_TPORDER.


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

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

*Conversion exit MEQUA, internal->external for field ORDUR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-ORDUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-ORDUR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PCALOCK
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-PCALOCK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-PCALOCK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field PCALOCKU
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-PCALOCKU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-PCALOCKU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PCAPER
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-PCAPER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-PCAPER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field PCAPERU
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-PCAPERU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-PCAPERU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ME12D, internal->external for field DISPQUAN
CALL FUNCTION 'CONVERSION_EXIT_ME12D_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-DISPQUAN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-DISPQUAN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field DISPQUANU
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-DISPQUANU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-DISPQUANU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MEQUA, internal->external for field PDUR
CALL FUNCTION 'CONVERSION_EXIT_MEQUA_OUTPUT'
  EXPORTING
    input =                      WA_RN1MED_ME_TPORDER-PDUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1MED_ME_TPORDER-PDUR.
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_RN1MED_ME_TPORDER_STR, 
MANDT TYPE STRING,
TPID TYPE STRING,
EINRI TYPE STRING,
MOTX TYPE STRING,
MOTX_X TYPE STRING,
MOSTX TYPE STRING,
MOSTX_X TYPE STRING,
MOTYPID TYPE STRING,
MOTYPID_X TYPE STRING,
APDEV TYPE STRING,
APDEV_X TYPE STRING,
PHFORM TYPE STRING,
PHFORM_X TYPE STRING,
APROU TYPE STRING,
APROU_X TYPE STRING,
ORDUR TYPE STRING,
ORDUR_X TYPE STRING,
ORDURU TYPE STRING,
ORDURU_X TYPE STRING,
MEDGRPID TYPE STRING,
MEDGRPID_X TYPE STRING,
INSTX TYPE STRING,
INSTX_X TYPE STRING,
MOPRN TYPE STRING,
MOPRN_X TYPE STRING,
PRNCSTX TYPE STRING,
PRNCSTX_X TYPE STRING,
OLDIS TYPE STRING,
OLDIS_X TYPE STRING,
SLDOSE TYPE STRING,
SLDOSE_X TYPE STRING,
IVTYPE TYPE STRING,
IVTYPE_X TYPE STRING,
STRGTHDOS TYPE STRING,
STRGTHDOS_X TYPE STRING,
SELTYP TYPE STRING,
SELTYP_X TYPE STRING,
PCALOCK TYPE STRING,
PCALOCK_X TYPE STRING,
PCALOCKU TYPE STRING,
PCALOCKU_X TYPE STRING,
PCAMAX TYPE STRING,
PCAMAX_X TYPE STRING,
PCAPER TYPE STRING,
PCAPER_X TYPE STRING,
PCAPERU TYPE STRING,
PCAPERU_X TYPE STRING,
COMPDOS TYPE STRING,
COMPDOS_X TYPE STRING,
AL TYPE STRING,
AL_X TYPE STRING,
RCUSE TYPE STRING,
RCUSE_X TYPE STRING,
DC_USED TYPE STRING,
DC_USED_X TYPE STRING,
VFCOIND TYPE STRING,
VFCOIND_X TYPE STRING,
ADOUTPAT TYPE STRING,
ADOUTPAT_X TYPE STRING,
FIXQUAN TYPE STRING,
FIXQUAN_X TYPE STRING,
ZNR TYPE STRING,
ZNR_X TYPE STRING,
INPATIENT TYPE STRING,
INPATIENT_X TYPE STRING,
OUTPATIENT TYPE STRING,
OUTPATIENT_X TYPE STRING,
TPTX TYPE STRING,
TPTX_X TYPE STRING,
TPSTX TYPE STRING,
TPSTX_X TYPE STRING,
NMRF TYPE STRING,
NMRF_X TYPE STRING,
IMDOSE TYPE STRING,
IMDOSE_X TYPE STRING,
PURPOSE TYPE STRING,
PURPOSE_X TYPE STRING,
DISPQUAN TYPE STRING,
DISPQUAN_X TYPE STRING,
DISPQUANU TYPE STRING,
DISPQUANU_X TYPE STRING,
DOSDEF TYPE STRING,
DOSDEF_X TYPE STRING,
DURMETH TYPE STRING,
DURMETH_X TYPE STRING,
PDUR TYPE STRING,
PDUR_X TYPE STRING,
PDURU TYPE STRING,
PDURU_X TYPE STRING,
DCM TYPE STRING,
DCM_X TYPE STRING,
DELAY TYPE STRING,
DELAY_X TYPE STRING,
DELAYU TYPE STRING,
DELAYU_X TYPE STRING,
EMAR TYPE STRING,
EMAR_X TYPE STRING,
DISP TYPE STRING,
DISP_X TYPE STRING,
PPRINT TYPE STRING,
PPRINT_X TYPE STRING,
KZ TYPE STRING,
AUTIDEM TYPE STRING,
AUTIDEM_X TYPE STRING,
LOCID TYPE STRING,
LOCID_X TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1MED_ME_TPORDER_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_RN1MED_ME_TPORDER_STR-MANDT sy-vline 
WA_RN1MED_ME_TPORDER_STR-TPID sy-vline 
WA_RN1MED_ME_TPORDER_STR-EINRI sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOSTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOSTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOTYPID sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOTYPID_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-APDEV sy-vline 
WA_RN1MED_ME_TPORDER_STR-APDEV_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PHFORM sy-vline 
WA_RN1MED_ME_TPORDER_STR-PHFORM_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-APROU sy-vline 
WA_RN1MED_ME_TPORDER_STR-APROU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-ORDUR sy-vline 
WA_RN1MED_ME_TPORDER_STR-ORDUR_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-ORDURU sy-vline 
WA_RN1MED_ME_TPORDER_STR-ORDURU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-MEDGRPID sy-vline 
WA_RN1MED_ME_TPORDER_STR-MEDGRPID_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-INSTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-INSTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOPRN sy-vline 
WA_RN1MED_ME_TPORDER_STR-MOPRN_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PRNCSTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-PRNCSTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-OLDIS sy-vline 
WA_RN1MED_ME_TPORDER_STR-OLDIS_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-SLDOSE sy-vline 
WA_RN1MED_ME_TPORDER_STR-SLDOSE_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-IVTYPE sy-vline 
WA_RN1MED_ME_TPORDER_STR-IVTYPE_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-STRGTHDOS sy-vline 
WA_RN1MED_ME_TPORDER_STR-STRGTHDOS_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-SELTYP sy-vline 
WA_RN1MED_ME_TPORDER_STR-SELTYP_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCALOCK sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCALOCK_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCALOCKU sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCALOCKU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAMAX sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAMAX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAPER sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAPER_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAPERU sy-vline 
WA_RN1MED_ME_TPORDER_STR-PCAPERU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-COMPDOS sy-vline 
WA_RN1MED_ME_TPORDER_STR-COMPDOS_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-AL sy-vline 
WA_RN1MED_ME_TPORDER_STR-AL_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-RCUSE sy-vline 
WA_RN1MED_ME_TPORDER_STR-RCUSE_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DC_USED sy-vline 
WA_RN1MED_ME_TPORDER_STR-DC_USED_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-VFCOIND sy-vline 
WA_RN1MED_ME_TPORDER_STR-VFCOIND_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-ADOUTPAT sy-vline 
WA_RN1MED_ME_TPORDER_STR-ADOUTPAT_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-FIXQUAN sy-vline 
WA_RN1MED_ME_TPORDER_STR-FIXQUAN_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-ZNR sy-vline 
WA_RN1MED_ME_TPORDER_STR-ZNR_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-INPATIENT sy-vline 
WA_RN1MED_ME_TPORDER_STR-INPATIENT_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-OUTPATIENT sy-vline 
WA_RN1MED_ME_TPORDER_STR-OUTPATIENT_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-TPTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-TPTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-TPSTX sy-vline 
WA_RN1MED_ME_TPORDER_STR-TPSTX_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-NMRF sy-vline 
WA_RN1MED_ME_TPORDER_STR-NMRF_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-IMDOSE sy-vline 
WA_RN1MED_ME_TPORDER_STR-IMDOSE_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PURPOSE sy-vline 
WA_RN1MED_ME_TPORDER_STR-PURPOSE_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISPQUAN sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISPQUAN_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISPQUANU sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISPQUANU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DOSDEF sy-vline 
WA_RN1MED_ME_TPORDER_STR-DOSDEF_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DURMETH sy-vline 
WA_RN1MED_ME_TPORDER_STR-DURMETH_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PDUR sy-vline 
WA_RN1MED_ME_TPORDER_STR-PDUR_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PDURU sy-vline 
WA_RN1MED_ME_TPORDER_STR-PDURU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DCM sy-vline 
WA_RN1MED_ME_TPORDER_STR-DCM_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DELAY sy-vline 
WA_RN1MED_ME_TPORDER_STR-DELAY_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DELAYU sy-vline 
WA_RN1MED_ME_TPORDER_STR-DELAYU_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-EMAR sy-vline 
WA_RN1MED_ME_TPORDER_STR-EMAR_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISP sy-vline 
WA_RN1MED_ME_TPORDER_STR-DISP_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-PPRINT sy-vline 
WA_RN1MED_ME_TPORDER_STR-PPRINT_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-KZ sy-vline 
WA_RN1MED_ME_TPORDER_STR-AUTIDEM sy-vline 
WA_RN1MED_ME_TPORDER_STR-AUTIDEM_X sy-vline 
WA_RN1MED_ME_TPORDER_STR-LOCID sy-vline 
WA_RN1MED_ME_TPORDER_STR-LOCID_X sy-vline      INTO ld_text SEPARATED BY SPACE.

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