ABAP Select data from SAP table BBPS_BADI_BE_RS_CREATE_OLD 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 BBPS_BADI_BE_RS_CREATE_OLD 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 BBPS_BADI_BE_RS_CREATE_OLD. 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 BBPS_BADI_BE_RS_CREATE_OLD 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_BBPS_BADI_BE_RS_CREATE_OLD TYPE STANDARD TABLE OF BBPS_BADI_BE_RS_CREATE_OLD,
      WA_BBPS_BADI_BE_RS_CREATE_OLD TYPE BBPS_BADI_BE_RS_CREATE_OLD,
      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: <BBPS_BADI_BE_RS_CREATE_OLD> TYPE BBPS_BADI_BE_RS_CREATE_OLD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BBPS_BADI_BE_RS_CREATE_OLD
*  INTO TABLE @DATA(IT_BBPS_BADI_BE_RS_CREATE_OLD2).
*--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_BBPS_BADI_BE_RS_CREATE_OLD INDEX 1 INTO DATA(WA_BBPS_BADI_BE_RS_CREATE_OLD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BBPS_BADI_BE_RS_CREATE_OLD>-LOGICAL_SYSTEM = 1.
<BBPS_BADI_BE_RS_CREATE_OLD>-RES_HEADER = 1.
<BBPS_BADI_BE_RS_CREATE_OLD>-RES_NO = 1.
<BBPS_BADI_BE_RS_CREATE_OLD>-PLANT = 1.
<BBPS_BADI_BE_RS_CREATE_OLD>-RES_DATE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BBPS_BADI_BE_RS_CREATE_OLD-CREATED_BY, sy-vline,
  WA_BBPS_BADI_BE_RS_CREATE_OLD-MOVE_TYPE, sy-vline,
  WA_BBPS_BADI_BE_RS_CREATE_OLD-GR_RCPT, sy-vline,
  WA_BBPS_BADI_BE_RS_CREATE_OLD-COST_CTR, sy-vline,
  WA_BBPS_BADI_BE_RS_CREATE_OLD-ASSET_NO, sy-vline,
  WA_BBPS_BADI_BE_RS_CREATE_OLD-SUB_NUMBER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BBPS_BADI_BE_RS_CREATE_OLD 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_BBPS_BADI_BE_RS_CREATE_OLD 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_BBPS_BADI_BE_RS_CREATE_OLD INTO WA_BBPS_BADI_BE_RS_CREATE_OLD.


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

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

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

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

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

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

*Conversion exit IMKEY, internal->external for field RL_EST_KEY
CALL FUNCTION 'CONVERSION_EXIT_IMKEY_OUTPUT'
  EXPORTING
    input =                      WA_BBPS_BADI_BE_RS_CREATE_OLD-RL_EST_KEY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BBPS_BADI_BE_RS_CREATE_OLD-RL_EST_KEY.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSN, internal->external for field WBS_ELEM_E
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_BBPS_BADI_BE_RS_CREATE_OLD-WBS_ELEM_E
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BBPS_BADI_BE_RS_CREATE_OLD-WBS_ELEM_E.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit FMCIS, internal->external for field CMMT_ITEM
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_BBPS_BADI_BE_RS_CREATE_OLD-CMMT_ITEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BBPS_BADI_BE_RS_CREATE_OLD-CMMT_ITEM.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PS_SC_ID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_BBPS_BADI_BE_RS_CREATE_OLD-PS_SC_ID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BBPS_BADI_BE_RS_CREATE_OLD-PS_SC_ID.
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_BBPS_BADI_BE_RS_CREATE_OLD_STR, 
LOGICAL_SYSTEM TYPE STRING,
RES_HEADER TYPE STRING,
RES_NO TYPE STRING,
PLANT TYPE STRING,
RES_DATE TYPE STRING,
CREATED_BY TYPE STRING,
MOVE_TYPE TYPE STRING,
GR_RCPT TYPE STRING,
COST_CTR TYPE STRING,
ASSET_NO TYPE STRING,
SUB_NUMBER TYPE STRING,
ORDER_NO TYPE STRING,
SD_DOC TYPE STRING,
SDOC_ITEM TYPE STRING,
SCHED_LINE TYPE STRING,
CO_AREA TYPE STRING,
PART_AREA TYPE STRING,
RL_EST_KEY TYPE STRING,
COST_OBJ TYPE STRING,
PROF_SEGM TYPE STRING,
PROFIT_CTR TYPE STRING,
WBS_ELEM_E TYPE STRING,
NETWORK TYPE STRING,
ROUTING_NO TYPE STRING,
COUNTER TYPE STRING,
PART_ACCT TYPE STRING,
CMMT_ITEM TYPE STRING,
REC_IND TYPE STRING,
FUNC_AREA TYPE STRING,
G_L_ACCT TYPE STRING,
MOVE_PLANT TYPE STRING,
MOVE_STLOC TYPE STRING,
ACTIVITY TYPE STRING,
RES_ITEMS TYPE STRING,
IS_CUF_HEADER TYPE STRING,
GUID_CUF TYPE STRING,
ICC_BUPLA_AR TYPE STRING,
ICC_BR_NF_FRE TYPE STRING,
ICC_BR_NF_INS TYPE STRING,
ICC_BR_NF_OTH TYPE STRING,
ICC_BR_NF_DIS TYPE STRING,
ICC_BR_NF_NET TYPE STRING,
ICC_BR_NF_TOT TYPE STRING,
ICC_BUPLA_BR TYPE STRING,
ICC_KIDNO_DK TYPE STRING,
ICC_KIDNO_FI TYPE STRING,
ICC_BUPLA_KR TYPE STRING,
ICC_KIDNO_NO TYPE STRING,
ICC_KIDNO_SE TYPE STRING,
ICC_BUPLA_TH TYPE STRING,
ICC_BUPLA_TW TYPE STRING,
DUMMY_EEW_PDHSC TYPE STRING,
DUMMY_EEW_PDHSS TYPE STRING,
PS_HIER_TEMPL TYPE STRING,
PS_NUMVRS TYPE STRING,
/LOCSRM/SGUID_BR TYPE STRING,
PS_COMPLEX_IND TYPE STRING,
APCGK TYPE STRING,
APCGK_EXTEND TYPE STRING,
BAS_DATE TYPE STRING,
ADATTYP TYPE STRING,
START_DAT TYPE STRING,
DEV TYPE STRING,
INDANX TYPE STRING,
LIMIT_DAT TYPE STRING,
NUMERATOR TYPE STRING,
/LOCSRM/CIG_NUM TYPE STRING,
/LOCSRM/CUP_NUM TYPE STRING,
AWARD_TYPE TYPE STRING,
CONTRACT_TYPE TYPE STRING,
PROCESS_NUM_BR TYPE STRING,
FLAG_PPS_BR TYPE STRING,
PROCESS_NUM TYPE STRING,
FLAG_BR TYPE STRING,
/LOCSRM/LAW123 TYPE STRING,
/LOCSRM/RANTIME TYPE STRING,
PS_PGS_ID TYPE STRING,
PS_CANCEL_IND TYPE STRING,
PS_CLOSEOUT TYPE STRING,
PS_DOCB_ID TYPE STRING,
PS_IN_DOCB_PROC TYPE STRING,
PS_SEND_TO_DB TYPE STRING,
PS_DB_SXMSGUID TYPE STRING,
PS_DP_TYPE TYPE STRING,
PS_DP_AMOUNT TYPE STRING,
PS_DP_PERCENT TYPE STRING,
PS_DP_DUE_DATE TYPE STRING,
PS_COMPANY_CODE TYPE STRING,
PS_POSTING_DATE TYPE STRING,
PS_ORDER_DATE TYPE STRING,
PS_FISCAL_YEAR TYPE STRING,
PS_POST_PERIOD TYPE STRING,
PS_DOC_DATE_BL TYPE STRING,
PS_FPDS_STATUS TYPE STRING,
PS_REQUEST_DATE TYPE STRING,
PS_GUAR_MIN_QUOT TYPE STRING,
PS_GUAR_MIN_BID TYPE STRING,
PS_GM_LEVEL TYPE STRING,
PS_GM_NO_EMF TYPE STRING,
PS_GM_CLOSED TYPE STRING,
PS_IDC_DOC TYPE STRING,
PS_INFU_ACTIVE TYPE STRING,
PS_MAX_VALUE_H TYPE STRING,
PS_CORRES_NOV_PO TYPE STRING,
PS_MCNGUID TYPE STRING,
OPT_CPLX_DOC TYPE STRING,
PS_ULTIM_VALUE TYPE STRING,
PS_CURR_VALUE TYPE STRING,
PS_EST_VAL TYPE STRING,
PS_SC_ID TYPE STRING,
PS_PARK_IND TYPE STRING,
PS_PA_ID_HDR TYPE STRING,
PS_PA_CLNG_HDR TYPE STRING,
PS_PA_CLNG_IND TYPE STRING,
PS_INDICATOR TYPE STRING,
PS_REASON_CODE TYPE STRING,
PS_SELPROM_BLOCK TYPE STRING,
PS_SELPROM_REL TYPE STRING,
PS_LONGNUM TYPE STRING,
PS_NUMTYPE TYPE STRING,
PS_EXTERNAL TYPE STRING,
PS_CHANGE_SERIAL TYPE STRING,
PS_SET_LPN_FINAL TYPE STRING,
PS_CLASSCODE TYPE STRING,
PS_NAICS TYPE STRING,
PS_SYNOPSISID TYPE STRING,
PS_SETASIDE TYPE STRING,
PS_EU_DOCB_ID TYPE STRING,
PS_EU_DOCB_GUID TYPE STRING,
PS_EU_DOCB_VER TYPE STRING,
PS_TNDR_REQ TYPE STRING,
PS_TNDR_AMNT TYPE STRING,
PS_TNDR_CL_DT TYPE STRING,
PS_PQQ_REQ TYPE STRING,
PS_PQQ_CL_DT TYPE STRING,
PS_PQQ_AUTO TYPE STRING,
PS_PQQ_THRSHLD TYPE STRING,
PS_PQQ TYPE STRING,
PS_PQQ_SETGUID TYPE STRING,
PS_BDR_STS_GUID TYPE STRING,
PS_EMD_REQ TYPE STRING,
PS_EMD_AMNT TYPE STRING,
PS_EMD_CL_DT TYPE STRING,
PS_TNDR_COLB_ID TYPE STRING,
PS_TNDR_AREA_ID TYPE STRING,
PS_TECH_OPND TYPE STRING,
PS_PRICE_OPND TYPE STRING,
PS_PERM_GUID TYPE STRING,
PS_TECH_OPEN_DT TYPE STRING,
PS_TNDR_CL_TM TYPE STRING,
PS_PQQ_CL_TM TYPE STRING,
PS_EMD_CL_TM TYPE STRING,
PS_TECH_OPEN_TM TYPE STRING,
PS_TECH_QTE_STA TYPE STRING,
PS_FLDR_SET_GUID TYPE STRING,
PS_TH_EXCEEDED TYPE STRING,
PS_CHANGE_TYPE TYPE STRING,
PS_US01 TYPE STRING,
PS_US02 TYPE STRING,
PS_US03 TYPE STRING,
PS_US04 TYPE STRING,
PS_US05 TYPE STRING,
PS_US06 TYPE STRING,
PS_US07 TYPE STRING,
PS_US08 TYPE STRING,
PS_US09 TYPE STRING,
PS_US10 TYPE STRING,
PS_US01_DATE TYPE STRING,
PS_US02_DATE TYPE STRING,
PS_US03_DATE TYPE STRING,
PS_US04_DATE TYPE STRING,
PS_US05_DATE TYPE STRING,
PS_US06_DATE TYPE STRING,
PS_US07_DATE TYPE STRING,
PS_US08_DATE TYPE STRING,
PS_US09_DATE TYPE STRING,
PS_US10_DATE TYPE STRING,
PS_WH_PRCNT_HDR TYPE STRING,
PS_WH_IND TYPE STRING,
DOC_TYPE_EXI TYPE STRING,
PAY_METH_EXI TYPE STRING,
PAY_BLOCK_EXI TYPE STRING,
CPD_VENDOR_EXI TYPE STRING,
POBK_CURAC_EXI TYPE STRING,
BANK_ACCT_EXI TYPE STRING,
BANK_NO_EXI TYPE STRING,
BANK_CTRY_EXI TYPE STRING,
CTRL_KEY_EXI TYPE STRING,
LAM_SOL_KEY TYPE STRING,
LAM_HDR_GAID TYPE STRING,
LAM_HDR_TEXT TYPE STRING,
ICC_LZBKZ_DE TYPE STRING,
ICC_LZBKZ_NL TYPE STRING,
ICC_BR_TAXAMT TYPE STRING,
BBP_ICC_EXC_NUM TYPE STRING,
BBP_ICC_EXC_DATE TYPE STRING,
BBP_ICC_EXC_TXT TYPE STRING,
BBP_ICC_EXC_PARK TYPE STRING,
VZSKZ TYPE STRING,
IT_CUF_ITEM TYPE STRING,
IT_CUF_ACC TYPE STRING,
MOVEMENT_AUTO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BBPS_BADI_BE_RS_CREATE_OLD_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_BBPS_BADI_BE_RS_CREATE_OLD_STR-LOGICAL_SYSTEM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-RES_HEADER sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-RES_NO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PLANT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-RES_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CREATED_BY sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-MOVE_TYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-GR_RCPT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-COST_CTR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ASSET_NO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-SUB_NUMBER sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ORDER_NO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-SD_DOC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-SDOC_ITEM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-SCHED_LINE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CO_AREA sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PART_AREA sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-RL_EST_KEY sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-COST_OBJ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PROF_SEGM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PROFIT_CTR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-WBS_ELEM_E sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-NETWORK sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ROUTING_NO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-COUNTER sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PART_ACCT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CMMT_ITEM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-REC_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-FUNC_AREA sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-G_L_ACCT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-MOVE_PLANT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-MOVE_STLOC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ACTIVITY sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-RES_ITEMS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-IS_CUF_HEADER sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-GUID_CUF sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BUPLA_AR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_FRE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_INS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_OTH sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_DIS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_NET sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_NF_TOT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BUPLA_BR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_KIDNO_DK sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_KIDNO_FI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BUPLA_KR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_KIDNO_NO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_KIDNO_SE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BUPLA_TH sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BUPLA_TW sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-DUMMY_EEW_PDHSC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-DUMMY_EEW_PDHSS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_HIER_TEMPL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_NUMVRS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-/LOCSRM/SGUID_BR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_COMPLEX_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-APCGK sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-APCGK_EXTEND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BAS_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ADATTYP sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-START_DAT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-DEV sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-INDANX sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-LIMIT_DAT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-NUMERATOR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-/LOCSRM/CIG_NUM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-/LOCSRM/CUP_NUM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-AWARD_TYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CONTRACT_TYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PROCESS_NUM_BR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-FLAG_PPS_BR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PROCESS_NUM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-FLAG_BR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-/LOCSRM/LAW123 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-/LOCSRM/RANTIME sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PGS_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CANCEL_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CLOSEOUT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DOCB_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_IN_DOCB_PROC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SEND_TO_DB sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DB_SXMSGUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DP_TYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DP_AMOUNT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DP_PERCENT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DP_DUE_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_COMPANY_CODE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_POSTING_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_ORDER_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_FISCAL_YEAR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_POST_PERIOD sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_DOC_DATE_BL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_FPDS_STATUS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_REQUEST_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_GUAR_MIN_QUOT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_GUAR_MIN_BID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_GM_LEVEL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_GM_NO_EMF sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_GM_CLOSED sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_IDC_DOC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_INFU_ACTIVE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_MAX_VALUE_H sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CORRES_NOV_PO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_MCNGUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-OPT_CPLX_DOC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_ULTIM_VALUE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CURR_VALUE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EST_VAL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SC_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PARK_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PA_ID_HDR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PA_CLNG_HDR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PA_CLNG_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_INDICATOR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_REASON_CODE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SELPROM_BLOCK sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SELPROM_REL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_LONGNUM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_NUMTYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EXTERNAL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CHANGE_SERIAL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SET_LPN_FINAL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CLASSCODE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_NAICS sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SYNOPSISID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_SETASIDE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EU_DOCB_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EU_DOCB_GUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EU_DOCB_VER sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_REQ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_AMNT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_CL_DT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_REQ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_CL_DT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_AUTO sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_THRSHLD sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_SETGUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_BDR_STS_GUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EMD_REQ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EMD_AMNT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EMD_CL_DT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_COLB_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_AREA_ID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TECH_OPND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PRICE_OPND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PERM_GUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TECH_OPEN_DT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TNDR_CL_TM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_PQQ_CL_TM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_EMD_CL_TM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TECH_OPEN_TM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TECH_QTE_STA sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_FLDR_SET_GUID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_TH_EXCEEDED sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_CHANGE_TYPE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US01 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US02 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US03 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US04 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US05 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US06 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US07 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US08 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US09 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US10 sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US01_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US02_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US03_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US04_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US05_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US06_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US07_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US08_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US09_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_US10_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_WH_PRCNT_HDR sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PS_WH_IND sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-DOC_TYPE_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PAY_METH_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-PAY_BLOCK_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CPD_VENDOR_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-POBK_CURAC_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BANK_ACCT_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BANK_NO_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BANK_CTRY_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-CTRL_KEY_EXI sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-LAM_SOL_KEY sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-LAM_HDR_GAID sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-LAM_HDR_TEXT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_LZBKZ_DE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_LZBKZ_NL sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-ICC_BR_TAXAMT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BBP_ICC_EXC_NUM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BBP_ICC_EXC_DATE sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BBP_ICC_EXC_TXT sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-BBP_ICC_EXC_PARK sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-VZSKZ sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-IT_CUF_ITEM sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-IT_CUF_ACC sy-vline 
WA_BBPS_BADI_BE_RS_CREATE_OLD_STR-MOVEMENT_AUTO sy-vline      INTO ld_text SEPARATED BY SPACE.

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