ABAP Select data from SAP table PFM_1TCNT 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 PFM_1TCNT 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 PFM_1TCNT. 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 PFM_1TCNT 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_PFM_1TCNT TYPE STANDARD TABLE OF PFM_1TCNT,
      WA_PFM_1TCNT TYPE PFM_1TCNT,
      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: <PFM_1TCNT> TYPE PFM_1TCNT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PFM_1TCNT
*  INTO TABLE @DATA(IT_PFM_1TCNT2).
*--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_PFM_1TCNT INDEX 1 INTO DATA(WA_PFM_1TCNT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PFM_1TCNT ASSIGNING <PFM_1TCNT>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<PFM_1TCNT>-MANDT = 1.
<PFM_1TCNT>-EMP = 1.
<PFM_1TCNT>-CNT = 1.
<PFM_1TCNT>-FCT = 1.
<PFM_1TCNT>-TCT = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PFM_1TCNT-ENT, sy-vline,
WA_PFM_1TCNT-TCE, sy-vline,
WA_PFM_1TCNT-OB1, sy-vline,
WA_PFM_1TCNT-DTI, sy-vline,
WA_PFM_1TCNT-DTF, sy-vline,
WA_PFM_1TCNT-VAI, sy-vline.
ENDLOOP. *Add any further fields from structure WA_PFM_1TCNT 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_PFM_1TCNT 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_PFM_1TCNT INTO WA_PFM_1TCNT. *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 CNT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_PFM_1TCNT-CNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PFM_1TCNT-CNT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit FIPEX, internal->external for field ECO CALL FUNCTION 'CONVERSION_EXIT_FIPEX_OUTPUT' EXPORTING input = WA_PFM_1TCNT-ECO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PFM_1TCNT-ECO.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field ANO CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_PFM_1TCNT-ANO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PFM_1TCNT-ANO.
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_PFM_1TCNT_STR,
MANDT TYPE STRING,
EMP TYPE STRING,
CNT TYPE STRING,
FCT TYPE STRING,
TCT TYPE STRING,
ENT TYPE STRING,
TCE TYPE STRING,
OB1 TYPE STRING,
DTI TYPE STRING,
DTF TYPE STRING,
VAI TYPE STRING,
VAL TYPE STRING,
MOE TYPE STRING,
IVA TYPE STRING,
CMA TYPE STRING,
NVT TYPE STRING,
DVT TYPE STRING,
D1P TYPE STRING,
GTN TYPE STRING,
GRP TYPE STRING,
GTM TYPE STRING,
ATN TYPE STRING,
ARP TYPE STRING,
ATM TYPE STRING,
OBS TYPE STRING,
VCA TYPE STRING,
VCO TYPE STRING,
VLI TYPE STRING,
VFD TYPE STRING,
NAN TYPE STRING,
VN1 TYPE STRING,
VN2 TYPE STRING,
VN3 TYPE STRING,
VN4 TYPE STRING,
ORG TYPE STRING,
ECO TYPE STRING,
PLA TYPE STRING,
DSCR TYPE STRING,
FCT_X TYPE STRING,
VPG TYPE STRING,
DES TYPE STRING,
EMD TYPE STRING,
GAJ TYPE STRING,
GPG TYPE STRING,
GUT TYPE STRING,
GPC TYPE STRING,
PGA TYPE STRING,
GAA TYPE STRING,
VAA TYPE STRING,
GLI TYPE STRING,
ANO TYPE STRING,
CTE TYPE STRING,
OB2 TYPE STRING,
OB3 TYPE STRING,
OB4 TYPE STRING,
OB5 TYPE STRING,
INTC TYPE STRING,
US01 TYPE STRING,
DT01 TYPE STRING,
HR01 TYPE STRING,
US02 TYPE STRING,
DT02 TYPE STRING,
HR02 TYPE STRING,
DAPI TYPE STRING,
CV1 TYPE STRING,
CV2 TYPE STRING,
DRD TYPE STRING,
DRP TYPE STRING,
DLC TYPE STRING,
DCAF TYPE STRING,
FCH TYPE STRING,END OF T_EKKO_STR. DATA: WA_PFM_1TCNT_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_PFM_1TCNT_STR-MANDT sy-vline
WA_PFM_1TCNT_STR-EMP sy-vline
WA_PFM_1TCNT_STR-CNT sy-vline
WA_PFM_1TCNT_STR-FCT sy-vline
WA_PFM_1TCNT_STR-TCT sy-vline
WA_PFM_1TCNT_STR-ENT sy-vline
WA_PFM_1TCNT_STR-TCE sy-vline
WA_PFM_1TCNT_STR-OB1 sy-vline
WA_PFM_1TCNT_STR-DTI sy-vline
WA_PFM_1TCNT_STR-DTF sy-vline
WA_PFM_1TCNT_STR-VAI sy-vline
WA_PFM_1TCNT_STR-VAL sy-vline
WA_PFM_1TCNT_STR-MOE sy-vline
WA_PFM_1TCNT_STR-IVA sy-vline
WA_PFM_1TCNT_STR-CMA sy-vline
WA_PFM_1TCNT_STR-NVT sy-vline
WA_PFM_1TCNT_STR-DVT sy-vline
WA_PFM_1TCNT_STR-D1P sy-vline
WA_PFM_1TCNT_STR-GTN sy-vline
WA_PFM_1TCNT_STR-GRP sy-vline
WA_PFM_1TCNT_STR-GTM sy-vline
WA_PFM_1TCNT_STR-ATN sy-vline
WA_PFM_1TCNT_STR-ARP sy-vline
WA_PFM_1TCNT_STR-ATM sy-vline
WA_PFM_1TCNT_STR-OBS sy-vline
WA_PFM_1TCNT_STR-VCA sy-vline
WA_PFM_1TCNT_STR-VCO sy-vline
WA_PFM_1TCNT_STR-VLI sy-vline
WA_PFM_1TCNT_STR-VFD sy-vline
WA_PFM_1TCNT_STR-NAN sy-vline
WA_PFM_1TCNT_STR-VN1 sy-vline
WA_PFM_1TCNT_STR-VN2 sy-vline
WA_PFM_1TCNT_STR-VN3 sy-vline
WA_PFM_1TCNT_STR-VN4 sy-vline
WA_PFM_1TCNT_STR-ORG sy-vline
WA_PFM_1TCNT_STR-ECO sy-vline
WA_PFM_1TCNT_STR-PLA sy-vline
WA_PFM_1TCNT_STR-DSCR sy-vline
WA_PFM_1TCNT_STR-FCT_X sy-vline
WA_PFM_1TCNT_STR-VPG sy-vline
WA_PFM_1TCNT_STR-DES sy-vline
WA_PFM_1TCNT_STR-EMD sy-vline
WA_PFM_1TCNT_STR-GAJ sy-vline
WA_PFM_1TCNT_STR-GPG sy-vline
WA_PFM_1TCNT_STR-GUT sy-vline
WA_PFM_1TCNT_STR-GPC sy-vline
WA_PFM_1TCNT_STR-PGA sy-vline
WA_PFM_1TCNT_STR-GAA sy-vline
WA_PFM_1TCNT_STR-VAA sy-vline
WA_PFM_1TCNT_STR-GLI sy-vline
WA_PFM_1TCNT_STR-ANO sy-vline
WA_PFM_1TCNT_STR-CTE sy-vline
WA_PFM_1TCNT_STR-OB2 sy-vline
WA_PFM_1TCNT_STR-OB3 sy-vline
WA_PFM_1TCNT_STR-OB4 sy-vline
WA_PFM_1TCNT_STR-OB5 sy-vline
WA_PFM_1TCNT_STR-INTC sy-vline
WA_PFM_1TCNT_STR-US01 sy-vline
WA_PFM_1TCNT_STR-DT01 sy-vline
WA_PFM_1TCNT_STR-HR01 sy-vline
WA_PFM_1TCNT_STR-US02 sy-vline
WA_PFM_1TCNT_STR-DT02 sy-vline
WA_PFM_1TCNT_STR-HR02 sy-vline
WA_PFM_1TCNT_STR-DAPI sy-vline
WA_PFM_1TCNT_STR-CV1 sy-vline
WA_PFM_1TCNT_STR-CV2 sy-vline
WA_PFM_1TCNT_STR-DRD sy-vline
WA_PFM_1TCNT_STR-DRP sy-vline
WA_PFM_1TCNT_STR-DLC sy-vline
WA_PFM_1TCNT_STR-DCAF sy-vline
WA_PFM_1TCNT_STR-FCH sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.