ABAP Select data from SAP table CEPL4B 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 CEPL4B 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 CEPL4B. 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 CEPL4B 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_CEPL4B TYPE STANDARD TABLE OF CEPL4B,
      WA_CEPL4B TYPE CEPL4B,
      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: <CEPL4B> TYPE CEPL4B.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CEPL4B
*  INTO TABLE @DATA(IT_CEPL4B2).
*--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_CEPL4B INDEX 1 INTO DATA(WA_CEPL4B2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CEPL4B>-VPERIO = 1.
<CEPL4B>-BPERIO = 1.
<CEPL4B>-VERSI = 1.
<CEPL4B>-VRGAR = 1.
<CEPL4B>-ARTFNAM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CEPL4B-MNGFNAM, sy-vline,
  WA_CEPL4B-LICOZU, sy-vline,
  WA_CEPL4B-PERIOKZ, sy-vline,
  WA_CEPL4B-WOCHENKZ, sy-vline,
  WA_CEPL4B-ALLEBS, sy-vline,
  WA_CEPL4B-PRCTRBS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CEPL4B 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_CEPL4B 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_CEPL4B INTO WA_CEPL4B.


*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_CEPL4B-VPERIO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4B-VPERIO.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field RBELN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CEPL4B-RBELN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CEPL4B-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_CEPL4B_STR, 
VPERIO TYPE STRING,
BPERIO TYPE STRING,
VERSI TYPE STRING,
VRGAR TYPE STRING,
ARTFNAM TYPE STRING,
MNGFNAM TYPE STRING,
LICOZU TYPE STRING,
PERIOKZ TYPE STRING,
WOCHENKZ TYPE STRING,
ALLEBS TYPE STRING,
PRCTRBS TYPE STRING,
LEGALBS TYPE STRING,
REVPERIO TYPE STRING,
REBPERIO TYPE STRING,
REVERSI TYPE STRING,
REVRGAR TYPE STRING,
PLADAT TYPE STRING,
ISTDAT TYPE STRING,
PERKUM TYPE STRING,
VRGKUM TYPE STRING,
QUELLWH TYPE STRING,
BUKRSWH TYPE STRING,
ERKRSWH TYPE STRING,
WFFIX TYPE STRING,
WKOFNAM TYPE STRING,
WFANA TYPE STRING,
PRPFL TYPE STRING,
PRPFL_PLSZ TYPE STRING,
VTL TYPE STRING,
VTL_PLSZ TYPE STRING,
REVAL TYPE STRING,
REVAL_PLSZ TYPE STRING,
REVAL_INVERS TYPE STRING,
TREVAL TYPE STRING,
TREVAL_PLSZ TYPE STRING,
TREVAL_INVERS TYPE STRING,
BEWERT TYPE STRING,
EXITNR TYPE STRING,
DATUM TYPE STRING,
UZEIT TYPE STRING,
TDVERF TYPE STRING,
UEBERN TYPE STRING,
ADDIER TYPE STRING,
SUBTRA TYPE STRING,
QSCHEM TYPE STRING,
EXITNR2 TYPE STRING,
REVPERIO2 TYPE STRING,
REBPERIO2 TYPE STRING,
REVERSI2 TYPE STRING,
REVRGAR2 TYPE STRING,
PLADAT2 TYPE STRING,
ISTDAT2 TYPE STRING,
VRSIO TYPE STRING,
VRSIOTX TYPE STRING,
VALOW TYPE STRING,
PERGER TYPE STRING,
AENDUE TYPE STRING,
TEST TYPE STRING,
BATCH TYPE STRING,
NVDEL TYPE STRING,
NVKEEP TYPE STRING,
NVSCAL TYPE STRING,
BELNR TYPE STRING,
RBELN TYPE STRING,
TD_ERR TYPE STRING,
PB_ERR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CEPL4B_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_CEPL4B_STR-VPERIO sy-vline 
WA_CEPL4B_STR-BPERIO sy-vline 
WA_CEPL4B_STR-VERSI sy-vline 
WA_CEPL4B_STR-VRGAR sy-vline 
WA_CEPL4B_STR-ARTFNAM sy-vline 
WA_CEPL4B_STR-MNGFNAM sy-vline 
WA_CEPL4B_STR-LICOZU sy-vline 
WA_CEPL4B_STR-PERIOKZ sy-vline 
WA_CEPL4B_STR-WOCHENKZ sy-vline 
WA_CEPL4B_STR-ALLEBS sy-vline 
WA_CEPL4B_STR-PRCTRBS sy-vline 
WA_CEPL4B_STR-LEGALBS sy-vline 
WA_CEPL4B_STR-REVPERIO sy-vline 
WA_CEPL4B_STR-REBPERIO sy-vline 
WA_CEPL4B_STR-REVERSI sy-vline 
WA_CEPL4B_STR-REVRGAR sy-vline 
WA_CEPL4B_STR-PLADAT sy-vline 
WA_CEPL4B_STR-ISTDAT sy-vline 
WA_CEPL4B_STR-PERKUM sy-vline 
WA_CEPL4B_STR-VRGKUM sy-vline 
WA_CEPL4B_STR-QUELLWH sy-vline 
WA_CEPL4B_STR-BUKRSWH sy-vline 
WA_CEPL4B_STR-ERKRSWH sy-vline 
WA_CEPL4B_STR-WFFIX sy-vline 
WA_CEPL4B_STR-WKOFNAM sy-vline 
WA_CEPL4B_STR-WFANA sy-vline 
WA_CEPL4B_STR-PRPFL sy-vline 
WA_CEPL4B_STR-PRPFL_PLSZ sy-vline 
WA_CEPL4B_STR-VTL sy-vline 
WA_CEPL4B_STR-VTL_PLSZ sy-vline 
WA_CEPL4B_STR-REVAL sy-vline 
WA_CEPL4B_STR-REVAL_PLSZ sy-vline 
WA_CEPL4B_STR-REVAL_INVERS sy-vline 
WA_CEPL4B_STR-TREVAL sy-vline 
WA_CEPL4B_STR-TREVAL_PLSZ sy-vline 
WA_CEPL4B_STR-TREVAL_INVERS sy-vline 
WA_CEPL4B_STR-BEWERT sy-vline 
WA_CEPL4B_STR-EXITNR sy-vline 
WA_CEPL4B_STR-DATUM sy-vline 
WA_CEPL4B_STR-UZEIT sy-vline 
WA_CEPL4B_STR-TDVERF sy-vline 
WA_CEPL4B_STR-UEBERN sy-vline 
WA_CEPL4B_STR-ADDIER sy-vline 
WA_CEPL4B_STR-SUBTRA sy-vline 
WA_CEPL4B_STR-QSCHEM sy-vline 
WA_CEPL4B_STR-EXITNR2 sy-vline 
WA_CEPL4B_STR-REVPERIO2 sy-vline 
WA_CEPL4B_STR-REBPERIO2 sy-vline 
WA_CEPL4B_STR-REVERSI2 sy-vline 
WA_CEPL4B_STR-REVRGAR2 sy-vline 
WA_CEPL4B_STR-PLADAT2 sy-vline 
WA_CEPL4B_STR-ISTDAT2 sy-vline 
WA_CEPL4B_STR-VRSIO sy-vline 
WA_CEPL4B_STR-VRSIOTX sy-vline 
WA_CEPL4B_STR-VALOW sy-vline 
WA_CEPL4B_STR-PERGER sy-vline 
WA_CEPL4B_STR-AENDUE sy-vline 
WA_CEPL4B_STR-TEST sy-vline 
WA_CEPL4B_STR-BATCH sy-vline 
WA_CEPL4B_STR-NVDEL sy-vline 
WA_CEPL4B_STR-NVKEEP sy-vline 
WA_CEPL4B_STR-NVSCAL sy-vline 
WA_CEPL4B_STR-BELNR sy-vline 
WA_CEPL4B_STR-RBELN sy-vline 
WA_CEPL4B_STR-TD_ERR sy-vline 
WA_CEPL4B_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.