ABAP Select data from SAP table PPTS_MID_FILE 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 PPTS_MID_FILE 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 PPTS_MID_FILE. 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 PPTS_MID_FILE 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_PPTS_MID_FILE TYPE STANDARD TABLE OF PPTS_MID_FILE,
      WA_PPTS_MID_FILE TYPE PPTS_MID_FILE,
      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: <PPTS_MID_FILE> TYPE PPTS_MID_FILE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PPTS_MID_FILE
*  INTO TABLE @DATA(IT_PPTS_MID_FILE2).
*--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_PPTS_MID_FILE INDEX 1 INTO DATA(WA_PPTS_MID_FILE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PPTS_MID_FILE>-HEADER_FILE = 1.
<PPTS_MID_FILE>-TREG = 1.
<PPTS_MID_FILE>-FTYP = 1.
<PPTS_MID_FILE>-FVER = 1.
<PPTS_MID_FILE>-FDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PPTS_MID_FILE-HEADER_DEC, sy-vline,
  WA_PPTS_MID_FILE-TREG, sy-vline,
  WA_PPTS_MID_FILE-DTYP, sy-vline,
  WA_PPTS_MID_FILE-TAXNU, sy-vline,
  WA_PPTS_MID_FILE-YEARDEC, sy-vline,
  WA_PPTS_MID_FILE-MONTHDEC, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PPTS_MID_FILE 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_PPTS_MID_FILE 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_PPTS_MID_FILE INTO WA_PPTS_MID_FILE.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_PPTS_MID_FILE_STR, 
HEADER_FILE TYPE STRING,
TREG TYPE STRING,
FTYP TYPE STRING,
FVER TYPE STRING,
FDT TYPE STRING,
HEADER_DEC TYPE STRING,
TREG TYPE STRING,
DTYP TYPE STRING,
TAXNU TYPE STRING,
YEARDEC TYPE STRING,
MONTHDEC TYPE STRING,
CURR TYPE STRING,
HEADER_DMRAT TYPE STRING,
TREG TYPE STRING,
COD_SERV_FIN TYPE STRING,
PRI_DECL_ANO TYPE STRING,
DECL_APRESENT TYPE STRING,
DATA_FACTO TYPE STRING,
NIF_TECN_CONTAS TYPE STRING,
NIF_REPRES_LEGAL TYPE STRING,
DETAIL_DMRAT1 TYPE STRING,
TREG TYPE STRING,
RSVAREN TYPE STRING,
RSREIRS TYPE STRING,
RSCOOBR TYPE STRING,
RSQUSIN TYPE STRING,
RSRESOB TYPE STRING,
RIVAREN TYPE STRING,
RIREIRS TYPE STRING,
RICOOBR TYPE STRING,
RIQUSIN TYPE STRING,
RIRESOB TYPE STRING,
DETAIL_DMRAT2 TYPE STRING,
TREG TYPE STRING,
NSVAREN TYPE STRING,
NSREIRS TYPE STRING,
NSCOOBR TYPE STRING,
NSQUSIN TYPE STRING,
NSRESOB TYPE STRING,
TOVAREN TYPE STRING,
TOREIRS TYPE STRING,
TOCOOBR TYPE STRING,
TOQUSIN TYPE STRING,
TORESOB TYPE STRING,
DETAIL_DMRAT3 TYPE STRING,
TRAILER_DMRAT TYPE STRING,
TREG TYPE STRING,
TOTRAN TYPE STRING,
TOTREN TYPE STRING,
TOTDED TYPE STRING,
TOCOOBR TYPE STRING,
TOQUSIN TYPE STRING,
TORESOB TYPE STRING,
TOTREG TYPE STRING,
TRAILER_DEC TYPE STRING,
TREG TYPE STRING,
NUM_RECORDS TYPE STRING,
TRAILER_FILE TYPE STRING,
TREG TYPE STRING,
NUM_RECORDS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PPTS_MID_FILE_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_PPTS_MID_FILE_STR-HEADER_FILE sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-FTYP sy-vline 
WA_PPTS_MID_FILE_STR-FVER sy-vline 
WA_PPTS_MID_FILE_STR-FDT sy-vline 
WA_PPTS_MID_FILE_STR-HEADER_DEC sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-DTYP sy-vline 
WA_PPTS_MID_FILE_STR-TAXNU sy-vline 
WA_PPTS_MID_FILE_STR-YEARDEC sy-vline 
WA_PPTS_MID_FILE_STR-MONTHDEC sy-vline 
WA_PPTS_MID_FILE_STR-CURR sy-vline 
WA_PPTS_MID_FILE_STR-HEADER_DMRAT sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-COD_SERV_FIN sy-vline 
WA_PPTS_MID_FILE_STR-PRI_DECL_ANO sy-vline 
WA_PPTS_MID_FILE_STR-DECL_APRESENT sy-vline 
WA_PPTS_MID_FILE_STR-DATA_FACTO sy-vline 
WA_PPTS_MID_FILE_STR-NIF_TECN_CONTAS sy-vline 
WA_PPTS_MID_FILE_STR-NIF_REPRES_LEGAL sy-vline 
WA_PPTS_MID_FILE_STR-DETAIL_DMRAT1 sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-RSVAREN sy-vline 
WA_PPTS_MID_FILE_STR-RSREIRS sy-vline 
WA_PPTS_MID_FILE_STR-RSCOOBR sy-vline 
WA_PPTS_MID_FILE_STR-RSQUSIN sy-vline 
WA_PPTS_MID_FILE_STR-RSRESOB sy-vline 
WA_PPTS_MID_FILE_STR-RIVAREN sy-vline 
WA_PPTS_MID_FILE_STR-RIREIRS sy-vline 
WA_PPTS_MID_FILE_STR-RICOOBR sy-vline 
WA_PPTS_MID_FILE_STR-RIQUSIN sy-vline 
WA_PPTS_MID_FILE_STR-RIRESOB sy-vline 
WA_PPTS_MID_FILE_STR-DETAIL_DMRAT2 sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-NSVAREN sy-vline 
WA_PPTS_MID_FILE_STR-NSREIRS sy-vline 
WA_PPTS_MID_FILE_STR-NSCOOBR sy-vline 
WA_PPTS_MID_FILE_STR-NSQUSIN sy-vline 
WA_PPTS_MID_FILE_STR-NSRESOB sy-vline 
WA_PPTS_MID_FILE_STR-TOVAREN sy-vline 
WA_PPTS_MID_FILE_STR-TOREIRS sy-vline 
WA_PPTS_MID_FILE_STR-TOCOOBR sy-vline 
WA_PPTS_MID_FILE_STR-TOQUSIN sy-vline 
WA_PPTS_MID_FILE_STR-TORESOB sy-vline 
WA_PPTS_MID_FILE_STR-DETAIL_DMRAT3 sy-vline 
WA_PPTS_MID_FILE_STR-TRAILER_DMRAT sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-TOTRAN sy-vline 
WA_PPTS_MID_FILE_STR-TOTREN sy-vline 
WA_PPTS_MID_FILE_STR-TOTDED sy-vline 
WA_PPTS_MID_FILE_STR-TOCOOBR sy-vline 
WA_PPTS_MID_FILE_STR-TOQUSIN sy-vline 
WA_PPTS_MID_FILE_STR-TORESOB sy-vline 
WA_PPTS_MID_FILE_STR-TOTREG sy-vline 
WA_PPTS_MID_FILE_STR-TRAILER_DEC sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-NUM_RECORDS sy-vline 
WA_PPTS_MID_FILE_STR-TRAILER_FILE sy-vline 
WA_PPTS_MID_FILE_STR-TREG sy-vline 
WA_PPTS_MID_FILE_STR-NUM_RECORDS sy-vline      INTO ld_text SEPARATED BY SPACE.

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