ABAP Select data from SAP table RCJ_PS_PPT 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 RCJ_PS_PPT 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 RCJ_PS_PPT. 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 RCJ_PS_PPT 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_RCJ_PS_PPT TYPE STANDARD TABLE OF RCJ_PS_PPT,
      WA_RCJ_PS_PPT TYPE RCJ_PS_PPT,
      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: <RCJ_PS_PPT> TYPE RCJ_PS_PPT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RCJ_PS_PPT
*  INTO TABLE @DATA(IT_RCJ_PS_PPT2).
*--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_RCJ_PS_PPT INDEX 1 INTO DATA(WA_RCJ_PS_PPT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RCJ_PS_PPT>-OBJEKTID = 1.
<RCJ_PS_PPT>-KURZTEXT = 1.
<RCJ_PS_PPT>-OBJEKTTYP = 1.
<RCJ_PS_PPT>-ECKST = 1.
<RCJ_PS_PPT>-ECKEN = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RCJ_PS_PPT-PROGST, sy-vline,
  WA_RCJ_PS_PPT-PROGEN, sy-vline,
  WA_RCJ_PS_PPT-TESTFR, sy-vline,
  WA_RCJ_PS_PPT-TEENFR, sy-vline,
  WA_RCJ_PS_PPT-TESTSP, sy-vline,
  WA_RCJ_PS_PPT-TEENSP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RCJ_PS_PPT 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_RCJ_PS_PPT 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_RCJ_PS_PPT INTO WA_RCJ_PS_PPT.


*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 CUNIT, internal->external for field EDAUEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RCJ_PS_PPT-EDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PPT-EDAUEH.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit NUMCV, internal->external for field VORNR
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RCJ_PS_PPT-VORNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PPT-VORNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field UVORN
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RCJ_PS_PPT-UVORN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PPT-UVORN.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit NUMCV, internal->external for field VORNRTN
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RCJ_PS_PPT-VORNRTN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PPT-VORNRTN.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field PSPNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_RCJ_PS_PPT-PSPNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PPT-PSPNR.
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_RCJ_PS_PPT_STR, 
OBJEKTID TYPE STRING,
KURZTEXT TYPE STRING,
OBJEKTTYP TYPE STRING,
ECKST TYPE STRING,
ECKEN TYPE STRING,
PROGST TYPE STRING,
PROGEN TYPE STRING,
TESTFR TYPE STRING,
TEENFR TYPE STRING,
TESTSP TYPE STRING,
TEENSP TYPE STRING,
TPSTFR TYPE STRING,
TPENFR TYPE STRING,
TPSTSP TYPE STRING,
TPENSP TYPE STRING,
ISTST TYPE STRING,
ISTEN TYPE STRING,
DATFS TYPE STRING,
DATSE TYPE STRING,
EDAUER TYPE STRING,
EDAUEH TYPE STRING,
PDAUER TYPE STRING,
PDAUEH TYPE STRING,
VDAUER TYPE STRING,
VDAUEH TYPE STRING,
IDAUER TYPE STRING,
IDAUEH TYPE STRING,
RDAUER TYPE STRING,
RDAUEH TYPE STRING,
ABARBD TYPE STRING,
EARBEI TYPE STRING,
EARBEH TYPE STRING,
PARBEI TYPE STRING,
PARBEH TYPE STRING,
VARBEI TYPE STRING,
VARBEH TYPE STRING,
IARBEI TYPE STRING,
IARBEH TYPE STRING,
RARBEI TYPE STRING,
RARBEH TYPE STRING,
ABARBA TYPE STRING,
USR00 TYPE STRING,
USR01 TYPE STRING,
USR02 TYPE STRING,
USR03 TYPE STRING,
USR04 TYPE STRING,
USE04 TYPE STRING,
USR05 TYPE STRING,
USE05 TYPE STRING,
USR06 TYPE STRING,
USE06 TYPE STRING,
USR07 TYPE STRING,
USE07 TYPE STRING,
USR08 TYPE STRING,
USR09 TYPE STRING,
USR10 TYPE STRING,
USR11 TYPE STRING,
VERNR TYPE STRING,
VERNA TYPE STRING,
ARBPL TYPE STRING,
PSPRI TYPE STRING,
STATXT TYPE STRING,
STUFE TYPE STRING,
FRUEHER TYPE STRING,
SPAETER TYPE STRING,
VERZUG TYPE STRING,
VORBEI TYPE STRING,
VEINH TYPE STRING,
WAERS TYPE STRING,
OWAERS TYPE STRING,
PUFGS TYPE STRING,
PUFFR TYPE STRING,
PUFGP TYPE STRING,
PUFFP TYPE STRING,
GESBR TYPE STRING,
PRCTR TYPE STRING,
SAKTO TYPE STRING,
KALID TYPE STRING,
WERKS TYPE STRING,
BUKRS TYPE STRING,
ASTNR TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
ABGSL TYPE STRING,
ZSCHM TYPE STRING,
PLAKZ TYPE STRING,
BELKZ TYPE STRING,
FAKKZ TYPE STRING,
PROKSTPLAN TYPE STRING,
PROKSTPLN2 TYPE STRING,
AUFKSTPLAN TYPE STRING,
AUFKSTPLN2 TYPE STRING,
PROERLPLAN TYPE STRING,
PROERLPLN2 TYPE STRING,
AUFERLPLAN TYPE STRING,
AUFERLPLN2 TYPE STRING,
KREDFINPLN TYPE STRING,
DEBFINPLN TYPE STRING,
BUDGET TYPE STRING,
FREIGABE TYPE STRING,
AUFTRANF TYPE STRING,
FESTPROBL TYPE STRING,
KSTOBLGES TYPE STRING,
ISTKOSTEN TYPE STRING,
ISTERLOESE TYPE STRING,
KZHLNG TYPE STRING,
DZHLNG TYPE STRING,
PROKSTPLAN_OC TYPE STRING,
PROKSTPLN2_OC TYPE STRING,
AUFKSTPLAN_OC TYPE STRING,
AUFKSTPLN2_OC TYPE STRING,
PROERLPLAN_OC TYPE STRING,
PROERLPLN2_OC TYPE STRING,
AUFERLPLAN_OC TYPE STRING,
AUFERLPLN2_OC TYPE STRING,
KREDFINPLN_OC TYPE STRING,
DEBFINPLN_OC TYPE STRING,
BUDGET_OC TYPE STRING,
FREIGABE_OC TYPE STRING,
AUFTRANF_OC TYPE STRING,
FESTPROBL_OC TYPE STRING,
KSTOBLGES_OC TYPE STRING,
ISTKOSTEN_OC TYPE STRING,
ISTERLOESE_OC TYPE STRING,
KZHLNG_OC TYPE STRING,
DZHLNG_OC TYPE STRING,
EV_PLAN_ORG1 TYPE STRING,
EV_ACT_ORG1 TYPE STRING,
EV_ACT_CORR1 TYPE STRING,
EV_PLAN_QUAN_ORG1 TYPE STRING,
EV_PLAN_QUAN_ORG1_UNIT TYPE STRING,
EV_ACT_QUAN_ORG1 TYPE STRING,
EV_ACT_QUAN_ORG1_UNIT TYPE STRING,
EV_ACT_QUAN_CORR1 TYPE STRING,
EV_ACT_QUAN_CORR1_UNIT TYPE STRING,
POC_PLAN_ORG_AGG1 TYPE STRING,
POC_PLAN_ORG_NAGG1 TYPE STRING,
POC_ACT_ORG_AGG1 TYPE STRING,
POC_ACT_ORG_NAGG1 TYPE STRING,
POC_ACT_CORR_AGG1 TYPE STRING,
POC_ACT_CORR_NAGG1 TYPE STRING,
EV_COST_VAR_ORG TYPE STRING,
EV_SCHED_VAR_ORG TYPE STRING,
EV_COST_INDX_ORG TYPE STRING,
EV_SCHED_INDX_ORG TYPE STRING,
EV_COST_VAR_CORR TYPE STRING,
EV_SCHED_VAR_CORR TYPE STRING,
EV_COST_INDX_CORR TYPE STRING,
EV_SCHED_INDX_CORR TYPE STRING,
EV_PLAN_ORG1_OC TYPE STRING,
EV_ACT_ORG1_OC TYPE STRING,
EV_ACT_CORR1_OC TYPE STRING,
EV_COST_VAR_ORG_OC TYPE STRING,
EV_SCHED_VAR_ORG_OC TYPE STRING,
EV_SCHED_VAR_CORR_OC TYPE STRING,
EV_COST_VAR_CORR_OC TYPE STRING,
STEUS TYPE STRING,
DABEA TYPE STRING,
BEAZE TYPE STRING,
PLIFZ TYPE STRING,
PRART TYPE STRING,
AENNR TYPE STRING,
ERSDA TYPE STRING,
ERNAM TYPE STRING,
LAEDA TYPE STRING,
AENAM TYPE STRING,
SYS_STTXT TYPE STRING,
USER_STTXT TYPE STRING,
OBJNR TYPE STRING,
GJAHR TYPE STRING,
PERIO TYPE STRING,
MEINH TYPE STRING,
PERIV TYPE STRING,
UNTRG TYPE STRING,
SEL TYPE STRING,
OBJEKTID_ONLY TYPE STRING,
OBJEKTID_WITH_A TYPE STRING,
TESTFRZ TYPE STRING,
TEENFRZ TYPE STRING,
TESTSPZ TYPE STRING,
TEENSPZ TYPE STRING,
TPSTFRZ TYPE STRING,
TPENFRZ TYPE STRING,
TPSTSPZ TYPE STRING,
TPENSPZ TYPE STRING,
ISTSTZ TYPE STRING,
ISTENZ TYPE STRING,
FPEDATE TYPE STRING,
FPETIME TYPE STRING,
FPPDATE TYPE STRING,
FPPTIME TYPE STRING,
FPESDATE TYPE STRING,
FPESTIME TYPE STRING,
FPPSDATE TYPE STRING,
FPPSTIME TYPE STRING,
ECKSTZ TYPE STRING,
ECKENZ TYPE STRING,
PROGSTZ TYPE STRING,
PROGENZ TYPE STRING,
EPANF TYPE STRING,
EPANZ TYPE STRING,
EPEND TYPE STRING,
EPENZ TYPE STRING,
EINSA TYPE STRING,
EINSE TYPE STRING,
EWSTD TYPE STRING,
EWSTDZ TYPE STRING,
EWEND TYPE STRING,
EWENDZ TYPE STRING,
EWSTA TYPE STRING,
EWSTE TYPE STRING,
ISBD TYPE STRING,
ISBZ TYPE STRING,
IEBD TYPE STRING,
IEBZ TYPE STRING,
PEDD TYPE STRING,
PEDZ TYPE STRING,
EINRUECK TYPE STRING,
TABIX TYPE STRING,
EXT_AUFNR TYPE STRING,
VORNR TYPE STRING,
UVORN TYPE STRING,
NETZ_TABIX TYPE STRING,
AUFNRDTN TYPE STRING,
VORNRTN TYPE STRING,
NETZ_STUFE TYPE STRING,
START_TN TYPE STRING,
CHART_ID TYPE STRING,
STD_SORT TYPE STRING,
AUFNRD TYPE STRING,
AUFPL TYPE STRING,
APLZL TYPE STRING,
AUFPT TYPE STRING,
APLZT TYPE STRING,
ROWNUMBER TYPE STRING,
PSIND TYPE STRING,
NWIND TYPE STRING,
FLIND TYPE STRING,
ACIND TYPE STRING,
VEIND TYPE STRING,
MSIND TYPE STRING,
CRIND TYPE STRING,
OBJECT TYPE STRING,
PSPNR TYPE STRING,
LOEKZ TYPE STRING,
LOEVM TYPE STRING,
KAPID TYPE STRING,
HAS_TEXT TYPE STRING,
FLG_VAB TYPE STRING,
DISPLAY TYPE STRING,
DB_READ TYPE STRING,
BOX_ID TYPE STRING,
NODE_ID TYPE STRING,
GRID_ID TYPE STRING,
CAL_ID TYPE STRING,
FLG_DISPLAY TYPE STRING,
FLG_COLAPSED TYPE STRING,
MARK_COPY TYPE STRING,
MARK TYPE STRING,
AUTYP TYPE STRING,
AUART TYPE STRING,
OWAER TYPE STRING,
AUSBLENDEN TYPE STRING,
EDIT_ID TYPE STRING,
EDIT_FLD TYPE STRING,
KALNR TYPE STRING,
NO_EDIT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RCJ_PS_PPT_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_RCJ_PS_PPT_STR-OBJEKTID sy-vline 
WA_RCJ_PS_PPT_STR-KURZTEXT sy-vline 
WA_RCJ_PS_PPT_STR-OBJEKTTYP sy-vline 
WA_RCJ_PS_PPT_STR-ECKST sy-vline 
WA_RCJ_PS_PPT_STR-ECKEN sy-vline 
WA_RCJ_PS_PPT_STR-PROGST sy-vline 
WA_RCJ_PS_PPT_STR-PROGEN sy-vline 
WA_RCJ_PS_PPT_STR-TESTFR sy-vline 
WA_RCJ_PS_PPT_STR-TEENFR sy-vline 
WA_RCJ_PS_PPT_STR-TESTSP sy-vline 
WA_RCJ_PS_PPT_STR-TEENSP sy-vline 
WA_RCJ_PS_PPT_STR-TPSTFR sy-vline 
WA_RCJ_PS_PPT_STR-TPENFR sy-vline 
WA_RCJ_PS_PPT_STR-TPSTSP sy-vline 
WA_RCJ_PS_PPT_STR-TPENSP sy-vline 
WA_RCJ_PS_PPT_STR-ISTST sy-vline 
WA_RCJ_PS_PPT_STR-ISTEN sy-vline 
WA_RCJ_PS_PPT_STR-DATFS sy-vline 
WA_RCJ_PS_PPT_STR-DATSE sy-vline 
WA_RCJ_PS_PPT_STR-EDAUER sy-vline 
WA_RCJ_PS_PPT_STR-EDAUEH sy-vline 
WA_RCJ_PS_PPT_STR-PDAUER sy-vline 
WA_RCJ_PS_PPT_STR-PDAUEH sy-vline 
WA_RCJ_PS_PPT_STR-VDAUER sy-vline 
WA_RCJ_PS_PPT_STR-VDAUEH sy-vline 
WA_RCJ_PS_PPT_STR-IDAUER sy-vline 
WA_RCJ_PS_PPT_STR-IDAUEH sy-vline 
WA_RCJ_PS_PPT_STR-RDAUER sy-vline 
WA_RCJ_PS_PPT_STR-RDAUEH sy-vline 
WA_RCJ_PS_PPT_STR-ABARBD sy-vline 
WA_RCJ_PS_PPT_STR-EARBEI sy-vline 
WA_RCJ_PS_PPT_STR-EARBEH sy-vline 
WA_RCJ_PS_PPT_STR-PARBEI sy-vline 
WA_RCJ_PS_PPT_STR-PARBEH sy-vline 
WA_RCJ_PS_PPT_STR-VARBEI sy-vline 
WA_RCJ_PS_PPT_STR-VARBEH sy-vline 
WA_RCJ_PS_PPT_STR-IARBEI sy-vline 
WA_RCJ_PS_PPT_STR-IARBEH sy-vline 
WA_RCJ_PS_PPT_STR-RARBEI sy-vline 
WA_RCJ_PS_PPT_STR-RARBEH sy-vline 
WA_RCJ_PS_PPT_STR-ABARBA sy-vline 
WA_RCJ_PS_PPT_STR-USR00 sy-vline 
WA_RCJ_PS_PPT_STR-USR01 sy-vline 
WA_RCJ_PS_PPT_STR-USR02 sy-vline 
WA_RCJ_PS_PPT_STR-USR03 sy-vline 
WA_RCJ_PS_PPT_STR-USR04 sy-vline 
WA_RCJ_PS_PPT_STR-USE04 sy-vline 
WA_RCJ_PS_PPT_STR-USR05 sy-vline 
WA_RCJ_PS_PPT_STR-USE05 sy-vline 
WA_RCJ_PS_PPT_STR-USR06 sy-vline 
WA_RCJ_PS_PPT_STR-USE06 sy-vline 
WA_RCJ_PS_PPT_STR-USR07 sy-vline 
WA_RCJ_PS_PPT_STR-USE07 sy-vline 
WA_RCJ_PS_PPT_STR-USR08 sy-vline 
WA_RCJ_PS_PPT_STR-USR09 sy-vline 
WA_RCJ_PS_PPT_STR-USR10 sy-vline 
WA_RCJ_PS_PPT_STR-USR11 sy-vline 
WA_RCJ_PS_PPT_STR-VERNR sy-vline 
WA_RCJ_PS_PPT_STR-VERNA sy-vline 
WA_RCJ_PS_PPT_STR-ARBPL sy-vline 
WA_RCJ_PS_PPT_STR-PSPRI sy-vline 
WA_RCJ_PS_PPT_STR-STATXT sy-vline 
WA_RCJ_PS_PPT_STR-STUFE sy-vline 
WA_RCJ_PS_PPT_STR-FRUEHER sy-vline 
WA_RCJ_PS_PPT_STR-SPAETER sy-vline 
WA_RCJ_PS_PPT_STR-VERZUG sy-vline 
WA_RCJ_PS_PPT_STR-VORBEI sy-vline 
WA_RCJ_PS_PPT_STR-VEINH sy-vline 
WA_RCJ_PS_PPT_STR-WAERS sy-vline 
WA_RCJ_PS_PPT_STR-OWAERS sy-vline 
WA_RCJ_PS_PPT_STR-PUFGS sy-vline 
WA_RCJ_PS_PPT_STR-PUFFR sy-vline 
WA_RCJ_PS_PPT_STR-PUFGP sy-vline 
WA_RCJ_PS_PPT_STR-PUFFP sy-vline 
WA_RCJ_PS_PPT_STR-GESBR sy-vline 
WA_RCJ_PS_PPT_STR-PRCTR sy-vline 
WA_RCJ_PS_PPT_STR-SAKTO sy-vline 
WA_RCJ_PS_PPT_STR-KALID sy-vline 
WA_RCJ_PS_PPT_STR-WERKS sy-vline 
WA_RCJ_PS_PPT_STR-BUKRS sy-vline 
WA_RCJ_PS_PPT_STR-ASTNR sy-vline 
WA_RCJ_PS_PPT_STR-KALSM sy-vline 
WA_RCJ_PS_PPT_STR-ZSCHL sy-vline 
WA_RCJ_PS_PPT_STR-ABGSL sy-vline 
WA_RCJ_PS_PPT_STR-ZSCHM sy-vline 
WA_RCJ_PS_PPT_STR-PLAKZ sy-vline 
WA_RCJ_PS_PPT_STR-BELKZ sy-vline 
WA_RCJ_PS_PPT_STR-FAKKZ sy-vline 
WA_RCJ_PS_PPT_STR-PROKSTPLAN sy-vline 
WA_RCJ_PS_PPT_STR-PROKSTPLN2 sy-vline 
WA_RCJ_PS_PPT_STR-AUFKSTPLAN sy-vline 
WA_RCJ_PS_PPT_STR-AUFKSTPLN2 sy-vline 
WA_RCJ_PS_PPT_STR-PROERLPLAN sy-vline 
WA_RCJ_PS_PPT_STR-PROERLPLN2 sy-vline 
WA_RCJ_PS_PPT_STR-AUFERLPLAN sy-vline 
WA_RCJ_PS_PPT_STR-AUFERLPLN2 sy-vline 
WA_RCJ_PS_PPT_STR-KREDFINPLN sy-vline 
WA_RCJ_PS_PPT_STR-DEBFINPLN sy-vline 
WA_RCJ_PS_PPT_STR-BUDGET sy-vline 
WA_RCJ_PS_PPT_STR-FREIGABE sy-vline 
WA_RCJ_PS_PPT_STR-AUFTRANF sy-vline 
WA_RCJ_PS_PPT_STR-FESTPROBL sy-vline 
WA_RCJ_PS_PPT_STR-KSTOBLGES sy-vline 
WA_RCJ_PS_PPT_STR-ISTKOSTEN sy-vline 
WA_RCJ_PS_PPT_STR-ISTERLOESE sy-vline 
WA_RCJ_PS_PPT_STR-KZHLNG sy-vline 
WA_RCJ_PS_PPT_STR-DZHLNG sy-vline 
WA_RCJ_PS_PPT_STR-PROKSTPLAN_OC sy-vline 
WA_RCJ_PS_PPT_STR-PROKSTPLN2_OC sy-vline 
WA_RCJ_PS_PPT_STR-AUFKSTPLAN_OC sy-vline 
WA_RCJ_PS_PPT_STR-AUFKSTPLN2_OC sy-vline 
WA_RCJ_PS_PPT_STR-PROERLPLAN_OC sy-vline 
WA_RCJ_PS_PPT_STR-PROERLPLN2_OC sy-vline 
WA_RCJ_PS_PPT_STR-AUFERLPLAN_OC sy-vline 
WA_RCJ_PS_PPT_STR-AUFERLPLN2_OC sy-vline 
WA_RCJ_PS_PPT_STR-KREDFINPLN_OC sy-vline 
WA_RCJ_PS_PPT_STR-DEBFINPLN_OC sy-vline 
WA_RCJ_PS_PPT_STR-BUDGET_OC sy-vline 
WA_RCJ_PS_PPT_STR-FREIGABE_OC sy-vline 
WA_RCJ_PS_PPT_STR-AUFTRANF_OC sy-vline 
WA_RCJ_PS_PPT_STR-FESTPROBL_OC sy-vline 
WA_RCJ_PS_PPT_STR-KSTOBLGES_OC sy-vline 
WA_RCJ_PS_PPT_STR-ISTKOSTEN_OC sy-vline 
WA_RCJ_PS_PPT_STR-ISTERLOESE_OC sy-vline 
WA_RCJ_PS_PPT_STR-KZHLNG_OC sy-vline 
WA_RCJ_PS_PPT_STR-DZHLNG_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_PLAN_ORG1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_ORG1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_CORR1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_PLAN_QUAN_ORG1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_PLAN_QUAN_ORG1_UNIT sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_QUAN_ORG1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_QUAN_ORG1_UNIT sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_QUAN_CORR1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_QUAN_CORR1_UNIT sy-vline 
WA_RCJ_PS_PPT_STR-POC_PLAN_ORG_AGG1 sy-vline 
WA_RCJ_PS_PPT_STR-POC_PLAN_ORG_NAGG1 sy-vline 
WA_RCJ_PS_PPT_STR-POC_ACT_ORG_AGG1 sy-vline 
WA_RCJ_PS_PPT_STR-POC_ACT_ORG_NAGG1 sy-vline 
WA_RCJ_PS_PPT_STR-POC_ACT_CORR_AGG1 sy-vline 
WA_RCJ_PS_PPT_STR-POC_ACT_CORR_NAGG1 sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_VAR_ORG sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_VAR_ORG sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_INDX_ORG sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_INDX_ORG sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_VAR_CORR sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_VAR_CORR sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_INDX_CORR sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_INDX_CORR sy-vline 
WA_RCJ_PS_PPT_STR-EV_PLAN_ORG1_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_ORG1_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_ACT_CORR1_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_VAR_ORG_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_VAR_ORG_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_SCHED_VAR_CORR_OC sy-vline 
WA_RCJ_PS_PPT_STR-EV_COST_VAR_CORR_OC sy-vline 
WA_RCJ_PS_PPT_STR-STEUS sy-vline 
WA_RCJ_PS_PPT_STR-DABEA sy-vline 
WA_RCJ_PS_PPT_STR-BEAZE sy-vline 
WA_RCJ_PS_PPT_STR-PLIFZ sy-vline 
WA_RCJ_PS_PPT_STR-PRART sy-vline 
WA_RCJ_PS_PPT_STR-AENNR sy-vline 
WA_RCJ_PS_PPT_STR-ERSDA sy-vline 
WA_RCJ_PS_PPT_STR-ERNAM sy-vline 
WA_RCJ_PS_PPT_STR-LAEDA sy-vline 
WA_RCJ_PS_PPT_STR-AENAM sy-vline 
WA_RCJ_PS_PPT_STR-SYS_STTXT sy-vline 
WA_RCJ_PS_PPT_STR-USER_STTXT sy-vline 
WA_RCJ_PS_PPT_STR-OBJNR sy-vline 
WA_RCJ_PS_PPT_STR-GJAHR sy-vline 
WA_RCJ_PS_PPT_STR-PERIO sy-vline 
WA_RCJ_PS_PPT_STR-MEINH sy-vline 
WA_RCJ_PS_PPT_STR-PERIV sy-vline 
WA_RCJ_PS_PPT_STR-UNTRG sy-vline 
WA_RCJ_PS_PPT_STR-SEL sy-vline 
WA_RCJ_PS_PPT_STR-OBJEKTID_ONLY sy-vline 
WA_RCJ_PS_PPT_STR-OBJEKTID_WITH_A sy-vline 
WA_RCJ_PS_PPT_STR-TESTFRZ sy-vline 
WA_RCJ_PS_PPT_STR-TEENFRZ sy-vline 
WA_RCJ_PS_PPT_STR-TESTSPZ sy-vline 
WA_RCJ_PS_PPT_STR-TEENSPZ sy-vline 
WA_RCJ_PS_PPT_STR-TPSTFRZ sy-vline 
WA_RCJ_PS_PPT_STR-TPENFRZ sy-vline 
WA_RCJ_PS_PPT_STR-TPSTSPZ sy-vline 
WA_RCJ_PS_PPT_STR-TPENSPZ sy-vline 
WA_RCJ_PS_PPT_STR-ISTSTZ sy-vline 
WA_RCJ_PS_PPT_STR-ISTENZ sy-vline 
WA_RCJ_PS_PPT_STR-FPEDATE sy-vline 
WA_RCJ_PS_PPT_STR-FPETIME sy-vline 
WA_RCJ_PS_PPT_STR-FPPDATE sy-vline 
WA_RCJ_PS_PPT_STR-FPPTIME sy-vline 
WA_RCJ_PS_PPT_STR-FPESDATE sy-vline 
WA_RCJ_PS_PPT_STR-FPESTIME sy-vline 
WA_RCJ_PS_PPT_STR-FPPSDATE sy-vline 
WA_RCJ_PS_PPT_STR-FPPSTIME sy-vline 
WA_RCJ_PS_PPT_STR-ECKSTZ sy-vline 
WA_RCJ_PS_PPT_STR-ECKENZ sy-vline 
WA_RCJ_PS_PPT_STR-PROGSTZ sy-vline 
WA_RCJ_PS_PPT_STR-PROGENZ sy-vline 
WA_RCJ_PS_PPT_STR-EPANF sy-vline 
WA_RCJ_PS_PPT_STR-EPANZ sy-vline 
WA_RCJ_PS_PPT_STR-EPEND sy-vline 
WA_RCJ_PS_PPT_STR-EPENZ sy-vline 
WA_RCJ_PS_PPT_STR-EINSA sy-vline 
WA_RCJ_PS_PPT_STR-EINSE sy-vline 
WA_RCJ_PS_PPT_STR-EWSTD sy-vline 
WA_RCJ_PS_PPT_STR-EWSTDZ sy-vline 
WA_RCJ_PS_PPT_STR-EWEND sy-vline 
WA_RCJ_PS_PPT_STR-EWENDZ sy-vline 
WA_RCJ_PS_PPT_STR-EWSTA sy-vline 
WA_RCJ_PS_PPT_STR-EWSTE sy-vline 
WA_RCJ_PS_PPT_STR-ISBD sy-vline 
WA_RCJ_PS_PPT_STR-ISBZ sy-vline 
WA_RCJ_PS_PPT_STR-IEBD sy-vline 
WA_RCJ_PS_PPT_STR-IEBZ sy-vline 
WA_RCJ_PS_PPT_STR-PEDD sy-vline 
WA_RCJ_PS_PPT_STR-PEDZ sy-vline 
WA_RCJ_PS_PPT_STR-EINRUECK sy-vline 
WA_RCJ_PS_PPT_STR-TABIX sy-vline 
WA_RCJ_PS_PPT_STR-EXT_AUFNR sy-vline 
WA_RCJ_PS_PPT_STR-VORNR sy-vline 
WA_RCJ_PS_PPT_STR-UVORN sy-vline 
WA_RCJ_PS_PPT_STR-NETZ_TABIX sy-vline 
WA_RCJ_PS_PPT_STR-AUFNRDTN sy-vline 
WA_RCJ_PS_PPT_STR-VORNRTN sy-vline 
WA_RCJ_PS_PPT_STR-NETZ_STUFE sy-vline 
WA_RCJ_PS_PPT_STR-START_TN sy-vline 
WA_RCJ_PS_PPT_STR-CHART_ID sy-vline 
WA_RCJ_PS_PPT_STR-STD_SORT sy-vline 
WA_RCJ_PS_PPT_STR-AUFNRD sy-vline 
WA_RCJ_PS_PPT_STR-AUFPL sy-vline 
WA_RCJ_PS_PPT_STR-APLZL sy-vline 
WA_RCJ_PS_PPT_STR-AUFPT sy-vline 
WA_RCJ_PS_PPT_STR-APLZT sy-vline 
WA_RCJ_PS_PPT_STR-ROWNUMBER sy-vline 
WA_RCJ_PS_PPT_STR-PSIND sy-vline 
WA_RCJ_PS_PPT_STR-NWIND sy-vline 
WA_RCJ_PS_PPT_STR-FLIND sy-vline 
WA_RCJ_PS_PPT_STR-ACIND sy-vline 
WA_RCJ_PS_PPT_STR-VEIND sy-vline 
WA_RCJ_PS_PPT_STR-MSIND sy-vline 
WA_RCJ_PS_PPT_STR-CRIND sy-vline 
WA_RCJ_PS_PPT_STR-OBJECT sy-vline 
WA_RCJ_PS_PPT_STR-PSPNR sy-vline 
WA_RCJ_PS_PPT_STR-LOEKZ sy-vline 
WA_RCJ_PS_PPT_STR-LOEVM sy-vline 
WA_RCJ_PS_PPT_STR-KAPID sy-vline 
WA_RCJ_PS_PPT_STR-HAS_TEXT sy-vline 
WA_RCJ_PS_PPT_STR-FLG_VAB sy-vline 
WA_RCJ_PS_PPT_STR-DISPLAY sy-vline 
WA_RCJ_PS_PPT_STR-DB_READ sy-vline 
WA_RCJ_PS_PPT_STR-BOX_ID sy-vline 
WA_RCJ_PS_PPT_STR-NODE_ID sy-vline 
WA_RCJ_PS_PPT_STR-GRID_ID sy-vline 
WA_RCJ_PS_PPT_STR-CAL_ID sy-vline 
WA_RCJ_PS_PPT_STR-FLG_DISPLAY sy-vline 
WA_RCJ_PS_PPT_STR-FLG_COLAPSED sy-vline 
WA_RCJ_PS_PPT_STR-MARK_COPY sy-vline 
WA_RCJ_PS_PPT_STR-MARK sy-vline 
WA_RCJ_PS_PPT_STR-AUTYP sy-vline 
WA_RCJ_PS_PPT_STR-AUART sy-vline 
WA_RCJ_PS_PPT_STR-OWAER sy-vline 
WA_RCJ_PS_PPT_STR-AUSBLENDEN sy-vline 
WA_RCJ_PS_PPT_STR-EDIT_ID sy-vline 
WA_RCJ_PS_PPT_STR-EDIT_FLD sy-vline 
WA_RCJ_PS_PPT_STR-KALNR sy-vline 
WA_RCJ_PS_PPT_STR-NO_EDIT sy-vline      INTO ld_text SEPARATED BY SPACE.

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