ABAP Select data from SAP table J1B_NF_XML_BADI_ITEM 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 J1B_NF_XML_BADI_ITEM 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 J1B_NF_XML_BADI_ITEM. 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 J1B_NF_XML_BADI_ITEM 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_J1B_NF_XML_BADI_ITEM TYPE STANDARD TABLE OF J1B_NF_XML_BADI_ITEM,
      WA_J1B_NF_XML_BADI_ITEM TYPE J1B_NF_XML_BADI_ITEM,
      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: <J1B_NF_XML_BADI_ITEM> TYPE J1B_NF_XML_BADI_ITEM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J1B_NF_XML_BADI_ITEM
*  INTO TABLE @DATA(IT_J1B_NF_XML_BADI_ITEM2).
*--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_J1B_NF_XML_BADI_ITEM INDEX 1 INTO DATA(WA_J1B_NF_XML_BADI_ITEM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J1B_NF_XML_BADI_ITEM>-DOCNUM = 1.
<J1B_NF_XML_BADI_ITEM>-ITMNUM = 1.
<J1B_NF_XML_BADI_ITEM>-NCM = 1.
<J1B_NF_XML_BADI_ITEM>-P_MVAST = 1.
<J1B_NF_XML_BADI_ITEM>-XPROD = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J1B_NF_XML_BADI_ITEM-EXTIPI, sy-vline,
  WA_J1B_NF_XML_BADI_ITEM-X_CMUNFG, sy-vline,
  WA_J1B_NF_XML_BADI_ITEM-X_CLISTSERV, sy-vline,
  WA_J1B_NF_XML_BADI_ITEM-NDI, sy-vline,
  WA_J1B_NF_XML_BADI_ITEM-DDI, sy-vline,
  WA_J1B_NF_XML_BADI_ITEM-XLOCDESEMB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J1B_NF_XML_BADI_ITEM 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_J1B_NF_XML_BADI_ITEM 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_J1B_NF_XML_BADI_ITEM INTO WA_J1B_NF_XML_BADI_ITEM.


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

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

*Conversion exit CCEST, internal->external for field CEST
CALL FUNCTION 'CONVERSION_EXIT_CCEST_OUTPUT'
  EXPORTING
    input =                      WA_J1B_NF_XML_BADI_ITEM-CEST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J1B_NF_XML_BADI_ITEM-CEST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EAN11, internal->external for field CEAN
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_J1B_NF_XML_BADI_ITEM-CEAN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J1B_NF_XML_BADI_ITEM-CEAN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CGCBR, internal->external for field CNPJFAB
CALL FUNCTION 'CONVERSION_EXIT_CGCBR_OUTPUT'
  EXPORTING
    input =                      WA_J1B_NF_XML_BADI_ITEM-CNPJFAB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J1B_NF_XML_BADI_ITEM-CNPJFAB.
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_J1B_NF_XML_BADI_ITEM_STR, 
DOCNUM TYPE STRING,
ITMNUM TYPE STRING,
NCM TYPE STRING,
P_MVAST TYPE STRING,
XPROD TYPE STRING,
EXTIPI TYPE STRING,
X_CMUNFG TYPE STRING,
X_CLISTSERV TYPE STRING,
NDI TYPE STRING,
DDI TYPE STRING,
XLOCDESEMB TYPE STRING,
UFDESEMB TYPE STRING,
DDESEMB TYPE STRING,
CEXPORTADOR TYPE STRING,
NADICAO TYPE STRING,
NSEQADIC TYPE STRING,
CFABRICANTE TYPE STRING,
VDESCDI TYPE STRING,
I_TPOP TYPE STRING,
I_CHASSI TYPE STRING,
I_COR TYPE STRING,
I_XCOR TYPE STRING,
I_POT TYPE STRING,
I_CM3 TYPE STRING,
I_PESOL TYPE STRING,
I_PESOB TYPE STRING,
I_NSERIE TYPE STRING,
I_TPCOMB TYPE STRING,
I_NMOTOR TYPE STRING,
I_CMKG TYPE STRING,
I_DIST TYPE STRING,
I_RENAVAM TYPE STRING,
I_ANOMOD TYPE STRING,
I_ANOFAB TYPE STRING,
I_TPPINT TYPE STRING,
I_TPVEIC TYPE STRING,
I_ESPVEIC TYPE STRING,
I_VIN TYPE STRING,
I_CONDVEIC TYPE STRING,
I_CMOD TYPE STRING,
K_TPARMA TYPE STRING,
K_NSERIE TYPE STRING,
K_NCANO TYPE STRING,
K_DESCR TYPE STRING,
N_CLENQ TYPE STRING,
N_CNPJPROD TYPE STRING,
N_CSELO TYPE STRING,
N_QSELO TYPE STRING,
N_CENQ TYPE STRING,
MODBCST TYPE STRING,
O_II TYPE STRING,
O_VBC TYPE STRING,
O_VDESPADU TYPE STRING,
O_VII TYPE STRING,
O_VIOF TYPE STRING,
INFADPROD TYPE STRING,
J_ITEM TYPE STRING,
J_NLOTE TYPE STRING,
J_DVAL TYPE STRING,
J_VPMC TYPE STRING,
J_QLOTE TYPE STRING,
J_DFAB TYPE STRING,
UTRIB TYPE STRING,
QTRIB TYPE STRING,
VUNTRIB TYPE STRING,
CEANTRIB TYPE STRING,
OIL_CPRODANP TYPE STRING,
OIL_CODIF TYPE STRING,
OIL_GTEMP TYPE STRING,
OIL_QBCPROD TYPE STRING,
OIL_VALIGPROD TYPE STRING,
OIL_VCIDE TYPE STRING,
OIL_VBCICMS TYPE STRING,
OIL_VICMS TYPE STRING,
OIL_VBCICMSST TYPE STRING,
OIL_VCICMSST TYPE STRING,
OIL_VBCICMSSTDEST TYPE STRING,
OIL_VICMSSTDEST TYPE STRING,
OIL_VBCICMSSTCONS TYPE STRING,
OIL_VICMSSTCONS TYPE STRING,
OIL_UFCONS TYPE STRING,
XPED TYPE STRING,
NITEMPED TYPE STRING,
CCORDEN TYPE STRING,
LOTA TYPE STRING,
TPREST TYPE STRING,
L1_40_MOTDESICMS TYPE STRING,
X_CSITTRIB TYPE STRING,
QTRIB_V20 TYPE STRING,
VUNTRIB_V20 TYPE STRING,
UCOM TYPE STRING,
VTOTTRIB TYPE STRING,
NFCI TYPE STRING,
NRECOPI TYPE STRING,
PMIXGN TYPE STRING,
NVE TYPE STRING,
VIPIDEVOL TYPE STRING,
PIPIDEVOL TYPE STRING,
VICMSDESON TYPE STRING,
MOTDESON TYPE STRING,
VICMSOP TYPE STRING,
PICMSDIF TYPE STRING,
VICMSDIF TYPE STRING,
NPROCESSO TYPE STRING,
INDINCENTIVO TYPE STRING,
NFOTH TYPE STRING,
VICMSSTRET TYPE STRING,
VBCSTRET TYPE STRING,
BICO TYPE STRING,
BOMBA TYPE STRING,
TANQUE TYPE STRING,
ENCINI TYPE STRING,
ENCFIN TYPE STRING,
CEST TYPE STRING,
UTRIBL TYPE STRING,
CEAN TYPE STRING,
CPRODANVISA TYPE STRING,
VPMC TYPE STRING,
PST TYPE STRING,
VBCFCPSTRET TYPE STRING,
PFCPSTRET TYPE STRING,
VFCPSTRET TYPE STRING,
INDESCALA TYPE STRING,
CNPJFAB TYPE STRING,
CBENEF TYPE STRING,
PREDBCEFET TYPE STRING,
VBCEFET TYPE STRING,
PICMSEFET TYPE STRING,
VICMSEFET TYPE STRING,
XMOTIVOISENCAO TYPE STRING,
VICMSSUBSTITUTO TYPE STRING,
VICMSSTDEST TYPE STRING,
VBCSTDEST TYPE STRING,
PICMSDEF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J1B_NF_XML_BADI_ITEM_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_J1B_NF_XML_BADI_ITEM_STR-DOCNUM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-ITMNUM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NCM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-P_MVAST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-XPROD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-EXTIPI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-X_CMUNFG sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-X_CLISTSERV sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NDI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-DDI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-XLOCDESEMB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-UFDESEMB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-DDESEMB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CEXPORTADOR sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NADICAO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NSEQADIC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CFABRICANTE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VDESCDI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_TPOP sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_CHASSI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_COR sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_XCOR sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_POT sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_CM3 sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_PESOL sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_PESOB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_NSERIE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_TPCOMB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_NMOTOR sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_CMKG sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_DIST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_RENAVAM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_ANOMOD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_ANOFAB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_TPPINT sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_TPVEIC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_ESPVEIC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_VIN sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_CONDVEIC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-I_CMOD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-K_TPARMA sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-K_NSERIE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-K_NCANO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-K_DESCR sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-N_CLENQ sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-N_CNPJPROD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-N_CSELO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-N_QSELO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-N_CENQ sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-MODBCST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-O_II sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-O_VBC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-O_VDESPADU sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-O_VII sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-O_VIOF sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-INFADPROD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_ITEM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_NLOTE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_DVAL sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_VPMC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_QLOTE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-J_DFAB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-UTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-QTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VUNTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CEANTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_CPRODANP sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_CODIF sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_GTEMP sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_QBCPROD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VALIGPROD sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VCIDE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VBCICMS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VICMS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VBCICMSST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VCICMSST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VBCICMSSTDEST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VICMSSTDEST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VBCICMSSTCONS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_VICMSSTCONS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-OIL_UFCONS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-XPED sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NITEMPED sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CCORDEN sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-LOTA sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-TPREST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-L1_40_MOTDESICMS sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-X_CSITTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-QTRIB_V20 sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VUNTRIB_V20 sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-UCOM sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VTOTTRIB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NFCI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NRECOPI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PMIXGN sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NVE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VIPIDEVOL sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PIPIDEVOL sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSDESON sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-MOTDESON sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSOP sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PICMSDIF sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSDIF sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NPROCESSO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-INDINCENTIVO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-NFOTH sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSSTRET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VBCSTRET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-BICO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-BOMBA sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-TANQUE sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-ENCINI sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-ENCFIN sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CEST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-UTRIBL sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CEAN sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CPRODANVISA sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VPMC sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VBCFCPSTRET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PFCPSTRET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VFCPSTRET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-INDESCALA sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CNPJFAB sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-CBENEF sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PREDBCEFET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VBCEFET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PICMSEFET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSEFET sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-XMOTIVOISENCAO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSSUBSTITUTO sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VICMSSTDEST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-VBCSTDEST sy-vline 
WA_J1B_NF_XML_BADI_ITEM_STR-PICMSDEF sy-vline      INTO ld_text SEPARATED BY SPACE.

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