ABAP Select data from SAP table 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 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 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 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_TCJ41 TYPE STANDARD TABLE OF TCJ41,
      WA_TCJ41 TYPE 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: <TCJ41> TYPE TCJ41.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TCJ41
*  INTO TABLE @DATA(IT_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_TCJ41 INDEX 1 INTO DATA(WA_TCJ412).


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

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

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TCJ41-EWPLF, sy-vline,
  WA_TCJ41-PLNAW, sy-vline,
  WA_TCJ41-VPROF, sy-vline,
  WA_TCJ41-NZANZ, sy-vline,
  WA_TCJ41-IDENT, sy-vline,
  WA_TCJ41-ABGSL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_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_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_TCJ41 INTO WA_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_TCJ41-APROF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TCJ41-APROF.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SCOPE, internal->external for field SCOPE
CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT'
  EXPORTING
    input =                      WA_TCJ41-SCOPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_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_TCJ41_STR, 
MANDT TYPE STRING,
PROFIDPROJ TYPE STRING,
WERKS TYPE STRING,
KALID TYPE STRING,
VGPLF TYPE STRING,
EWPLF TYPE STRING,
PLNAW 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,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
APROF TYPE STRING,
APRFE TYPE STRING,
GRPGS TYPE STRING,
GRPFS TYPE STRING,
GRPGT TYPE STRING,
GRPFT TYPE STRING,
GRPGB TYPE STRING,
GRPFB TYPE STRING,
BERST TYPE STRING,
BERTR TYPE STRING,
BERKO TYPE STRING,
BERBU TYPE STRING,
SLWID TYPE STRING,
AUTOD TYPE STRING,
BPROF TYPE STRING,
ZTEHT TYPE STRING,
ALL_ACC TYPE STRING,
ALL_ACT TYPE STRING,
BUKRS TYPE STRING,
GSBER TYPE STRING,
KOKRS TYPE STRING,
PRCTR TYPE STRING,
WAERS TYPE STRING,
CHGKZ TYPE STRING,
BESTA TYPE STRING,
SCOPE TYPE STRING,
XSTAT TYPE STRING,
AEBLG TYPE STRING,
PRART TYPE STRING,
BPPROFL TYPE STRING,
ZSCHM TYPE STRING,
EINGR TYPE STRING,
EINTB TYPE STRING,
IMPRF TYPE STRING,
THPROFILE TYPE STRING,
SCPRF TYPE STRING,
CLALL TYPE STRING,
CLFAK TYPE STRING,
CLKNT TYPE STRING,
VSPRF TYPE STRING,
FMPRF TYPE STRING,
LSTKP TYPE STRING,
EINGE TYPE STRING,
EINTE TYPE STRING,
PPROF TYPE STRING,
PLINT TYPE STRING,
RESZ1 TYPE STRING,
RESZ2 TYPE STRING,
GRVST TYPE STRING,
XROOT TYPE STRING,
VALID TYPE STRING,
VALID_PSP TYPE STRING,
AUTOVAL TYPE STRING,
SUBST TYPE STRING,
SUBST_PSP TYPE STRING,
AUTOSUB TYPE STRING,
KZBWS TYPE STRING,
SMPRF TYPE STRING,
HY_SEARCH1 TYPE STRING,
HY_SEARCH2 TYPE STRING,
HY_SEARCH3 TYPE STRING,
FLGVRG TYPE STRING,
GRTOP TYPE STRING,
PGPRF TYPE STRING,
KZERB TYPE STRING,
STRAT TYPE STRING,
PARGR TYPE STRING,
SCHTYP TYPE STRING,
FUNC_AREA TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
DPPPROF TYPE STRING,
VPKSTU TYPE STRING,
EXEC_PROFILE 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_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_TCJ41_STR-MANDT sy-vline 
WA_TCJ41_STR-PROFIDPROJ sy-vline 
WA_TCJ41_STR-WERKS sy-vline 
WA_TCJ41_STR-KALID sy-vline 
WA_TCJ41_STR-VGPLF sy-vline 
WA_TCJ41_STR-EWPLF sy-vline 
WA_TCJ41_STR-PLNAW sy-vline 
WA_TCJ41_STR-VPROF sy-vline 
WA_TCJ41_STR-NZANZ sy-vline 
WA_TCJ41_STR-IDENT sy-vline 
WA_TCJ41_STR-ABGSL sy-vline 
WA_TCJ41_STR-LEVELS sy-vline 
WA_TCJ41_STR-ZUORD sy-vline 
WA_TCJ41_STR-TRMEQ sy-vline 
WA_TCJ41_STR-STSPD sy-vline 
WA_TCJ41_STR-STSPR sy-vline 
WA_TCJ41_STR-KVEWE sy-vline 
WA_TCJ41_STR-KAPPL sy-vline 
WA_TCJ41_STR-KALSM sy-vline 
WA_TCJ41_STR-ZSCHL sy-vline 
WA_TCJ41_STR-APROF sy-vline 
WA_TCJ41_STR-APRFE sy-vline 
WA_TCJ41_STR-GRPGS sy-vline 
WA_TCJ41_STR-GRPFS sy-vline 
WA_TCJ41_STR-GRPGT sy-vline 
WA_TCJ41_STR-GRPFT sy-vline 
WA_TCJ41_STR-GRPGB sy-vline 
WA_TCJ41_STR-GRPFB sy-vline 
WA_TCJ41_STR-BERST sy-vline 
WA_TCJ41_STR-BERTR sy-vline 
WA_TCJ41_STR-BERKO sy-vline 
WA_TCJ41_STR-BERBU sy-vline 
WA_TCJ41_STR-SLWID sy-vline 
WA_TCJ41_STR-AUTOD sy-vline 
WA_TCJ41_STR-BPROF sy-vline 
WA_TCJ41_STR-ZTEHT sy-vline 
WA_TCJ41_STR-ALL_ACC sy-vline 
WA_TCJ41_STR-ALL_ACT sy-vline 
WA_TCJ41_STR-BUKRS sy-vline 
WA_TCJ41_STR-GSBER sy-vline 
WA_TCJ41_STR-KOKRS sy-vline 
WA_TCJ41_STR-PRCTR sy-vline 
WA_TCJ41_STR-WAERS sy-vline 
WA_TCJ41_STR-CHGKZ sy-vline 
WA_TCJ41_STR-BESTA sy-vline 
WA_TCJ41_STR-SCOPE sy-vline 
WA_TCJ41_STR-XSTAT sy-vline 
WA_TCJ41_STR-AEBLG sy-vline 
WA_TCJ41_STR-PRART sy-vline 
WA_TCJ41_STR-BPPROFL sy-vline 
WA_TCJ41_STR-ZSCHM sy-vline 
WA_TCJ41_STR-EINGR sy-vline 
WA_TCJ41_STR-EINTB sy-vline 
WA_TCJ41_STR-IMPRF sy-vline 
WA_TCJ41_STR-THPROFILE sy-vline 
WA_TCJ41_STR-SCPRF sy-vline 
WA_TCJ41_STR-CLALL sy-vline 
WA_TCJ41_STR-CLFAK sy-vline 
WA_TCJ41_STR-CLKNT sy-vline 
WA_TCJ41_STR-VSPRF sy-vline 
WA_TCJ41_STR-FMPRF sy-vline 
WA_TCJ41_STR-LSTKP sy-vline 
WA_TCJ41_STR-EINGE sy-vline 
WA_TCJ41_STR-EINTE sy-vline 
WA_TCJ41_STR-PPROF sy-vline 
WA_TCJ41_STR-PLINT sy-vline 
WA_TCJ41_STR-RESZ1 sy-vline 
WA_TCJ41_STR-RESZ2 sy-vline 
WA_TCJ41_STR-GRVST sy-vline 
WA_TCJ41_STR-XROOT sy-vline 
WA_TCJ41_STR-VALID sy-vline 
WA_TCJ41_STR-VALID_PSP sy-vline 
WA_TCJ41_STR-AUTOVAL sy-vline 
WA_TCJ41_STR-SUBST sy-vline 
WA_TCJ41_STR-SUBST_PSP sy-vline 
WA_TCJ41_STR-AUTOSUB sy-vline 
WA_TCJ41_STR-KZBWS sy-vline 
WA_TCJ41_STR-SMPRF sy-vline 
WA_TCJ41_STR-HY_SEARCH1 sy-vline 
WA_TCJ41_STR-HY_SEARCH2 sy-vline 
WA_TCJ41_STR-HY_SEARCH3 sy-vline 
WA_TCJ41_STR-FLGVRG sy-vline 
WA_TCJ41_STR-GRTOP sy-vline 
WA_TCJ41_STR-PGPRF sy-vline 
WA_TCJ41_STR-KZERB sy-vline 
WA_TCJ41_STR-STRAT sy-vline 
WA_TCJ41_STR-PARGR sy-vline 
WA_TCJ41_STR-SCHTYP sy-vline 
WA_TCJ41_STR-FUNC_AREA sy-vline 
WA_TCJ41_STR-VKORG sy-vline 
WA_TCJ41_STR-VTWEG sy-vline 
WA_TCJ41_STR-SPART sy-vline 
WA_TCJ41_STR-DPPPROF sy-vline 
WA_TCJ41_STR-VPKSTU sy-vline 
WA_TCJ41_STR-EXEC_PROFILE sy-vline 
WA_TCJ41_STR-IPPS sy-vline 
WA_TCJ41_STR-PSACL sy-vline 
WA_TCJ41_STR-PSACLH sy-vline 
WA_TCJ41_STR-TEMPLATE_KEY sy-vline 
WA_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.