ABAP Select data from SAP table PUNPAD_EGCONS_SEPA 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 PUNPAD_EGCONS_SEPA 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 PUNPAD_EGCONS_SEPA. 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 PUNPAD_EGCONS_SEPA 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_PUNPAD_EGCONS_SEPA TYPE STANDARD TABLE OF PUNPAD_EGCONS_SEPA,
      WA_PUNPAD_EGCONS_SEPA TYPE PUNPAD_EGCONS_SEPA,
      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: <PUNPAD_EGCONS_SEPA> TYPE PUNPAD_EGCONS_SEPA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PUNPAD_EGCONS_SEPA
*  INTO TABLE @DATA(IT_PUNPAD_EGCONS_SEPA2).
*--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_PUNPAD_EGCONS_SEPA INDEX 1 INTO DATA(WA_PUNPAD_EGCONS_SEPA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PUNPAD_EGCONS_SEPA>-PERNR = 1.
<PUNPAD_EGCONS_SEPA>-INFTY = 1.
<PUNPAD_EGCONS_SEPA>-SUBTY = 1.
<PUNPAD_EGCONS_SEPA>-OBJPS = 1.
<PUNPAD_EGCONS_SEPA>-SPRPS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PUNPAD_EGCONS_SEPA-ENDDA, sy-vline,
  WA_PUNPAD_EGCONS_SEPA-BEGDA, sy-vline,
  WA_PUNPAD_EGCONS_SEPA-SEQNR, sy-vline,
  WA_PUNPAD_EGCONS_SEPA-AEDTM, sy-vline,
  WA_PUNPAD_EGCONS_SEPA-UNAME, sy-vline,
  WA_PUNPAD_EGCONS_SEPA-HISTO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PUNPAD_EGCONS_SEPA 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_PUNPAD_EGCONS_SEPA 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_PUNPAD_EGCONS_SEPA INTO WA_PUNPAD_EGCONS_SEPA.


*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 EXCRT, internal->external for field TUITION_EXCHG
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_PUNPAD_EGCONS_SEPA-TUITION_EXCHG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PUNPAD_EGCONS_SEPA-TUITION_EXCHG.
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_PUNPAD_EGCONS_SEPA_STR, 
PERNR TYPE STRING,
INFTY TYPE STRING,
SUBTY TYPE STRING,
OBJPS TYPE STRING,
SPRPS TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
SEQNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
HISTO TYPE STRING,
ITXEX TYPE STRING,
REFEX TYPE STRING,
ORDEX TYPE STRING,
ITBLD TYPE STRING,
PREAS TYPE STRING,
FLAG1 TYPE STRING,
FLAG2 TYPE STRING,
FLAG3 TYPE STRING,
FLAG4 TYPE STRING,
RESE1 TYPE STRING,
RESE2 TYPE STRING,
GRPVL TYPE STRING,
FAMSA TYPE STRING,
EXMAPPL TYPE STRING,
EXMNR TYPE STRING,
SEQNO TYPE STRING,
EGSST TYPE STRING,
EGCST TYPE STRING,
EGCRS TYPE STRING,
EGDIS TYPE STRING,
EGTYP TYPE STRING,
EGYEA TYPE STRING,
EGYFR TYPE STRING,
EGYTO TYPE STRING,
EGCUR TYPE STRING,
EGEUC TYPE STRING,
EGSCT TYPE STRING,
ORT01 TYPE STRING,
EGSDS TYPE STRING,
EGFAC TYPE STRING,
EGCLS TYPE STRING,
EGGRD TYPE STRING,
EGSSL TYPE STRING,
EGC01 TYPE STRING,
EGC02 TYPE STRING,
EGC03 TYPE STRING,
EGC04 TYPE STRING,
EGC05 TYPE STRING,
EGADV_VERSION TYPE STRING,
EGADV_PYDATE TYPE STRING,
EGRCD TYPE STRING,
EGRIN TYPE STRING,
EGDRP TYPE STRING,
EGOYF TYPE STRING,
EGOYT TYPE STRING,
EGSCD TYPE STRING,
EGSNA TYPE STRING,
EGBRS TYPE STRING,
EGBSG TYPE STRING,
TRFGR TYPE STRING,
TRFST TYPE STRING,
EGSTY TYPE STRING,
EGCDF TYPE STRING,
EGPST TYPE STRING,
EGLIN TYPE STRING,
TUITION_WAERS TYPE STRING,
EGOPR TYPE STRING,
EXTADV TYPE STRING,
EXTCURR TYPE STRING,
EXTADVPAYDT TYPE STRING,
ELIBEGDA TYPE STRING,
ELIENDDA TYPE STRING,
EGPRO TYPE STRING,
EGBPR TYPE STRING,
EGBROVR TYPE STRING,
EGSAR TYPE STRING,
EGADV_CHGRSN TYPE STRING,
EGREV TYPE STRING,
EGRDT TYPE STRING,
EGCAFPRO TYPE STRING,
CAFFAC TYPE STRING,
EGMUL TYPE STRING,
EGRUL TYPE STRING,
ADMISCST TYPE STRING,
MAXBT_ADM TYPE STRING,
REDUCCST TYPE STRING,
NONADCST TYPE STRING,
TOTALCST TYPE STRING,
BOOKS TYPE STRING,
TOTAL075 TYPE STRING,
BOARDING TYPE STRING,
ALLOWABLE TYPE STRING,
MAXBT TYPE STRING,
MAXBT_PRO TYPE STRING,
ADVANCE TYPE STRING,
REPAYMNT TYPE STRING,
BALANCE TYPE STRING,
CLAIM TYPE STRING,
ADVPY TYPE STRING,
PAYMENT TYPE STRING,
WAERS TYPE STRING,
CALC_WAERS TYPE STRING,
EGFAC_B TYPE STRING,
EGRID TYPE STRING,
EGRIO TYPE STRING,
EGRIA TYPE STRING,
ZUORD TYPE STRING,
EXCHG TYPE STRING,
BOOKS_OC TYPE STRING,
WAERS_OC TYPE STRING,
ADJ_EGMAX TYPE STRING,
TUITION_EXCHG TYPE STRING,
EGART TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PUNPAD_EGCONS_SEPA_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_PUNPAD_EGCONS_SEPA_STR-PERNR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-INFTY sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-SUBTY sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-OBJPS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-SPRPS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ENDDA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-BEGDA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-SEQNR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-AEDTM sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-UNAME sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-HISTO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ITXEX sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-REFEX sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ORDEX sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ITBLD sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-PREAS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-FLAG1 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-FLAG2 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-FLAG3 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-FLAG4 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-RESE1 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-RESE2 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-GRPVL sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-FAMSA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXMAPPL sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXMNR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-SEQNO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCRS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGDIS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGTYP sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGYEA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGYFR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGYTO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCUR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGEUC sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSCT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ORT01 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSDS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGFAC sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCLS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGGRD sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSSL sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGC01 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGC02 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGC03 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGC04 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGC05 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGADV_VERSION sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGADV_PYDATE sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRCD sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRIN sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGDRP sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGOYF sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGOYT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSCD sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSNA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGBRS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGBSG sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TRFGR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TRFST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSTY sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCDF sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGPST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGLIN sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TUITION_WAERS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGOPR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXTADV sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXTCURR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXTADVPAYDT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ELIBEGDA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ELIENDDA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGPRO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGBPR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGBROVR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGSAR sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGADV_CHGRSN sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGREV sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRDT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGCAFPRO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-CAFFAC sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGMUL sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRUL sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ADMISCST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-MAXBT_ADM sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-REDUCCST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-NONADCST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TOTALCST sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-BOOKS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TOTAL075 sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-BOARDING sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ALLOWABLE sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-MAXBT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-MAXBT_PRO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ADVANCE sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-REPAYMNT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-BALANCE sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-CLAIM sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ADVPY sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-PAYMENT sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-WAERS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-CALC_WAERS sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGFAC_B sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRID sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRIO sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGRIA sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ZUORD sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EXCHG sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-BOOKS_OC sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-WAERS_OC sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-ADJ_EGMAX sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-TUITION_EXCHG sy-vline 
WA_PUNPAD_EGCONS_SEPA_STR-EGART sy-vline      INTO ld_text SEPARATED BY SPACE.

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