ABAP Select data from SAP table GLE_MCA_STR_BKPF_NONKEY_RUNADM into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP GLE_MCA_STR_BKPF_NONKEY_RUNADM 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 GLE_MCA_STR_BKPF_NONKEY_RUNADM. 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 GLE_MCA_STR_BKPF_NONKEY_RUNADM 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_GLE_MCA_STR_BKPF_NONKEY_RUNADM TYPE STANDARD TABLE OF GLE_MCA_STR_BKPF_NONKEY_RUNADM,
      WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM TYPE GLE_MCA_STR_BKPF_NONKEY_RUNADM,
      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: <GLE_MCA_STR_BKPF_NONKEY_RUNADM> TYPE GLE_MCA_STR_BKPF_NONKEY_RUNADM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM GLE_MCA_STR_BKPF_NONKEY_RUNADM
*  INTO TABLE @DATA(IT_GLE_MCA_STR_BKPF_NONKEY_RUNADM2).
*--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_GLE_MCA_STR_BKPF_NONKEY_RUNADM INDEX 1 INTO DATA(WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_GLE_MCA_STR_BKPF_NONKEY_RUNADM ASSIGNING <GLE_MCA_STR_BKPF_NONKEY_RUNADM>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<GLE_MCA_STR_BKPF_NONKEY_RUNADM>-BLART = 1.
<GLE_MCA_STR_BKPF_NONKEY_RUNADM>-BLDAT = 1.
<GLE_MCA_STR_BKPF_NONKEY_RUNADM>-BUDAT = 1.
<GLE_MCA_STR_BKPF_NONKEY_RUNADM>-MONAT = 1.
<GLE_MCA_STR_BKPF_NONKEY_RUNADM>-CPUDT = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-CPUTM, sy-vline,
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-AEDAT, sy-vline,
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-UPDDT, sy-vline,
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-WWERT, sy-vline,
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-USNAM, sy-vline,
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-TCODE, sy-vline.
ENDLOOP. *Add any further fields from structure WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM 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_GLE_MCA_STR_BKPF_NONKEY_RUNADM 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_GLE_MCA_STR_BKPF_NONKEY_RUNADM INTO WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM. *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 DBBLG CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-DBBLG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-DBBLG.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field STJAH CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-STJAH IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-STJAH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRT, internal->external for field KZKRS CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-KZKRS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-KZKRS.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit EXCRT, internal->external for field TXKRS CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-TXKRS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-TXKRS.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit PRPMN, internal->external for field PROPMANO CALL FUNCTION 'CONVERSION_EXIT_PRPMN_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-PROPMANO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-PROPMANO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ODNIT, internal->external for field XBLNR_ALT CALL FUNCTION 'CONVERSION_EXIT_ODNIT_OUTPUT' EXPORTING input = WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-XBLNR_ALT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM-XBLNR_ALT.
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_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR,
BLART TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
MONAT TYPE STRING,
CPUDT TYPE STRING,
CPUTM TYPE STRING,
AEDAT TYPE STRING,
UPDDT TYPE STRING,
WWERT TYPE STRING,
USNAM TYPE STRING,
TCODE TYPE STRING,
BVORG TYPE STRING,
XBLNR TYPE STRING,
DBBLG TYPE STRING,
STBLG TYPE STRING,
STJAH TYPE STRING,
BKTXT TYPE STRING,
KZWRS TYPE STRING,
KZKRS TYPE STRING,
BSTAT TYPE STRING,
XNETB TYPE STRING,
FRATH TYPE STRING,
XRUEB TYPE STRING,
GLVOR TYPE STRING,
GRPID TYPE STRING,
DOKID TYPE STRING,
ARCID TYPE STRING,
IBLAR TYPE STRING,
AWTYP TYPE STRING,
AWKEY TYPE STRING,
FIKRS TYPE STRING,
BASW2 TYPE STRING,
BASW3 TYPE STRING,
UMRD2 TYPE STRING,
UMRD3 TYPE STRING,
XSTOV TYPE STRING,
STODT TYPE STRING,
XMWST TYPE STRING,
CURT2 TYPE STRING,
CURT3 TYPE STRING,
KUTY2 TYPE STRING,
KUTY3 TYPE STRING,
XSNET TYPE STRING,
AUSBK TYPE STRING,
XUSVR TYPE STRING,
DUEFL TYPE STRING,
AWSYS TYPE STRING,
TXKRS TYPE STRING,
LOTKZ TYPE STRING,
XWVOF TYPE STRING,
STGRD TYPE STRING,
PPNAM TYPE STRING,
BRNCH TYPE STRING,
NUMPG TYPE STRING,
ADISC TYPE STRING,
XREF1_HD TYPE STRING,
XREF2_HD TYPE STRING,
XREVERSAL TYPE STRING,
REINDAT TYPE STRING,
RLDNR TYPE STRING,
LDGRP TYPE STRING,
PROPMANO TYPE STRING,
XBLNR_ALT TYPE STRING,
PSOBT TYPE STRING,
PSODT TYPE STRING,
CCINS TYPE STRING,
CCNUM TYPE STRING,
KURST TYPE STRING,END OF T_EKKO_STR. DATA: WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_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_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BLART sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BLDAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BUDAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-MONAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CPUDT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CPUTM sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-AEDAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-UPDDT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-WWERT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-USNAM sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-TCODE sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BVORG sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XBLNR sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-DBBLG sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-STBLG sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-STJAH sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BKTXT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-KZWRS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-KZKRS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BSTAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XNETB sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-FRATH sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XRUEB sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-GLVOR sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-GRPID sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-DOKID sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-ARCID sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-IBLAR sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-AWTYP sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-AWKEY sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-FIKRS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BASW2 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BASW3 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-UMRD2 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-UMRD3 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XSTOV sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-STODT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XMWST sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CURT2 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CURT3 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-KUTY2 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-KUTY3 sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XSNET sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-AUSBK sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XUSVR sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-DUEFL sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-AWSYS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-TXKRS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-LOTKZ sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XWVOF sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-STGRD sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-PPNAM sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-BRNCH sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-NUMPG sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-ADISC sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XREF1_HD sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XREF2_HD sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XREVERSAL sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-REINDAT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-RLDNR sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-LDGRP sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-PROPMANO sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-XBLNR_ALT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-PSOBT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-PSODT sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CCINS sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-CCNUM sy-vline
WA_GLE_MCA_STR_BKPF_NONKEY_RUNADM_STR-KURST sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.