ABAP Select data from SAP table FPRL_S_CESSION 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 FPRL_S_CESSION 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 FPRL_S_CESSION. 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 FPRL_S_CESSION 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_FPRL_S_CESSION TYPE STANDARD TABLE OF FPRL_S_CESSION,
      WA_FPRL_S_CESSION TYPE FPRL_S_CESSION,
      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: <FPRL_S_CESSION> TYPE FPRL_S_CESSION.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FPRL_S_CESSION
*  INTO TABLE @DATA(IT_FPRL_S_CESSION2).
*--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_FPRL_S_CESSION INDEX 1 INTO DATA(WA_FPRL_S_CESSION2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FPRL_S_CESSION ASSIGNING <FPRL_S_CESSION>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FPRL_S_CESSION>-GUID = 1.
<FPRL_S_CESSION>-LIST_ID = 1.
<FPRL_S_CESSION>-STATUS = 1.
<FPRL_S_CESSION>-ALEVEL = 1.
<FPRL_S_CESSION>-CREA_USER = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FPRL_S_CESSION-CREA_TIME, sy-vline,
WA_FPRL_S_CESSION-CHANGE_USER, sy-vline,
WA_FPRL_S_CESSION-CHANGE_TIME, sy-vline,
WA_FPRL_S_CESSION-APPLIC, sy-vline,
WA_FPRL_S_CESSION-BUKRS, sy-vline,
WA_FPRL_S_CESSION-BELNR, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FPRL_S_CESSION 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_FPRL_S_CESSION 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_FPRL_S_CESSION INTO WA_FPRL_S_CESSION. *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 TSTPS, internal->external for field CREA_TIME CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-CREA_TIME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-CREA_TIME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field CHANGE_TIME CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-CHANGE_TIME IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-CHANGE_TIME.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit AU132, internal->external for field WRBTR CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-WRBTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-WRBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SKFBT CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-SKFBT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-SKFBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field WSKTO CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-WSKTO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-WSKTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field QBSHB CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-QBSHB IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-QBSHB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field PSWBT CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PSWBT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PSWBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field PSSKT CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PSSKT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PSSKT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AU132, internal->external for field PAMTF CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PAMTF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PAMTF.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ABPSP, internal->external for field PROJK_ES CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PROJK_ES IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PROJK_ES.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field ZSPRA CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-ZSPRA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-ZSPRA.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit AC132, internal->external for field WRBTR_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-WRBTR_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-WRBTR_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SKFBT_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-SKFBT_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-SKFBT_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WSKTO_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-WSKTO_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-WSKTO_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field QBSHB_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-QBSHB_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-QBSHB_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field PSWBT_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PSWBT_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PSWBT_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field PSSKT_V CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT' EXPORTING input = WA_FPRL_S_CESSION-PSSKT_V IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FPRL_S_CESSION-PSSKT_V.
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_FPRL_S_CESSION_STR,
GUID TYPE STRING,
LIST_ID TYPE STRING,
STATUS TYPE STRING,
ALEVEL TYPE STRING,
CREA_USER TYPE STRING,
CREA_TIME TYPE STRING,
CHANGE_USER TYPE STRING,
CHANGE_TIME TYPE STRING,
APPLIC TYPE STRING,
BUKRS TYPE STRING,
BELNR TYPE STRING,
GJAHR TYPE STRING,
BUZEI TYPE STRING,
LIFNR TYPE STRING,
KUNNR TYPE STRING,
FILKD TYPE STRING,
EMPFB TYPE STRING,
VBUND TYPE STRING,
SHKZG TYPE STRING,
WAERS TYPE STRING,
WRBTR TYPE STRING,
SKFBT TYPE STRING,
WSKTO TYPE STRING,
QBSHB TYPE STRING,
PSWSL TYPE STRING,
PSWBT TYPE STRING,
PSSKT TYPE STRING,
BLART TYPE STRING,
BUDAT TYPE STRING,
BLDAT TYPE STRING,
KOART TYPE STRING,
BSCHL TYPE STRING,
HKONT TYPE STRING,
SAKNR TYPE STRING,
UMSKZ TYPE STRING,
GSBER TYPE STRING,
MWSKZ TYPE STRING,
QSSKZ TYPE STRING,
SGTXT TYPE STRING,
ZFBDT TYPE STRING,
ZBD1T TYPE STRING,
ZBD2T TYPE STRING,
ZBD3T TYPE STRING,
ZBD1P TYPE STRING,
ZBD2P TYPE STRING,
XREBZ TYPE STRING,
ESRNR TYPE STRING,
ESRRE TYPE STRING,
ESRPZ TYPE STRING,
EBELN TYPE STRING,
EBELP TYPE STRING,
STCEG TYPE STRING,
XBLNR TYPE STRING,
LZBKZ TYPE STRING,
LANDL TYPE STRING,
NPLNR TYPE STRING,
AUFPL TYPE STRING,
ZUONR TYPE STRING,
VERTN TYPE STRING,
REBZT TYPE STRING,
REBZG TYPE STRING,
REBZJ TYPE STRING,
REBZZ TYPE STRING,
KOSTL TYPE STRING,
VBEL2 TYPE STRING,
POSN2 TYPE STRING,
PRCTR TYPE STRING,
XREF1 TYPE STRING,
XREF2 TYPE STRING,
XREF3 TYPE STRING,
DTWS1 TYPE STRING,
DTWS2 TYPE STRING,
DTWS3 TYPE STRING,
DTWS4 TYPE STRING,
XCPDD TYPE STRING,
BUPLA TYPE STRING,
PPRCT TYPE STRING,
GRANT_NBR TYPE STRING,
FKBER TYPE STRING,
GEBER TYPE STRING,
XINVE TYPE STRING,
KEYNO TYPE STRING,
PAMTF TYPE STRING,
ORIGIN TYPE STRING,
EPIC_PROCESSOR TYPE STRING,
EPIC_STATUS TYPE STRING,
EPIC_EDITED TYPE STRING,
AVC_STATUS TYPE STRING,
AVC_PRIORITY TYPE STRING,
FIPOS_ES TYPE STRING,
FISTL_ES TYPE STRING,
GRANT_NBR_ES TYPE STRING,
FKBER_ES TYPE STRING,
GEBER_ES TYPE STRING,
PROJK_ES TYPE STRING,
CISUB1_ES TYPE STRING,
CISUB2_ES TYPE STRING,
CISUB3_ES TYPE STRING,
CISUB4_ES TYPE STRING,
CISUB5_ES TYPE STRING,
LOTKZ_ES TYPE STRING,
EBELN_CO TYPE STRING,
SAPLONGNUM TYPE STRING,
KBLNR TYPE STRING,
ACCOUNTANT TYPE STRING,
CO_STATUS TYPE STRING,
STCD2 TYPE STRING,
POKEN TYPE STRING,
ZLSPR TYPE STRING,
LAUFD_PAY TYPE STRING,
LAUFI_PAY TYPE STRING,
VBLNR_PAY TYPE STRING,
PYORD_PAY TYPE STRING,
XF110_EXEC TYPE STRING,
LAUFD TYPE STRING,
LAUFI TYPE STRING,
KURST TYPE STRING,
JOBCOUNT TYPE STRING,
ZBUKR TYPE STRING,
ABSBU TYPE STRING,
ZNME1 TYPE STRING,
ZPSTL TYPE STRING,
ZORT1 TYPE STRING,
ZLAND TYPE STRING,
ZREGI TYPE STRING,
ZSPRA TYPE STRING,
NAME1 TYPE STRING,
ZBVTY TYPE STRING,
ZBNKS TYPE STRING,
ZBNKY TYPE STRING,
ZBNKL TYPE STRING,
ZBNKN TYPE STRING,
ZBKON TYPE STRING,
BKREF TYPE STRING,
ZSWIF TYPE STRING,
ZIBAN TYPE STRING,
KOINH TYPE STRING,
HKTID TYPE STRING,
HBKID TYPE STRING,
UBNKS TYPE STRING,
UBNKY TYPE STRING,
UBNKL TYPE STRING,
UBKNT TYPE STRING,
UBKON TYPE STRING,
UBHKT TYPE STRING,
RZAWE TYPE STRING,
UZAWE TYPE STRING,
DTAWS TYPE STRING,
ZALDT TYPE STRING,
VALUT TYPE STRING,
AUSFD TYPE STRING,
ANFAE TYPE STRING,
WEFAE TYPE STRING,
WDATE TYPE STRING,
BUSAB TYPE STRING,
EIKTO TYPE STRING,
KIDNO TYPE STRING,
RFTTRN TYPE STRING,
BTYP1 TYPE STRING,
BNKS1 TYPE STRING,
BNKL1 TYPE STRING,
BNKN1 TYPE STRING,
BTYP2 TYPE STRING,
BNKS2 TYPE STRING,
BNKL2 TYPE STRING,
BNKN2 TYPE STRING,
BTYP3 TYPE STRING,
BNKS3 TYPE STRING,
BNKL3 TYPE STRING,
BNKN3 TYPE STRING,
MGUID TYPE STRING,
MNDID TYPE STRING,
INV_NO TYPE STRING,
INV_YEAR TYPE STRING,
INV_ITEM TYPE STRING,
STATUS_DESCR TYPE STRING,
LEVEL_DESCR TYPE STRING,
LTEXT TYPE STRING,
TEXT_BSLT TYPE STRING,
WRBTR_V TYPE STRING,
SKFBT_V TYPE STRING,
WSKTO_V TYPE STRING,
QBSHB_V TYPE STRING,
PSWBT_V TYPE STRING,
PSSKT_V TYPE STRING,
SNAME TYPE STRING,
BANKA TYPE STRING,
TEXT1 TYPE STRING,
TEXT TYPE STRING,
COLOR TYPE STRING,
AVC_STATUS_ICON TYPE STRING,END OF T_EKKO_STR. DATA: WA_FPRL_S_CESSION_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_FPRL_S_CESSION_STR-GUID sy-vline
WA_FPRL_S_CESSION_STR-LIST_ID sy-vline
WA_FPRL_S_CESSION_STR-STATUS sy-vline
WA_FPRL_S_CESSION_STR-ALEVEL sy-vline
WA_FPRL_S_CESSION_STR-CREA_USER sy-vline
WA_FPRL_S_CESSION_STR-CREA_TIME sy-vline
WA_FPRL_S_CESSION_STR-CHANGE_USER sy-vline
WA_FPRL_S_CESSION_STR-CHANGE_TIME sy-vline
WA_FPRL_S_CESSION_STR-APPLIC sy-vline
WA_FPRL_S_CESSION_STR-BUKRS sy-vline
WA_FPRL_S_CESSION_STR-BELNR sy-vline
WA_FPRL_S_CESSION_STR-GJAHR sy-vline
WA_FPRL_S_CESSION_STR-BUZEI sy-vline
WA_FPRL_S_CESSION_STR-LIFNR sy-vline
WA_FPRL_S_CESSION_STR-KUNNR sy-vline
WA_FPRL_S_CESSION_STR-FILKD sy-vline
WA_FPRL_S_CESSION_STR-EMPFB sy-vline
WA_FPRL_S_CESSION_STR-VBUND sy-vline
WA_FPRL_S_CESSION_STR-SHKZG sy-vline
WA_FPRL_S_CESSION_STR-WAERS sy-vline
WA_FPRL_S_CESSION_STR-WRBTR sy-vline
WA_FPRL_S_CESSION_STR-SKFBT sy-vline
WA_FPRL_S_CESSION_STR-WSKTO sy-vline
WA_FPRL_S_CESSION_STR-QBSHB sy-vline
WA_FPRL_S_CESSION_STR-PSWSL sy-vline
WA_FPRL_S_CESSION_STR-PSWBT sy-vline
WA_FPRL_S_CESSION_STR-PSSKT sy-vline
WA_FPRL_S_CESSION_STR-BLART sy-vline
WA_FPRL_S_CESSION_STR-BUDAT sy-vline
WA_FPRL_S_CESSION_STR-BLDAT sy-vline
WA_FPRL_S_CESSION_STR-KOART sy-vline
WA_FPRL_S_CESSION_STR-BSCHL sy-vline
WA_FPRL_S_CESSION_STR-HKONT sy-vline
WA_FPRL_S_CESSION_STR-SAKNR sy-vline
WA_FPRL_S_CESSION_STR-UMSKZ sy-vline
WA_FPRL_S_CESSION_STR-GSBER sy-vline
WA_FPRL_S_CESSION_STR-MWSKZ sy-vline
WA_FPRL_S_CESSION_STR-QSSKZ sy-vline
WA_FPRL_S_CESSION_STR-SGTXT sy-vline
WA_FPRL_S_CESSION_STR-ZFBDT sy-vline
WA_FPRL_S_CESSION_STR-ZBD1T sy-vline
WA_FPRL_S_CESSION_STR-ZBD2T sy-vline
WA_FPRL_S_CESSION_STR-ZBD3T sy-vline
WA_FPRL_S_CESSION_STR-ZBD1P sy-vline
WA_FPRL_S_CESSION_STR-ZBD2P sy-vline
WA_FPRL_S_CESSION_STR-XREBZ sy-vline
WA_FPRL_S_CESSION_STR-ESRNR sy-vline
WA_FPRL_S_CESSION_STR-ESRRE sy-vline
WA_FPRL_S_CESSION_STR-ESRPZ sy-vline
WA_FPRL_S_CESSION_STR-EBELN sy-vline
WA_FPRL_S_CESSION_STR-EBELP sy-vline
WA_FPRL_S_CESSION_STR-STCEG sy-vline
WA_FPRL_S_CESSION_STR-XBLNR sy-vline
WA_FPRL_S_CESSION_STR-LZBKZ sy-vline
WA_FPRL_S_CESSION_STR-LANDL sy-vline
WA_FPRL_S_CESSION_STR-NPLNR sy-vline
WA_FPRL_S_CESSION_STR-AUFPL sy-vline
WA_FPRL_S_CESSION_STR-ZUONR sy-vline
WA_FPRL_S_CESSION_STR-VERTN sy-vline
WA_FPRL_S_CESSION_STR-REBZT sy-vline
WA_FPRL_S_CESSION_STR-REBZG sy-vline
WA_FPRL_S_CESSION_STR-REBZJ sy-vline
WA_FPRL_S_CESSION_STR-REBZZ sy-vline
WA_FPRL_S_CESSION_STR-KOSTL sy-vline
WA_FPRL_S_CESSION_STR-VBEL2 sy-vline
WA_FPRL_S_CESSION_STR-POSN2 sy-vline
WA_FPRL_S_CESSION_STR-PRCTR sy-vline
WA_FPRL_S_CESSION_STR-XREF1 sy-vline
WA_FPRL_S_CESSION_STR-XREF2 sy-vline
WA_FPRL_S_CESSION_STR-XREF3 sy-vline
WA_FPRL_S_CESSION_STR-DTWS1 sy-vline
WA_FPRL_S_CESSION_STR-DTWS2 sy-vline
WA_FPRL_S_CESSION_STR-DTWS3 sy-vline
WA_FPRL_S_CESSION_STR-DTWS4 sy-vline
WA_FPRL_S_CESSION_STR-XCPDD sy-vline
WA_FPRL_S_CESSION_STR-BUPLA sy-vline
WA_FPRL_S_CESSION_STR-PPRCT sy-vline
WA_FPRL_S_CESSION_STR-GRANT_NBR sy-vline
WA_FPRL_S_CESSION_STR-FKBER sy-vline
WA_FPRL_S_CESSION_STR-GEBER sy-vline
WA_FPRL_S_CESSION_STR-XINVE sy-vline
WA_FPRL_S_CESSION_STR-KEYNO sy-vline
WA_FPRL_S_CESSION_STR-PAMTF sy-vline
WA_FPRL_S_CESSION_STR-ORIGIN sy-vline
WA_FPRL_S_CESSION_STR-EPIC_PROCESSOR sy-vline
WA_FPRL_S_CESSION_STR-EPIC_STATUS sy-vline
WA_FPRL_S_CESSION_STR-EPIC_EDITED sy-vline
WA_FPRL_S_CESSION_STR-AVC_STATUS sy-vline
WA_FPRL_S_CESSION_STR-AVC_PRIORITY sy-vline
WA_FPRL_S_CESSION_STR-FIPOS_ES sy-vline
WA_FPRL_S_CESSION_STR-FISTL_ES sy-vline
WA_FPRL_S_CESSION_STR-GRANT_NBR_ES sy-vline
WA_FPRL_S_CESSION_STR-FKBER_ES sy-vline
WA_FPRL_S_CESSION_STR-GEBER_ES sy-vline
WA_FPRL_S_CESSION_STR-PROJK_ES sy-vline
WA_FPRL_S_CESSION_STR-CISUB1_ES sy-vline
WA_FPRL_S_CESSION_STR-CISUB2_ES sy-vline
WA_FPRL_S_CESSION_STR-CISUB3_ES sy-vline
WA_FPRL_S_CESSION_STR-CISUB4_ES sy-vline
WA_FPRL_S_CESSION_STR-CISUB5_ES sy-vline
WA_FPRL_S_CESSION_STR-LOTKZ_ES sy-vline
WA_FPRL_S_CESSION_STR-EBELN_CO sy-vline
WA_FPRL_S_CESSION_STR-SAPLONGNUM sy-vline
WA_FPRL_S_CESSION_STR-KBLNR sy-vline
WA_FPRL_S_CESSION_STR-ACCOUNTANT sy-vline
WA_FPRL_S_CESSION_STR-CO_STATUS sy-vline
WA_FPRL_S_CESSION_STR-STCD2 sy-vline
WA_FPRL_S_CESSION_STR-POKEN sy-vline
WA_FPRL_S_CESSION_STR-ZLSPR sy-vline
WA_FPRL_S_CESSION_STR-LAUFD_PAY sy-vline
WA_FPRL_S_CESSION_STR-LAUFI_PAY sy-vline
WA_FPRL_S_CESSION_STR-VBLNR_PAY sy-vline
WA_FPRL_S_CESSION_STR-PYORD_PAY sy-vline
WA_FPRL_S_CESSION_STR-XF110_EXEC sy-vline
WA_FPRL_S_CESSION_STR-LAUFD sy-vline
WA_FPRL_S_CESSION_STR-LAUFI sy-vline
WA_FPRL_S_CESSION_STR-KURST sy-vline
WA_FPRL_S_CESSION_STR-JOBCOUNT sy-vline
WA_FPRL_S_CESSION_STR-ZBUKR sy-vline
WA_FPRL_S_CESSION_STR-ABSBU sy-vline
WA_FPRL_S_CESSION_STR-ZNME1 sy-vline
WA_FPRL_S_CESSION_STR-ZPSTL sy-vline
WA_FPRL_S_CESSION_STR-ZORT1 sy-vline
WA_FPRL_S_CESSION_STR-ZLAND sy-vline
WA_FPRL_S_CESSION_STR-ZREGI sy-vline
WA_FPRL_S_CESSION_STR-ZSPRA sy-vline
WA_FPRL_S_CESSION_STR-NAME1 sy-vline
WA_FPRL_S_CESSION_STR-ZBVTY sy-vline
WA_FPRL_S_CESSION_STR-ZBNKS sy-vline
WA_FPRL_S_CESSION_STR-ZBNKY sy-vline
WA_FPRL_S_CESSION_STR-ZBNKL sy-vline
WA_FPRL_S_CESSION_STR-ZBNKN sy-vline
WA_FPRL_S_CESSION_STR-ZBKON sy-vline
WA_FPRL_S_CESSION_STR-BKREF sy-vline
WA_FPRL_S_CESSION_STR-ZSWIF sy-vline
WA_FPRL_S_CESSION_STR-ZIBAN sy-vline
WA_FPRL_S_CESSION_STR-KOINH sy-vline
WA_FPRL_S_CESSION_STR-HKTID sy-vline
WA_FPRL_S_CESSION_STR-HBKID sy-vline
WA_FPRL_S_CESSION_STR-UBNKS sy-vline
WA_FPRL_S_CESSION_STR-UBNKY sy-vline
WA_FPRL_S_CESSION_STR-UBNKL sy-vline
WA_FPRL_S_CESSION_STR-UBKNT sy-vline
WA_FPRL_S_CESSION_STR-UBKON sy-vline
WA_FPRL_S_CESSION_STR-UBHKT sy-vline
WA_FPRL_S_CESSION_STR-RZAWE sy-vline
WA_FPRL_S_CESSION_STR-UZAWE sy-vline
WA_FPRL_S_CESSION_STR-DTAWS sy-vline
WA_FPRL_S_CESSION_STR-ZALDT sy-vline
WA_FPRL_S_CESSION_STR-VALUT sy-vline
WA_FPRL_S_CESSION_STR-AUSFD sy-vline
WA_FPRL_S_CESSION_STR-ANFAE sy-vline
WA_FPRL_S_CESSION_STR-WEFAE sy-vline
WA_FPRL_S_CESSION_STR-WDATE sy-vline
WA_FPRL_S_CESSION_STR-BUSAB sy-vline
WA_FPRL_S_CESSION_STR-EIKTO sy-vline
WA_FPRL_S_CESSION_STR-KIDNO sy-vline
WA_FPRL_S_CESSION_STR-RFTTRN sy-vline
WA_FPRL_S_CESSION_STR-BTYP1 sy-vline
WA_FPRL_S_CESSION_STR-BNKS1 sy-vline
WA_FPRL_S_CESSION_STR-BNKL1 sy-vline
WA_FPRL_S_CESSION_STR-BNKN1 sy-vline
WA_FPRL_S_CESSION_STR-BTYP2 sy-vline
WA_FPRL_S_CESSION_STR-BNKS2 sy-vline
WA_FPRL_S_CESSION_STR-BNKL2 sy-vline
WA_FPRL_S_CESSION_STR-BNKN2 sy-vline
WA_FPRL_S_CESSION_STR-BTYP3 sy-vline
WA_FPRL_S_CESSION_STR-BNKS3 sy-vline
WA_FPRL_S_CESSION_STR-BNKL3 sy-vline
WA_FPRL_S_CESSION_STR-BNKN3 sy-vline
WA_FPRL_S_CESSION_STR-MGUID sy-vline
WA_FPRL_S_CESSION_STR-MNDID sy-vline
WA_FPRL_S_CESSION_STR-INV_NO sy-vline
WA_FPRL_S_CESSION_STR-INV_YEAR sy-vline
WA_FPRL_S_CESSION_STR-INV_ITEM sy-vline
WA_FPRL_S_CESSION_STR-STATUS_DESCR sy-vline
WA_FPRL_S_CESSION_STR-LEVEL_DESCR sy-vline
WA_FPRL_S_CESSION_STR-LTEXT sy-vline
WA_FPRL_S_CESSION_STR-TEXT_BSLT sy-vline
WA_FPRL_S_CESSION_STR-WRBTR_V sy-vline
WA_FPRL_S_CESSION_STR-SKFBT_V sy-vline
WA_FPRL_S_CESSION_STR-WSKTO_V sy-vline
WA_FPRL_S_CESSION_STR-QBSHB_V sy-vline
WA_FPRL_S_CESSION_STR-PSWBT_V sy-vline
WA_FPRL_S_CESSION_STR-PSSKT_V sy-vline
WA_FPRL_S_CESSION_STR-SNAME sy-vline
WA_FPRL_S_CESSION_STR-BANKA sy-vline
WA_FPRL_S_CESSION_STR-TEXT1 sy-vline
WA_FPRL_S_CESSION_STR-TEXT sy-vline
WA_FPRL_S_CESSION_STR-COLOR sy-vline
WA_FPRL_S_CESSION_STR-AVC_STATUS_ICON sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.