ABAP Select data from SAP table V_TCJ41 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 V_TCJ41 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 V_TCJ41. 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 V_TCJ41 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_V_TCJ41 TYPE STANDARD TABLE OF V_TCJ41,
      WA_V_TCJ41 TYPE V_TCJ41,
      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: <V_TCJ41> TYPE V_TCJ41.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM V_TCJ41
*  INTO TABLE @DATA(IT_V_TCJ412).
*--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_V_TCJ41 INDEX 1 INTO DATA(WA_V_TCJ412).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<V_TCJ41>-MANDT = 1.
<V_TCJ41>-PROFIDPROJ = 1.
<V_TCJ41>-WERKS = 1.
<V_TCJ41>-KALID = 1.
<V_TCJ41>-KALID_TXT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_V_TCJ41-VGPLF, sy-vline,
  WA_V_TCJ41-EWPLF, sy-vline,
  WA_V_TCJ41-VPROF, sy-vline,
  WA_V_TCJ41-NZANZ, sy-vline,
  WA_V_TCJ41-IDENT, sy-vline,
  WA_V_TCJ41-ABGSL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_V_TCJ41 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_V_TCJ41 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_V_TCJ41 INTO WA_V_TCJ41.


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

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

*Conversion exit OBART, internal->external for field KOVOR
CALL FUNCTION 'CONVERSION_EXIT_OBART_OUTPUT'
  EXPORTING
    input =                      WA_V_TCJ41-KOVOR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_V_TCJ41-KOVOR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SCOPE, internal->external for field SCOPE
CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT'
  EXPORTING
    input =                      WA_V_TCJ41-SCOPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_V_TCJ41-SCOPE.
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_V_TCJ41_STR, 
MANDT TYPE STRING,
PROFIDPROJ TYPE STRING,
WERKS TYPE STRING,
KALID TYPE STRING,
KALID_TXT TYPE STRING,
VGPLF TYPE STRING,
EWPLF TYPE STRING,
VPROF TYPE STRING,
NZANZ TYPE STRING,
IDENT TYPE STRING,
ABGSL TYPE STRING,
LEVELS TYPE STRING,
ZUORD TYPE STRING,
TRMEQ TYPE STRING,
STSPD TYPE STRING,
STSPR TYPE STRING,
APROF TYPE STRING,
PLNAW TYPE STRING,
GRPGS TYPE STRING,
GRPFS TYPE STRING,
GRPGT TYPE STRING,
GRPFT TYPE STRING,
GRPGB TYPE STRING,
GRPFB TYPE STRING,
PARGR TYPE STRING,
ABSCH TYPE STRING,
URSCH TYPE STRING,
KOVOR TYPE STRING,
TXT TYPE STRING,
PROFI_TXT TYPE STRING,
PROFI_TXTP TYPE STRING,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
APRFE TYPE STRING,
BERST TYPE STRING,
BERTR TYPE STRING,
BERKO TYPE STRING,
BERBU TYPE STRING,
SLWID TYPE STRING,
AUTOD TYPE STRING,
BPROF TYPE STRING,
PTEXT TYPE STRING,
TEXTA TYPE STRING,
ZTEHT TYPE STRING,
ALL_ACC TYPE STRING,
ALL_ACT TYPE STRING,
CHGKZ TYPE STRING,
FMPRF TYPE STRING,
ZSCHM TYPE STRING,
ZSCHM_TXT TYPE STRING,
BUKRS TYPE STRING,
GSBER TYPE STRING,
KOKRS TYPE STRING,
PRCTR TYPE STRING,
WAERS TYPE STRING,
BESTA TYPE STRING,
SCOPE TYPE STRING,
XSTAT TYPE STRING,
AEBLG TYPE STRING,
PRART TYPE STRING,
BPPROFL TYPE STRING,
EINGR TYPE STRING,
EINTB TYPE STRING,
IMPRF TYPE STRING,
THPROFILE TYPE STRING,
THPROF_TXT TYPE STRING,
SCPRF TYPE STRING,
SCPRF_TEXT TYPE STRING,
CLALL TYPE STRING,
CLFAK TYPE STRING,
CLKNT TYPE STRING,
VSPRF TYPE STRING,
LSTKP TYPE STRING,
EINGE TYPE STRING,
EINTE TYPE STRING,
PPROF TYPE STRING,
PLINT TYPE STRING,
GRVST TYPE STRING,
XROOT TYPE STRING,
VALID TYPE STRING,
SUBST TYPE STRING,
KZBWS TYPE STRING,
AUTOVAL TYPE STRING,
AUTOSUB TYPE STRING,
SMPRF TYPE STRING,
SMPROF_TXT TYPE STRING,
HY_SEARCH1 TYPE STRING,
HY_SEARCH2 TYPE STRING,
HY_SEARCH3 TYPE STRING,
FLGVRG TYPE STRING,
GRTOP TYPE STRING,
KZERB TYPE STRING,
PGPRF TYPE STRING,
PGPRF_TXT TYPE STRING,
STRAT TYPE STRING,
STRAT_TXT TYPE STRING,
VALID_PSP TYPE STRING,
VALTEXT TYPE STRING,
SUBST_PSP TYPE STRING,
SUBSTEXT TYPE STRING,
SCHTYP TYPE STRING,
FUNC_AREA TYPE STRING,
FKBTX TYPE STRING,
VKORG TYPE STRING,
VKORGTXT TYPE STRING,
SPART TYPE STRING,
SPARTTXT TYPE STRING,
DPPPROF TYPE STRING,
VTWEG TYPE STRING,
VTWEGTXT TYPE STRING,
IPPS TYPE STRING,
PSACL TYPE STRING,
PSACLH TYPE STRING,
TEMPLATE_KEY TYPE STRING,
SLWID_PROJ TYPE STRING,END OF T_EKKO_STR.
DATA: WA_V_TCJ41_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_V_TCJ41_STR-MANDT sy-vline 
WA_V_TCJ41_STR-PROFIDPROJ sy-vline 
WA_V_TCJ41_STR-WERKS sy-vline 
WA_V_TCJ41_STR-KALID sy-vline 
WA_V_TCJ41_STR-KALID_TXT sy-vline 
WA_V_TCJ41_STR-VGPLF sy-vline 
WA_V_TCJ41_STR-EWPLF sy-vline 
WA_V_TCJ41_STR-VPROF sy-vline 
WA_V_TCJ41_STR-NZANZ sy-vline 
WA_V_TCJ41_STR-IDENT sy-vline 
WA_V_TCJ41_STR-ABGSL sy-vline 
WA_V_TCJ41_STR-LEVELS sy-vline 
WA_V_TCJ41_STR-ZUORD sy-vline 
WA_V_TCJ41_STR-TRMEQ sy-vline 
WA_V_TCJ41_STR-STSPD sy-vline 
WA_V_TCJ41_STR-STSPR sy-vline 
WA_V_TCJ41_STR-APROF sy-vline 
WA_V_TCJ41_STR-PLNAW sy-vline 
WA_V_TCJ41_STR-GRPGS sy-vline 
WA_V_TCJ41_STR-GRPFS sy-vline 
WA_V_TCJ41_STR-GRPGT sy-vline 
WA_V_TCJ41_STR-GRPFT sy-vline 
WA_V_TCJ41_STR-GRPGB sy-vline 
WA_V_TCJ41_STR-GRPFB sy-vline 
WA_V_TCJ41_STR-PARGR sy-vline 
WA_V_TCJ41_STR-ABSCH sy-vline 
WA_V_TCJ41_STR-URSCH sy-vline 
WA_V_TCJ41_STR-KOVOR sy-vline 
WA_V_TCJ41_STR-TXT sy-vline 
WA_V_TCJ41_STR-PROFI_TXT sy-vline 
WA_V_TCJ41_STR-PROFI_TXTP sy-vline 
WA_V_TCJ41_STR-KVEWE sy-vline 
WA_V_TCJ41_STR-KAPPL sy-vline 
WA_V_TCJ41_STR-KALSM sy-vline 
WA_V_TCJ41_STR-ZSCHL sy-vline 
WA_V_TCJ41_STR-APRFE sy-vline 
WA_V_TCJ41_STR-BERST sy-vline 
WA_V_TCJ41_STR-BERTR sy-vline 
WA_V_TCJ41_STR-BERKO sy-vline 
WA_V_TCJ41_STR-BERBU sy-vline 
WA_V_TCJ41_STR-SLWID sy-vline 
WA_V_TCJ41_STR-AUTOD sy-vline 
WA_V_TCJ41_STR-BPROF sy-vline 
WA_V_TCJ41_STR-PTEXT sy-vline 
WA_V_TCJ41_STR-TEXTA sy-vline 
WA_V_TCJ41_STR-ZTEHT sy-vline 
WA_V_TCJ41_STR-ALL_ACC sy-vline 
WA_V_TCJ41_STR-ALL_ACT sy-vline 
WA_V_TCJ41_STR-CHGKZ sy-vline 
WA_V_TCJ41_STR-FMPRF sy-vline 
WA_V_TCJ41_STR-ZSCHM sy-vline 
WA_V_TCJ41_STR-ZSCHM_TXT sy-vline 
WA_V_TCJ41_STR-BUKRS sy-vline 
WA_V_TCJ41_STR-GSBER sy-vline 
WA_V_TCJ41_STR-KOKRS sy-vline 
WA_V_TCJ41_STR-PRCTR sy-vline 
WA_V_TCJ41_STR-WAERS sy-vline 
WA_V_TCJ41_STR-BESTA sy-vline 
WA_V_TCJ41_STR-SCOPE sy-vline 
WA_V_TCJ41_STR-XSTAT sy-vline 
WA_V_TCJ41_STR-AEBLG sy-vline 
WA_V_TCJ41_STR-PRART sy-vline 
WA_V_TCJ41_STR-BPPROFL sy-vline 
WA_V_TCJ41_STR-EINGR sy-vline 
WA_V_TCJ41_STR-EINTB sy-vline 
WA_V_TCJ41_STR-IMPRF sy-vline 
WA_V_TCJ41_STR-THPROFILE sy-vline 
WA_V_TCJ41_STR-THPROF_TXT sy-vline 
WA_V_TCJ41_STR-SCPRF sy-vline 
WA_V_TCJ41_STR-SCPRF_TEXT sy-vline 
WA_V_TCJ41_STR-CLALL sy-vline 
WA_V_TCJ41_STR-CLFAK sy-vline 
WA_V_TCJ41_STR-CLKNT sy-vline 
WA_V_TCJ41_STR-VSPRF sy-vline 
WA_V_TCJ41_STR-LSTKP sy-vline 
WA_V_TCJ41_STR-EINGE sy-vline 
WA_V_TCJ41_STR-EINTE sy-vline 
WA_V_TCJ41_STR-PPROF sy-vline 
WA_V_TCJ41_STR-PLINT sy-vline 
WA_V_TCJ41_STR-GRVST sy-vline 
WA_V_TCJ41_STR-XROOT sy-vline 
WA_V_TCJ41_STR-VALID sy-vline 
WA_V_TCJ41_STR-SUBST sy-vline 
WA_V_TCJ41_STR-KZBWS sy-vline 
WA_V_TCJ41_STR-AUTOVAL sy-vline 
WA_V_TCJ41_STR-AUTOSUB sy-vline 
WA_V_TCJ41_STR-SMPRF sy-vline 
WA_V_TCJ41_STR-SMPROF_TXT sy-vline 
WA_V_TCJ41_STR-HY_SEARCH1 sy-vline 
WA_V_TCJ41_STR-HY_SEARCH2 sy-vline 
WA_V_TCJ41_STR-HY_SEARCH3 sy-vline 
WA_V_TCJ41_STR-FLGVRG sy-vline 
WA_V_TCJ41_STR-GRTOP sy-vline 
WA_V_TCJ41_STR-KZERB sy-vline 
WA_V_TCJ41_STR-PGPRF sy-vline 
WA_V_TCJ41_STR-PGPRF_TXT sy-vline 
WA_V_TCJ41_STR-STRAT sy-vline 
WA_V_TCJ41_STR-STRAT_TXT sy-vline 
WA_V_TCJ41_STR-VALID_PSP sy-vline 
WA_V_TCJ41_STR-VALTEXT sy-vline 
WA_V_TCJ41_STR-SUBST_PSP sy-vline 
WA_V_TCJ41_STR-SUBSTEXT sy-vline 
WA_V_TCJ41_STR-SCHTYP sy-vline 
WA_V_TCJ41_STR-FUNC_AREA sy-vline 
WA_V_TCJ41_STR-FKBTX sy-vline 
WA_V_TCJ41_STR-VKORG sy-vline 
WA_V_TCJ41_STR-VKORGTXT sy-vline 
WA_V_TCJ41_STR-SPART sy-vline 
WA_V_TCJ41_STR-SPARTTXT sy-vline 
WA_V_TCJ41_STR-DPPPROF sy-vline 
WA_V_TCJ41_STR-VTWEG sy-vline 
WA_V_TCJ41_STR-VTWEGTXT sy-vline 
WA_V_TCJ41_STR-IPPS sy-vline 
WA_V_TCJ41_STR-PSACL sy-vline 
WA_V_TCJ41_STR-PSACLH sy-vline 
WA_V_TCJ41_STR-TEMPLATE_KEY sy-vline 
WA_V_TCJ41_STR-SLWID_PROJ sy-vline      INTO ld_text SEPARATED BY SPACE.

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