ABAP Select data from SAP table REAJ_ADJM_TASK_OBJ_X 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 REAJ_ADJM_TASK_OBJ_X 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 REAJ_ADJM_TASK_OBJ_X. 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 REAJ_ADJM_TASK_OBJ_X 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_REAJ_ADJM_TASK_OBJ_X TYPE STANDARD TABLE OF REAJ_ADJM_TASK_OBJ_X,
      WA_REAJ_ADJM_TASK_OBJ_X TYPE REAJ_ADJM_TASK_OBJ_X,
      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: <REAJ_ADJM_TASK_OBJ_X> TYPE REAJ_ADJM_TASK_OBJ_X.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM REAJ_ADJM_TASK_OBJ_X
*  INTO TABLE @DATA(IT_REAJ_ADJM_TASK_OBJ_X2).
*--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_REAJ_ADJM_TASK_OBJ_X INDEX 1 INTO DATA(WA_REAJ_ADJM_TASK_OBJ_X2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_REAJ_ADJM_TASK_OBJ_X ASSIGNING <REAJ_ADJM_TASK_OBJ_X>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<REAJ_ADJM_TASK_OBJ_X>-MANDT = 1.
<REAJ_ADJM_TASK_OBJ_X>-INTRENO = 1.
<REAJ_ADJM_TASK_OBJ_X>-OBJNRADJM = 1.
<REAJ_ADJM_TASK_OBJ_X>-COSTSPOS = 1.
<REAJ_ADJM_TASK_OBJ_X>-XCOSTSPOS = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_REAJ_ADJM_TASK_OBJ_X-CALCINCP, sy-vline,
WA_REAJ_ADJM_TASK_OBJ_X-CALCINCA, sy-vline,
WA_REAJ_ADJM_TASK_OBJ_X-CALCABSP, sy-vline,
WA_REAJ_ADJM_TASK_OBJ_X-CALCABSA, sy-vline,
WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASP, sy-vline,
WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASA, sy-vline.
ENDLOOP. *Add any further fields from structure WA_REAJ_ADJM_TASK_OBJ_X 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_REAJ_ADJM_TASK_OBJ_X 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_REAJ_ADJM_TASK_OBJ_X INTO WA_REAJ_ADJM_TASK_OBJ_X. *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 RECUP, internal->external for field CALCINCP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCINCP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCINCP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCINCA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCINCA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCINCA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCABSP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCABSP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCABSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCABSA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCABSA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCABSA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCINCMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCINCMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCINCMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCABSMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCABSMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCABSMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field CALCABSMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CALCABSMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CALCABSMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODINCP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODINCP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODINCP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODINCA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODINCA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODINCA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODABSP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODABSP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODABSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODABSA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODABSA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODABSA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODINCMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODINCMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODINCMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODINCMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODINCMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODINCMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODABSMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODABSMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODABSMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MODABSMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MODABSMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MODABSMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field DECP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-DECP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-DECP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field DECA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-DECA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-DECA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field DECMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-DECMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-DECMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field DECMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-DECMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-DECMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPINCP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPINCA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPABSP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPABSA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPINCMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPINCMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPINCMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPABSMEASP CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSMEASP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSMEASP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field BFCAPABSMEASA CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSMEASA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-BFCAPABSMEASA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXINC CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXINC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXINC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXABS CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXABS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXABS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXINCMEAS CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXINCMEAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXINCMEAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXABSMEAS CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXABSMEAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXABSMEAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXEPMEAS CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXEPMEAS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXEPMEAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXEPMEASCN CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXEPMEASCN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXEPMEASCN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXEPABS CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXEPABS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXEPABS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit RECUP, internal->external for field MAXEPABSCN CALL FUNCTION 'CONVERSION_EXIT_RECUP_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-MAXEPABSCN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-MAXEPABSCN.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CAPPINGCT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_REAJ_ADJM_TASK_OBJ_X-CAPPINGCT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_REAJ_ADJM_TASK_OBJ_X-CAPPINGCT.
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_REAJ_ADJM_TASK_OBJ_X_STR,
MANDT TYPE STRING,
INTRENO TYPE STRING,
OBJNRADJM TYPE STRING,
COSTSPOS TYPE STRING,
XCOSTSPOS TYPE STRING,
CALCINCP TYPE STRING,
CALCINCA TYPE STRING,
CALCABSP TYPE STRING,
CALCABSA TYPE STRING,
CALCINCMEASP TYPE STRING,
CALCINCMEASA TYPE STRING,
CALCABSMEASP TYPE STRING,
CALCABSMEASA TYPE STRING,
MODINCP TYPE STRING,
MODINCA TYPE STRING,
MODABSP TYPE STRING,
MODABSA TYPE STRING,
MODINCMEASP TYPE STRING,
MODINCMEASA TYPE STRING,
MODABSMEASP TYPE STRING,
MODABSMEASA TYPE STRING,
DECP TYPE STRING,
DECA TYPE STRING,
DECMEASP TYPE STRING,
DECMEASA TYPE STRING,
BFCAPINCP TYPE STRING,
BFCAPINCA TYPE STRING,
BFCAPABSP TYPE STRING,
BFCAPABSA TYPE STRING,
BFCAPINCMEASP TYPE STRING,
BFCAPINCMEASA TYPE STRING,
BFCAPABSMEASP TYPE STRING,
BFCAPABSMEASA TYPE STRING,
MAXINC TYPE STRING,
MAXABS TYPE STRING,
MAXINCMEAS TYPE STRING,
MAXABSMEAS TYPE STRING,
MAXEPMEAS TYPE STRING,
MAXEPMEASCN TYPE STRING,
MAXEPABS TYPE STRING,
MAXEPABSCN TYPE STRING,
FULLWAIVER TYPE STRING,
FULLWAIVERCN TYPE STRING,
NOCOSTSOBJP TYPE STRING,
NOCOSTSOBJA TYPE STRING,
IDENTADJM TYPE STRING,
ISSUMCOSTSPOS TYPE STRING,
MEASVALUEP TYPE STRING,
MEASVALUEA TYPE STRING,
MEASUNIT TYPE STRING,
COSTSMEAS TYPE STRING,
COSTSMEASUNIT TYPE STRING,
COSTSREFER TYPE STRING,
COSTSPOSGRP TYPE STRING,
XCOSTSPOSGRP TYPE STRING,
OBJNRADJMCN TYPE STRING,
IDENTADJMCN TYPE STRING,
ADJMCT TYPE STRING,
ADJMCP TYPE STRING,
ADJMCTCUST TYPE STRING,
ADJMCPCUST TYPE STRING,
ADJMCTREF TYPE STRING,
ADJMCPREF TYPE STRING,
WAIVERCT TYPE STRING,
WAIVERCP TYPE STRING,
CAPPINGCT TYPE STRING,
CAPPINGCP TYPE STRING,
XCAPPINGCT TYPE STRING,
XADJMCT TYPE STRING,
XWAIVERCT TYPE STRING,
SORTORDERGRP TYPE STRING,
SORTORDERPOS TYPE STRING,END OF T_EKKO_STR. DATA: WA_REAJ_ADJM_TASK_OBJ_X_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_REAJ_ADJM_TASK_OBJ_X_STR-MANDT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-INTRENO sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-OBJNRADJM sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-COSTSPOS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-XCOSTSPOS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCINCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCINCA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCABSP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCABSA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCINCMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCINCMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCABSMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CALCABSMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODINCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODINCA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODABSP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODABSA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODINCMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODINCMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODABSMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MODABSMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-DECP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-DECA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-DECMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-DECMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPINCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPINCA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPABSP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPABSA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPINCMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPINCMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPABSMEASP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-BFCAPABSMEASA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXINC sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXABS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXINCMEAS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXABSMEAS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXEPMEAS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXEPMEASCN sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXEPABS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MAXEPABSCN sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-FULLWAIVER sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-FULLWAIVERCN sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-NOCOSTSOBJP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-NOCOSTSOBJA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-IDENTADJM sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ISSUMCOSTSPOS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MEASVALUEP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MEASVALUEA sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-MEASUNIT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-COSTSMEAS sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-COSTSMEASUNIT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-COSTSREFER sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-COSTSPOSGRP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-XCOSTSPOSGRP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-OBJNRADJMCN sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-IDENTADJMCN sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCTCUST sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCPCUST sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCTREF sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-ADJMCPREF sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-WAIVERCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-WAIVERCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CAPPINGCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-CAPPINGCP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-XCAPPINGCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-XADJMCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-XWAIVERCT sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-SORTORDERGRP sy-vline
WA_REAJ_ADJM_TASK_OBJ_X_STR-SORTORDERPOS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.