ABAP Select data from SAP table PIMPRL 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 PIMPRL 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 PIMPRL. 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 PIMPRL 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_PIMPRL TYPE STANDARD TABLE OF PIMPRL,
      WA_PIMPRL TYPE PIMPRL,
      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: <PIMPRL> TYPE PIMPRL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PIMPRL
*  INTO TABLE @DATA(IT_PIMPRL2).
*--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_PIMPRL INDEX 1 INTO DATA(WA_PIMPRL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PIMPRL>-MANDT = 1.
<PIMPRL>-JRNLPERDENDCLSGRUNRESULTUUID = 1.
<PIMPRL>-LEDGER = 1.
<PIMPRL>-COMPANYCODE = 1.
<PIMPRL>-FISCALYEAR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PIMPRL-ALLOWANCETYPE, sy-vline,
  WA_PIMPRL-JRNLPERIODENDCLOSINGRUNLOGUUID, sy-vline,
  WA_PIMPRL-COMPANYCODECURRENCY, sy-vline,
  WA_PIMPRL-AMOUNTINCOMPANYCODECURRENCY, sy-vline,
  WA_PIMPRL-GLOBALCURRENCY, sy-vline,
  WA_PIMPRL-AMOUNTINGLOBALCURRENCY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PIMPRL 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_PIMPRL 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_PIMPRL INTO WA_PIMPRL.


*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 LEDGER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PIMPRL-LEDGER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIMPRL-LEDGER.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit EXCRT, internal->external for field EXCHANGERATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_PIMPRL-EXCHANGERATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIMPRL-EXCHANGERATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ACCOUNTINGDOCUMENT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_PIMPRL-ACCOUNTINGDOCUMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PIMPRL-ACCOUNTINGDOCUMENT.
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_PIMPRL_STR, 
MANDT TYPE STRING,
JRNLPERDENDCLSGRUNRESULTUUID TYPE STRING,
LEDGER TYPE STRING,
COMPANYCODE TYPE STRING,
FISCALYEAR TYPE STRING,
ALLOWANCETYPE TYPE STRING,
JRNLPERIODENDCLOSINGRUNLOGUUID TYPE STRING,
COMPANYCODECURRENCY TYPE STRING,
AMOUNTINCOMPANYCODECURRENCY TYPE STRING,
GLOBALCURRENCY TYPE STRING,
AMOUNTINGLOBALCURRENCY TYPE STRING,
FREEDEFINEDCURRENCY1 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY1 TYPE STRING,
FREEDEFINEDCURRENCY2 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY2 TYPE STRING,
FREEDEFINEDCURRENCY3 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY3 TYPE STRING,
FREEDEFINEDCURRENCY4 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY4 TYPE STRING,
FREEDEFINEDCURRENCY5 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY5 TYPE STRING,
FREEDEFINEDCURRENCY6 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY6 TYPE STRING,
FREEDEFINEDCURRENCY7 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY7 TYPE STRING,
FREEDEFINEDCURRENCY8 TYPE STRING,
AMOUNTINFREEDEFINEDCURRENCY8 TYPE STRING,
CURRENCY TYPE STRING,
FINANCIALTRANSACTIONTYPE TYPE STRING,
PROFITCENTER TYPE STRING,
SALESORDER TYPE STRING,
SALESORDERITEM TYPE STRING,
SUPPLIERNAME TYPE STRING,
SUPPLIER TYPE STRING,
CUSTOMER TYPE STRING,
BUSINESSPARTNER TYPE STRING,
BUSINESSPARTNERID TYPE STRING,
BUSINESSPARTNERNAME TYPE STRING,
HOUSEBANK TYPE STRING,
HOUSEBANKACCOUNT TYPE STRING,
COSTCTRACTIVITYTYPE TYPE STRING,
ORDERID TYPE STRING,
WBSELEMENTINTERNALID TYPE STRING,
PROJECTNETWORK TYPE STRING,
RELATEDNETWORKACTIVITY TYPE STRING,
BUSINESSPROCESS TYPE STRING,
COSTCENTER TYPE STRING,
FUNCTIONALAREA TYPE STRING,
BUSINESSAREA TYPE STRING,
CONTROLLINGAREA TYPE STRING,
SEGMENT TYPE STRING,
PARTNERCOSTCENTER TYPE STRING,
PARTNERPROFITCENTER TYPE STRING,
PARTNERFUNCTIONALAREA TYPE STRING,
PARTNERBUSINESSAREA TYPE STRING,
PARTNERCOMPANY TYPE STRING,
COSTOBJECT TYPE STRING,
PARTNERSEGMENT TYPE STRING,
JOINTVENTURE TYPE STRING,
JOINTVENTUREEQUITYGROUP TYPE STRING,
JOINTVENTURECOSTRECOVERYCODE TYPE STRING,
JOINTVENTUREPARTNER TYPE STRING,
PARTNERVENTURE TYPE STRING,
FINANCIALVALUATIONOBJECTTYPE TYPE STRING,
FINANCIALVALUATIONOBJECT TYPE STRING,
FINANCIALVALUATIONSUBOBJECT TYPE STRING,
REBUSINESSENTITY TYPE STRING,
REALESTATEBUILDING TYPE STRING,
REALESTATEPROPERTY TYPE STRING,
GLACCOUNT TYPE STRING,
OFFSETTINGACCOUNT TYPE STRING,
SUBLEDGERACCTLINEITEMTYPE TYPE STRING,
CHARTOFACCOUNTS TYPE STRING,
POSTINGDATE TYPE STRING,
ACCOUNTINGDOCUMENTCATEGORY TYPE STRING,
ISOPENITEMMANAGED TYPE STRING,
CLEARINGDATE TYPE STRING,
CLEARINGACCOUNTINGDOCUMENT TYPE STRING,
CLEARINGDOCFISCALYEAR TYPE STRING,
FISCALPERIOD TYPE STRING,
PRDCSSRJOURNALENTRYCOMPANYCODE TYPE STRING,
PRDCSSRJOURNALENTRYFISCALYEAR TYPE STRING,
PREDECESSORJOURNALENTRY TYPE STRING,
PREDECESSORJOURNALENTRYITEM TYPE STRING,
INVOICEITEMREFERENCE TYPE STRING,
INVOICEREFERENCE TYPE STRING,
INVOICEREFERENCEFISCALYEAR TYPE STRING,
FOLLOWONDOCUMENTTYPE TYPE STRING,
ACCOUNTINGDOCUMENTITEM TYPE STRING,
FINCLSGRUNRSLTFDCRCY1 TYPE STRING,
FINCLSGRUNRSLTFDCRCY2 TYPE STRING,
EXCHANGERATE TYPE STRING,
FINCLOSINGRUNISTESTEXECUTION TYPE STRING,
FINANCIALCLOSINGLINEITEMTYPE TYPE STRING,
FINCLOSINGLINEITEMSTATUSICON TYPE STRING,
FINCLOSINGLINEITEMDETAILSTATUS TYPE STRING,
ISREVERSED TYPE STRING,
GROUPID TYPE STRING,
FINCLSGLINEITMDETAILSTATUSNAME TYPE STRING,
GROUPRULE TYPE STRING,
FINANCIALCLOSINGLINEITEMSTATUS TYPE STRING,
GROUPRULESTEP TYPE STRING,
FINCLOSINGENTRYCALCULATIONTYPE TYPE STRING,
CREDITRISKCLASS TYPE STRING,
GENERALLEDGERAGINGINCREMENT TYPE STRING,
AGINGINCREMENT TYPE STRING,
AGINGSCOPE TYPE STRING,
EXPECTEDCREDITLOSSPERCENT TYPE STRING,
AMOUNTINTARGETCURRENCY TYPE STRING,
ACCOUNTINGDOCUMENT TYPE STRING,
LEDGERGLLINEITEM TYPE STRING,
CUMMULATEDLOSSALLOWANCE TYPE STRING,
PREPOSTLOSSALLOWANCE TYPE STRING,
LOSSALLOWANCETOBEPOSTED TYPE STRING,
NETDUEDATE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PIMPRL_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_PIMPRL_STR-MANDT sy-vline 
WA_PIMPRL_STR-JRNLPERDENDCLSGRUNRESULTUUID sy-vline 
WA_PIMPRL_STR-LEDGER sy-vline 
WA_PIMPRL_STR-COMPANYCODE sy-vline 
WA_PIMPRL_STR-FISCALYEAR sy-vline 
WA_PIMPRL_STR-ALLOWANCETYPE sy-vline 
WA_PIMPRL_STR-JRNLPERIODENDCLOSINGRUNLOGUUID sy-vline 
WA_PIMPRL_STR-COMPANYCODECURRENCY sy-vline 
WA_PIMPRL_STR-AMOUNTINCOMPANYCODECURRENCY sy-vline 
WA_PIMPRL_STR-GLOBALCURRENCY sy-vline 
WA_PIMPRL_STR-AMOUNTINGLOBALCURRENCY sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY1 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY1 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY2 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY2 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY3 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY3 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY4 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY4 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY5 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY5 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY6 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY6 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY7 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY7 sy-vline 
WA_PIMPRL_STR-FREEDEFINEDCURRENCY8 sy-vline 
WA_PIMPRL_STR-AMOUNTINFREEDEFINEDCURRENCY8 sy-vline 
WA_PIMPRL_STR-CURRENCY sy-vline 
WA_PIMPRL_STR-FINANCIALTRANSACTIONTYPE sy-vline 
WA_PIMPRL_STR-PROFITCENTER sy-vline 
WA_PIMPRL_STR-SALESORDER sy-vline 
WA_PIMPRL_STR-SALESORDERITEM sy-vline 
WA_PIMPRL_STR-SUPPLIERNAME sy-vline 
WA_PIMPRL_STR-SUPPLIER sy-vline 
WA_PIMPRL_STR-CUSTOMER sy-vline 
WA_PIMPRL_STR-BUSINESSPARTNER sy-vline 
WA_PIMPRL_STR-BUSINESSPARTNERID sy-vline 
WA_PIMPRL_STR-BUSINESSPARTNERNAME sy-vline 
WA_PIMPRL_STR-HOUSEBANK sy-vline 
WA_PIMPRL_STR-HOUSEBANKACCOUNT sy-vline 
WA_PIMPRL_STR-COSTCTRACTIVITYTYPE sy-vline 
WA_PIMPRL_STR-ORDERID sy-vline 
WA_PIMPRL_STR-WBSELEMENTINTERNALID sy-vline 
WA_PIMPRL_STR-PROJECTNETWORK sy-vline 
WA_PIMPRL_STR-RELATEDNETWORKACTIVITY sy-vline 
WA_PIMPRL_STR-BUSINESSPROCESS sy-vline 
WA_PIMPRL_STR-COSTCENTER sy-vline 
WA_PIMPRL_STR-FUNCTIONALAREA sy-vline 
WA_PIMPRL_STR-BUSINESSAREA sy-vline 
WA_PIMPRL_STR-CONTROLLINGAREA sy-vline 
WA_PIMPRL_STR-SEGMENT sy-vline 
WA_PIMPRL_STR-PARTNERCOSTCENTER sy-vline 
WA_PIMPRL_STR-PARTNERPROFITCENTER sy-vline 
WA_PIMPRL_STR-PARTNERFUNCTIONALAREA sy-vline 
WA_PIMPRL_STR-PARTNERBUSINESSAREA sy-vline 
WA_PIMPRL_STR-PARTNERCOMPANY sy-vline 
WA_PIMPRL_STR-COSTOBJECT sy-vline 
WA_PIMPRL_STR-PARTNERSEGMENT sy-vline 
WA_PIMPRL_STR-JOINTVENTURE sy-vline 
WA_PIMPRL_STR-JOINTVENTUREEQUITYGROUP sy-vline 
WA_PIMPRL_STR-JOINTVENTURECOSTRECOVERYCODE sy-vline 
WA_PIMPRL_STR-JOINTVENTUREPARTNER sy-vline 
WA_PIMPRL_STR-PARTNERVENTURE sy-vline 
WA_PIMPRL_STR-FINANCIALVALUATIONOBJECTTYPE sy-vline 
WA_PIMPRL_STR-FINANCIALVALUATIONOBJECT sy-vline 
WA_PIMPRL_STR-FINANCIALVALUATIONSUBOBJECT sy-vline 
WA_PIMPRL_STR-REBUSINESSENTITY sy-vline 
WA_PIMPRL_STR-REALESTATEBUILDING sy-vline 
WA_PIMPRL_STR-REALESTATEPROPERTY sy-vline 
WA_PIMPRL_STR-GLACCOUNT sy-vline 
WA_PIMPRL_STR-OFFSETTINGACCOUNT sy-vline 
WA_PIMPRL_STR-SUBLEDGERACCTLINEITEMTYPE sy-vline 
WA_PIMPRL_STR-CHARTOFACCOUNTS sy-vline 
WA_PIMPRL_STR-POSTINGDATE sy-vline 
WA_PIMPRL_STR-ACCOUNTINGDOCUMENTCATEGORY sy-vline 
WA_PIMPRL_STR-ISOPENITEMMANAGED sy-vline 
WA_PIMPRL_STR-CLEARINGDATE sy-vline 
WA_PIMPRL_STR-CLEARINGACCOUNTINGDOCUMENT sy-vline 
WA_PIMPRL_STR-CLEARINGDOCFISCALYEAR sy-vline 
WA_PIMPRL_STR-FISCALPERIOD sy-vline 
WA_PIMPRL_STR-PRDCSSRJOURNALENTRYCOMPANYCODE sy-vline 
WA_PIMPRL_STR-PRDCSSRJOURNALENTRYFISCALYEAR sy-vline 
WA_PIMPRL_STR-PREDECESSORJOURNALENTRY sy-vline 
WA_PIMPRL_STR-PREDECESSORJOURNALENTRYITEM sy-vline 
WA_PIMPRL_STR-INVOICEITEMREFERENCE sy-vline 
WA_PIMPRL_STR-INVOICEREFERENCE sy-vline 
WA_PIMPRL_STR-INVOICEREFERENCEFISCALYEAR sy-vline 
WA_PIMPRL_STR-FOLLOWONDOCUMENTTYPE sy-vline 
WA_PIMPRL_STR-ACCOUNTINGDOCUMENTITEM sy-vline 
WA_PIMPRL_STR-FINCLSGRUNRSLTFDCRCY1 sy-vline 
WA_PIMPRL_STR-FINCLSGRUNRSLTFDCRCY2 sy-vline 
WA_PIMPRL_STR-EXCHANGERATE sy-vline 
WA_PIMPRL_STR-FINCLOSINGRUNISTESTEXECUTION sy-vline 
WA_PIMPRL_STR-FINANCIALCLOSINGLINEITEMTYPE sy-vline 
WA_PIMPRL_STR-FINCLOSINGLINEITEMSTATUSICON sy-vline 
WA_PIMPRL_STR-FINCLOSINGLINEITEMDETAILSTATUS sy-vline 
WA_PIMPRL_STR-ISREVERSED sy-vline 
WA_PIMPRL_STR-GROUPID sy-vline 
WA_PIMPRL_STR-FINCLSGLINEITMDETAILSTATUSNAME sy-vline 
WA_PIMPRL_STR-GROUPRULE sy-vline 
WA_PIMPRL_STR-FINANCIALCLOSINGLINEITEMSTATUS sy-vline 
WA_PIMPRL_STR-GROUPRULESTEP sy-vline 
WA_PIMPRL_STR-FINCLOSINGENTRYCALCULATIONTYPE sy-vline 
WA_PIMPRL_STR-CREDITRISKCLASS sy-vline 
WA_PIMPRL_STR-GENERALLEDGERAGINGINCREMENT sy-vline 
WA_PIMPRL_STR-AGINGINCREMENT sy-vline 
WA_PIMPRL_STR-AGINGSCOPE sy-vline 
WA_PIMPRL_STR-EXPECTEDCREDITLOSSPERCENT sy-vline 
WA_PIMPRL_STR-AMOUNTINTARGETCURRENCY sy-vline 
WA_PIMPRL_STR-ACCOUNTINGDOCUMENT sy-vline 
WA_PIMPRL_STR-LEDGERGLLINEITEM sy-vline 
WA_PIMPRL_STR-CUMMULATEDLOSSALLOWANCE sy-vline 
WA_PIMPRL_STR-PREPOSTLOSSALLOWANCE sy-vline 
WA_PIMPRL_STR-LOSSALLOWANCETOBEPOSTED sy-vline 
WA_PIMPRL_STR-NETDUEDATE sy-vline      INTO ld_text SEPARATED BY SPACE.

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