ABAP Select data from SAP table RCJ_PS_PLAN 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_PLAN 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_PLAN. 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_PLAN 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_PLAN TYPE STANDARD TABLE OF RCJ_PS_PLAN,
      WA_RCJ_PS_PLAN TYPE RCJ_PS_PLAN,
      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_PLAN> TYPE RCJ_PS_PLAN.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RCJ_PS_PLAN
*  INTO TABLE @DATA(IT_RCJ_PS_PLAN2).
*--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_PLAN INDEX 1 INTO DATA(WA_RCJ_PS_PLAN2).


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

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

ENDLOOP.

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

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


*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_PLAN-EDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-PDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-VDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-IDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-RDAUEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-EARBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-PARBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-VARBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-IARBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-RARBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-USE04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-USE05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-VEINH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-PRCTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-SAKTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-EV_PLAN_QUAN_ORG1_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-EV_ACT_QUAN_ORG1_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-EV_ACT_QUAN_CORR1_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-BEAZE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-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_PLAN-AENNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RCJ_PS_PLAN-AENNR.
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_PLAN_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,END OF T_EKKO_STR.
DATA: WA_RCJ_PS_PLAN_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_PLAN_STR-OBJEKTID sy-vline 
WA_RCJ_PS_PLAN_STR-KURZTEXT sy-vline 
WA_RCJ_PS_PLAN_STR-OBJEKTTYP sy-vline 
WA_RCJ_PS_PLAN_STR-ECKST sy-vline 
WA_RCJ_PS_PLAN_STR-ECKEN sy-vline 
WA_RCJ_PS_PLAN_STR-PROGST sy-vline 
WA_RCJ_PS_PLAN_STR-PROGEN sy-vline 
WA_RCJ_PS_PLAN_STR-TESTFR sy-vline 
WA_RCJ_PS_PLAN_STR-TEENFR sy-vline 
WA_RCJ_PS_PLAN_STR-TESTSP sy-vline 
WA_RCJ_PS_PLAN_STR-TEENSP sy-vline 
WA_RCJ_PS_PLAN_STR-TPSTFR sy-vline 
WA_RCJ_PS_PLAN_STR-TPENFR sy-vline 
WA_RCJ_PS_PLAN_STR-TPSTSP sy-vline 
WA_RCJ_PS_PLAN_STR-TPENSP sy-vline 
WA_RCJ_PS_PLAN_STR-ISTST sy-vline 
WA_RCJ_PS_PLAN_STR-ISTEN sy-vline 
WA_RCJ_PS_PLAN_STR-DATFS sy-vline 
WA_RCJ_PS_PLAN_STR-DATSE sy-vline 
WA_RCJ_PS_PLAN_STR-EDAUER sy-vline 
WA_RCJ_PS_PLAN_STR-EDAUEH sy-vline 
WA_RCJ_PS_PLAN_STR-PDAUER sy-vline 
WA_RCJ_PS_PLAN_STR-PDAUEH sy-vline 
WA_RCJ_PS_PLAN_STR-VDAUER sy-vline 
WA_RCJ_PS_PLAN_STR-VDAUEH sy-vline 
WA_RCJ_PS_PLAN_STR-IDAUER sy-vline 
WA_RCJ_PS_PLAN_STR-IDAUEH sy-vline 
WA_RCJ_PS_PLAN_STR-RDAUER sy-vline 
WA_RCJ_PS_PLAN_STR-RDAUEH sy-vline 
WA_RCJ_PS_PLAN_STR-ABARBD sy-vline 
WA_RCJ_PS_PLAN_STR-EARBEI sy-vline 
WA_RCJ_PS_PLAN_STR-EARBEH sy-vline 
WA_RCJ_PS_PLAN_STR-PARBEI sy-vline 
WA_RCJ_PS_PLAN_STR-PARBEH sy-vline 
WA_RCJ_PS_PLAN_STR-VARBEI sy-vline 
WA_RCJ_PS_PLAN_STR-VARBEH sy-vline 
WA_RCJ_PS_PLAN_STR-IARBEI sy-vline 
WA_RCJ_PS_PLAN_STR-IARBEH sy-vline 
WA_RCJ_PS_PLAN_STR-RARBEI sy-vline 
WA_RCJ_PS_PLAN_STR-RARBEH sy-vline 
WA_RCJ_PS_PLAN_STR-ABARBA sy-vline 
WA_RCJ_PS_PLAN_STR-USR00 sy-vline 
WA_RCJ_PS_PLAN_STR-USR01 sy-vline 
WA_RCJ_PS_PLAN_STR-USR02 sy-vline 
WA_RCJ_PS_PLAN_STR-USR03 sy-vline 
WA_RCJ_PS_PLAN_STR-USR04 sy-vline 
WA_RCJ_PS_PLAN_STR-USE04 sy-vline 
WA_RCJ_PS_PLAN_STR-USR05 sy-vline 
WA_RCJ_PS_PLAN_STR-USE05 sy-vline 
WA_RCJ_PS_PLAN_STR-USR06 sy-vline 
WA_RCJ_PS_PLAN_STR-USE06 sy-vline 
WA_RCJ_PS_PLAN_STR-USR07 sy-vline 
WA_RCJ_PS_PLAN_STR-USE07 sy-vline 
WA_RCJ_PS_PLAN_STR-USR08 sy-vline 
WA_RCJ_PS_PLAN_STR-USR09 sy-vline 
WA_RCJ_PS_PLAN_STR-USR10 sy-vline 
WA_RCJ_PS_PLAN_STR-USR11 sy-vline 
WA_RCJ_PS_PLAN_STR-VERNR sy-vline 
WA_RCJ_PS_PLAN_STR-VERNA sy-vline 
WA_RCJ_PS_PLAN_STR-ARBPL sy-vline 
WA_RCJ_PS_PLAN_STR-PSPRI sy-vline 
WA_RCJ_PS_PLAN_STR-STATXT sy-vline 
WA_RCJ_PS_PLAN_STR-STUFE sy-vline 
WA_RCJ_PS_PLAN_STR-FRUEHER sy-vline 
WA_RCJ_PS_PLAN_STR-SPAETER sy-vline 
WA_RCJ_PS_PLAN_STR-VERZUG sy-vline 
WA_RCJ_PS_PLAN_STR-VORBEI sy-vline 
WA_RCJ_PS_PLAN_STR-VEINH sy-vline 
WA_RCJ_PS_PLAN_STR-WAERS sy-vline 
WA_RCJ_PS_PLAN_STR-OWAERS sy-vline 
WA_RCJ_PS_PLAN_STR-PUFGS sy-vline 
WA_RCJ_PS_PLAN_STR-PUFFR sy-vline 
WA_RCJ_PS_PLAN_STR-PUFGP sy-vline 
WA_RCJ_PS_PLAN_STR-PUFFP sy-vline 
WA_RCJ_PS_PLAN_STR-GESBR sy-vline 
WA_RCJ_PS_PLAN_STR-PRCTR sy-vline 
WA_RCJ_PS_PLAN_STR-SAKTO sy-vline 
WA_RCJ_PS_PLAN_STR-KALID sy-vline 
WA_RCJ_PS_PLAN_STR-WERKS sy-vline 
WA_RCJ_PS_PLAN_STR-BUKRS sy-vline 
WA_RCJ_PS_PLAN_STR-ASTNR sy-vline 
WA_RCJ_PS_PLAN_STR-KALSM sy-vline 
WA_RCJ_PS_PLAN_STR-ZSCHL sy-vline 
WA_RCJ_PS_PLAN_STR-ABGSL sy-vline 
WA_RCJ_PS_PLAN_STR-ZSCHM sy-vline 
WA_RCJ_PS_PLAN_STR-PLAKZ sy-vline 
WA_RCJ_PS_PLAN_STR-BELKZ sy-vline 
WA_RCJ_PS_PLAN_STR-FAKKZ sy-vline 
WA_RCJ_PS_PLAN_STR-PROKSTPLAN sy-vline 
WA_RCJ_PS_PLAN_STR-PROKSTPLN2 sy-vline 
WA_RCJ_PS_PLAN_STR-AUFKSTPLAN sy-vline 
WA_RCJ_PS_PLAN_STR-AUFKSTPLN2 sy-vline 
WA_RCJ_PS_PLAN_STR-PROERLPLAN sy-vline 
WA_RCJ_PS_PLAN_STR-PROERLPLN2 sy-vline 
WA_RCJ_PS_PLAN_STR-AUFERLPLAN sy-vline 
WA_RCJ_PS_PLAN_STR-AUFERLPLN2 sy-vline 
WA_RCJ_PS_PLAN_STR-KREDFINPLN sy-vline 
WA_RCJ_PS_PLAN_STR-DEBFINPLN sy-vline 
WA_RCJ_PS_PLAN_STR-BUDGET sy-vline 
WA_RCJ_PS_PLAN_STR-FREIGABE sy-vline 
WA_RCJ_PS_PLAN_STR-AUFTRANF sy-vline 
WA_RCJ_PS_PLAN_STR-FESTPROBL sy-vline 
WA_RCJ_PS_PLAN_STR-KSTOBLGES sy-vline 
WA_RCJ_PS_PLAN_STR-ISTKOSTEN sy-vline 
WA_RCJ_PS_PLAN_STR-ISTERLOESE sy-vline 
WA_RCJ_PS_PLAN_STR-KZHLNG sy-vline 
WA_RCJ_PS_PLAN_STR-DZHLNG sy-vline 
WA_RCJ_PS_PLAN_STR-PROKSTPLAN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-PROKSTPLN2_OC sy-vline 
WA_RCJ_PS_PLAN_STR-AUFKSTPLAN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-AUFKSTPLN2_OC sy-vline 
WA_RCJ_PS_PLAN_STR-PROERLPLAN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-PROERLPLN2_OC sy-vline 
WA_RCJ_PS_PLAN_STR-AUFERLPLAN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-AUFERLPLN2_OC sy-vline 
WA_RCJ_PS_PLAN_STR-KREDFINPLN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-DEBFINPLN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-BUDGET_OC sy-vline 
WA_RCJ_PS_PLAN_STR-FREIGABE_OC sy-vline 
WA_RCJ_PS_PLAN_STR-AUFTRANF_OC sy-vline 
WA_RCJ_PS_PLAN_STR-FESTPROBL_OC sy-vline 
WA_RCJ_PS_PLAN_STR-KSTOBLGES_OC sy-vline 
WA_RCJ_PS_PLAN_STR-ISTKOSTEN_OC sy-vline 
WA_RCJ_PS_PLAN_STR-ISTERLOESE_OC sy-vline 
WA_RCJ_PS_PLAN_STR-KZHLNG_OC sy-vline 
WA_RCJ_PS_PLAN_STR-DZHLNG_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_PLAN_ORG1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_ORG1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_CORR1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_PLAN_QUAN_ORG1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_PLAN_QUAN_ORG1_UNIT sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_QUAN_ORG1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_QUAN_ORG1_UNIT sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_QUAN_CORR1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_QUAN_CORR1_UNIT sy-vline 
WA_RCJ_PS_PLAN_STR-POC_PLAN_ORG_AGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-POC_PLAN_ORG_NAGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-POC_ACT_ORG_AGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-POC_ACT_ORG_NAGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-POC_ACT_CORR_AGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-POC_ACT_CORR_NAGG1 sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_VAR_ORG sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_VAR_ORG sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_INDX_ORG sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_INDX_ORG sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_VAR_CORR sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_VAR_CORR sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_INDX_CORR sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_INDX_CORR sy-vline 
WA_RCJ_PS_PLAN_STR-EV_PLAN_ORG1_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_ORG1_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_ACT_CORR1_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_VAR_ORG_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_VAR_ORG_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_SCHED_VAR_CORR_OC sy-vline 
WA_RCJ_PS_PLAN_STR-EV_COST_VAR_CORR_OC sy-vline 
WA_RCJ_PS_PLAN_STR-STEUS sy-vline 
WA_RCJ_PS_PLAN_STR-DABEA sy-vline 
WA_RCJ_PS_PLAN_STR-BEAZE sy-vline 
WA_RCJ_PS_PLAN_STR-PLIFZ sy-vline 
WA_RCJ_PS_PLAN_STR-PRART sy-vline 
WA_RCJ_PS_PLAN_STR-AENNR sy-vline 
WA_RCJ_PS_PLAN_STR-ERSDA sy-vline 
WA_RCJ_PS_PLAN_STR-ERNAM sy-vline 
WA_RCJ_PS_PLAN_STR-LAEDA sy-vline 
WA_RCJ_PS_PLAN_STR-AENAM sy-vline 
WA_RCJ_PS_PLAN_STR-SYS_STTXT sy-vline 
WA_RCJ_PS_PLAN_STR-USER_STTXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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