ABAP Select data from SAP table CEPL4A 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 CEPL4A 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 CEPL4A. 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 CEPL4A 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_CEPL4A TYPE STANDARD TABLE OF CEPL4A,
      WA_CEPL4A TYPE CEPL4A,
      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: <CEPL4A> TYPE CEPL4A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CEPL4A
*  INTO TABLE @DATA(IT_CEPL4A2).
*--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_CEPL4A INDEX 1 INTO DATA(WA_CEPL4A2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CEPL4A>-RAHMEN1 = 1.
<CEPL4A>-VPERIO = 1.
<CEPL4A>-BPERIO = 1.
<CEPL4A>-VERSI = 1.
<CEPL4A>-VERSITX = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CEPL4A-VRGAR, sy-vline,
  WA_CEPL4A-VRGARTX, sy-vline,
  WA_CEPL4A-ARTFNAM, sy-vline,
  WA_CEPL4A-ARTFNAMTX, sy-vline,
  WA_CEPL4A-MNGFNAM, sy-vline,
  WA_CEPL4A-MNGFNAMTX, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CEPL4A 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_CEPL4A 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_CEPL4A INTO WA_CEPL4A.


*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 PERI7, internal->external for field VPERIO
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-VPERIO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-VPERIO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI7, internal->external for field BPERIO
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-BPERIO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-BPERIO.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit PERI7, internal->external for field REVPERIO
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-REVPERIO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-REVPERIO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI7, internal->external for field REBPERIO
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-REBPERIO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-REBPERIO.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit PERI7, internal->external for field REVPERIO2
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-REVPERIO2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-REVPERIO2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI7, internal->external for field REBPERIO2
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-REBPERIO2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-REBPERIO2.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ALPHA, internal->external for field RBELN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4A-RBELN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4A-RBELN.
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_CEPL4A_STR, 
RAHMEN1 TYPE STRING,
VPERIO TYPE STRING,
BPERIO TYPE STRING,
VERSI TYPE STRING,
VERSITX TYPE STRING,
VRGAR TYPE STRING,
VRGARTX TYPE STRING,
ARTFNAM TYPE STRING,
ARTFNAMTX TYPE STRING,
MNGFNAM TYPE STRING,
MNGFNAMTX TYPE STRING,
LICOZU TYPE STRING,
PERIOKZ TYPE STRING,
WOCHENKZ TYPE STRING,
ALLEBS TYPE STRING,
PRCTRBS TYPE STRING,
LEGALBS TYPE STRING,
RAHMEN2 TYPE STRING,
REVPERIO TYPE STRING,
REBPERIO TYPE STRING,
REVERSI TYPE STRING,
REVERSITX TYPE STRING,
REVRGAR TYPE STRING,
REVRGARTX TYPE STRING,
PLADAT TYPE STRING,
ISTDAT TYPE STRING,
PERKUM TYPE STRING,
VRGKUM TYPE STRING,
WAHRTXT TYPE STRING,
QUELLWH TYPE STRING,
BUKRSWH TYPE STRING,
ERKRSWH TYPE STRING,
RAHMEN8 TYPE STRING,
WFFIX TYPE STRING,
WKOFNAM TYPE STRING,
WKOFNAMTX TYPE STRING,
WFANA TYPE STRING,
RAHMEN3 TYPE STRING,
RAHMEN30 TYPE STRING,
PRPFL TYPE STRING,
PRPFLTX TYPE STRING,
PRPFL_PLSZ TYPE STRING,
PRPFL_PLSZTX TYPE STRING,
RAHMEN31 TYPE STRING,
VTL TYPE STRING,
VTLTX TYPE STRING,
VTL_PLSZ TYPE STRING,
VTL_PLSZTX TYPE STRING,
RAHMEN32 TYPE STRING,
REVAL TYPE STRING,
REVALTX TYPE STRING,
REVAL_PLSZ TYPE STRING,
REVAL_PLSZTX TYPE STRING,
REVAL_INVERS TYPE STRING,
RAHMEN33 TYPE STRING,
TREVAL TYPE STRING,
TREVALTX TYPE STRING,
TREVAL_PLSZ TYPE STRING,
TREVAL_PLSZTX TYPE STRING,
TREVAL_INVERS TYPE STRING,
BEWERT TYPE STRING,
EXITNR TYPE STRING,
EXITNRTX TYPE STRING,
DATUM TYPE STRING,
UZEIT TYPE STRING,
TDVERF TYPE STRING,
TDVERFTX TYPE STRING,
RAHMEN4 TYPE STRING,
UEBERN TYPE STRING,
ADDIER TYPE STRING,
SUBTRA TYPE STRING,
RAHMEN7 TYPE STRING,
QSCHEM TYPE STRING,
QSCHEMTX TYPE STRING,
EXITNR2 TYPE STRING,
EXITNR2TX TYPE STRING,
REVPERIO2 TYPE STRING,
REBPERIO2 TYPE STRING,
REVERSI2 TYPE STRING,
REVERSITX2 TYPE STRING,
REVRGAR2 TYPE STRING,
REVRGARTX2 TYPE STRING,
PLADAT2 TYPE STRING,
ISTDAT2 TYPE STRING,
RAHMEN6 TYPE STRING,
VRSIO TYPE STRING,
VRSIOTX TYPE STRING,
RAHMEN5 TYPE STRING,
VALOW TYPE STRING,
PERGER TYPE STRING,
AENDUE TYPE STRING,
TEST TYPE STRING,
BATCH TYPE STRING,
NVTEXT TYPE STRING,
NVDEL TYPE STRING,
NVKEEP TYPE STRING,
NVSCAL TYPE STRING,
LOW TYPE STRING,
LOWTX TYPE STRING,
ICON_MORE TYPE STRING,
MERKTX TYPE STRING,
TDMERK TYPE STRING,
MLOW TYPE STRING,
MLOWTX TYPE STRING,
MHIGH TYPE STRING,
MHIGHTX TYPE STRING,
MMERKTX TYPE STRING,
MERKUE TYPE STRING,
MERKVD TYPE STRING,
MERKCP TYPE STRING,
BELNR TYPE STRING,
RBELN TYPE STRING,
RAHMEN9 TYPE STRING,
ICON_MORE_BELNR TYPE STRING,
ICON_ADD_SLCT TYPE STRING,
ICON_MORE_RBELN TYPE STRING,
ICON_MORE_VRGAR TYPE STRING,
ICON_MORE_REVRGAR TYPE STRING,
MERKREF TYPE STRING,
FIRSTCOLTXT TYPE STRING,
SECNDCOLTXT TYPE STRING,
TD_ERR TYPE STRING,
PB_ERR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CEPL4A_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_CEPL4A_STR-RAHMEN1 sy-vline 
WA_CEPL4A_STR-VPERIO sy-vline 
WA_CEPL4A_STR-BPERIO sy-vline 
WA_CEPL4A_STR-VERSI sy-vline 
WA_CEPL4A_STR-VERSITX sy-vline 
WA_CEPL4A_STR-VRGAR sy-vline 
WA_CEPL4A_STR-VRGARTX sy-vline 
WA_CEPL4A_STR-ARTFNAM sy-vline 
WA_CEPL4A_STR-ARTFNAMTX sy-vline 
WA_CEPL4A_STR-MNGFNAM sy-vline 
WA_CEPL4A_STR-MNGFNAMTX sy-vline 
WA_CEPL4A_STR-LICOZU sy-vline 
WA_CEPL4A_STR-PERIOKZ sy-vline 
WA_CEPL4A_STR-WOCHENKZ sy-vline 
WA_CEPL4A_STR-ALLEBS sy-vline 
WA_CEPL4A_STR-PRCTRBS sy-vline 
WA_CEPL4A_STR-LEGALBS sy-vline 
WA_CEPL4A_STR-RAHMEN2 sy-vline 
WA_CEPL4A_STR-REVPERIO sy-vline 
WA_CEPL4A_STR-REBPERIO sy-vline 
WA_CEPL4A_STR-REVERSI sy-vline 
WA_CEPL4A_STR-REVERSITX sy-vline 
WA_CEPL4A_STR-REVRGAR sy-vline 
WA_CEPL4A_STR-REVRGARTX sy-vline 
WA_CEPL4A_STR-PLADAT sy-vline 
WA_CEPL4A_STR-ISTDAT sy-vline 
WA_CEPL4A_STR-PERKUM sy-vline 
WA_CEPL4A_STR-VRGKUM sy-vline 
WA_CEPL4A_STR-WAHRTXT sy-vline 
WA_CEPL4A_STR-QUELLWH sy-vline 
WA_CEPL4A_STR-BUKRSWH sy-vline 
WA_CEPL4A_STR-ERKRSWH sy-vline 
WA_CEPL4A_STR-RAHMEN8 sy-vline 
WA_CEPL4A_STR-WFFIX sy-vline 
WA_CEPL4A_STR-WKOFNAM sy-vline 
WA_CEPL4A_STR-WKOFNAMTX sy-vline 
WA_CEPL4A_STR-WFANA sy-vline 
WA_CEPL4A_STR-RAHMEN3 sy-vline 
WA_CEPL4A_STR-RAHMEN30 sy-vline 
WA_CEPL4A_STR-PRPFL sy-vline 
WA_CEPL4A_STR-PRPFLTX sy-vline 
WA_CEPL4A_STR-PRPFL_PLSZ sy-vline 
WA_CEPL4A_STR-PRPFL_PLSZTX sy-vline 
WA_CEPL4A_STR-RAHMEN31 sy-vline 
WA_CEPL4A_STR-VTL sy-vline 
WA_CEPL4A_STR-VTLTX sy-vline 
WA_CEPL4A_STR-VTL_PLSZ sy-vline 
WA_CEPL4A_STR-VTL_PLSZTX sy-vline 
WA_CEPL4A_STR-RAHMEN32 sy-vline 
WA_CEPL4A_STR-REVAL sy-vline 
WA_CEPL4A_STR-REVALTX sy-vline 
WA_CEPL4A_STR-REVAL_PLSZ sy-vline 
WA_CEPL4A_STR-REVAL_PLSZTX sy-vline 
WA_CEPL4A_STR-REVAL_INVERS sy-vline 
WA_CEPL4A_STR-RAHMEN33 sy-vline 
WA_CEPL4A_STR-TREVAL sy-vline 
WA_CEPL4A_STR-TREVALTX sy-vline 
WA_CEPL4A_STR-TREVAL_PLSZ sy-vline 
WA_CEPL4A_STR-TREVAL_PLSZTX sy-vline 
WA_CEPL4A_STR-TREVAL_INVERS sy-vline 
WA_CEPL4A_STR-BEWERT sy-vline 
WA_CEPL4A_STR-EXITNR sy-vline 
WA_CEPL4A_STR-EXITNRTX sy-vline 
WA_CEPL4A_STR-DATUM sy-vline 
WA_CEPL4A_STR-UZEIT sy-vline 
WA_CEPL4A_STR-TDVERF sy-vline 
WA_CEPL4A_STR-TDVERFTX sy-vline 
WA_CEPL4A_STR-RAHMEN4 sy-vline 
WA_CEPL4A_STR-UEBERN sy-vline 
WA_CEPL4A_STR-ADDIER sy-vline 
WA_CEPL4A_STR-SUBTRA sy-vline 
WA_CEPL4A_STR-RAHMEN7 sy-vline 
WA_CEPL4A_STR-QSCHEM sy-vline 
WA_CEPL4A_STR-QSCHEMTX sy-vline 
WA_CEPL4A_STR-EXITNR2 sy-vline 
WA_CEPL4A_STR-EXITNR2TX sy-vline 
WA_CEPL4A_STR-REVPERIO2 sy-vline 
WA_CEPL4A_STR-REBPERIO2 sy-vline 
WA_CEPL4A_STR-REVERSI2 sy-vline 
WA_CEPL4A_STR-REVERSITX2 sy-vline 
WA_CEPL4A_STR-REVRGAR2 sy-vline 
WA_CEPL4A_STR-REVRGARTX2 sy-vline 
WA_CEPL4A_STR-PLADAT2 sy-vline 
WA_CEPL4A_STR-ISTDAT2 sy-vline 
WA_CEPL4A_STR-RAHMEN6 sy-vline 
WA_CEPL4A_STR-VRSIO sy-vline 
WA_CEPL4A_STR-VRSIOTX sy-vline 
WA_CEPL4A_STR-RAHMEN5 sy-vline 
WA_CEPL4A_STR-VALOW sy-vline 
WA_CEPL4A_STR-PERGER sy-vline 
WA_CEPL4A_STR-AENDUE sy-vline 
WA_CEPL4A_STR-TEST sy-vline 
WA_CEPL4A_STR-BATCH sy-vline 
WA_CEPL4A_STR-NVTEXT sy-vline 
WA_CEPL4A_STR-NVDEL sy-vline 
WA_CEPL4A_STR-NVKEEP sy-vline 
WA_CEPL4A_STR-NVSCAL sy-vline 
WA_CEPL4A_STR-LOW sy-vline 
WA_CEPL4A_STR-LOWTX sy-vline 
WA_CEPL4A_STR-ICON_MORE sy-vline 
WA_CEPL4A_STR-MERKTX sy-vline 
WA_CEPL4A_STR-TDMERK sy-vline 
WA_CEPL4A_STR-MLOW sy-vline 
WA_CEPL4A_STR-MLOWTX sy-vline 
WA_CEPL4A_STR-MHIGH sy-vline 
WA_CEPL4A_STR-MHIGHTX sy-vline 
WA_CEPL4A_STR-MMERKTX sy-vline 
WA_CEPL4A_STR-MERKUE sy-vline 
WA_CEPL4A_STR-MERKVD sy-vline 
WA_CEPL4A_STR-MERKCP sy-vline 
WA_CEPL4A_STR-BELNR sy-vline 
WA_CEPL4A_STR-RBELN sy-vline 
WA_CEPL4A_STR-RAHMEN9 sy-vline 
WA_CEPL4A_STR-ICON_MORE_BELNR sy-vline 
WA_CEPL4A_STR-ICON_ADD_SLCT sy-vline 
WA_CEPL4A_STR-ICON_MORE_RBELN sy-vline 
WA_CEPL4A_STR-ICON_MORE_VRGAR sy-vline 
WA_CEPL4A_STR-ICON_MORE_REVRGAR sy-vline 
WA_CEPL4A_STR-MERKREF sy-vline 
WA_CEPL4A_STR-FIRSTCOLTXT sy-vline 
WA_CEPL4A_STR-SECNDCOLTXT sy-vline 
WA_CEPL4A_STR-TD_ERR sy-vline 
WA_CEPL4A_STR-PB_ERR sy-vline      INTO ld_text SEPARATED BY SPACE.

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