ABAP Select data from SAP table Q0965 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 Q0965 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 Q0965. 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 Q0965 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_Q0965 TYPE STANDARD TABLE OF Q0965,
      WA_Q0965 TYPE Q0965,
      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: <Q0965> TYPE Q0965.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM Q0965
*  INTO TABLE @DATA(IT_Q09652).
*--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_Q0965 INDEX 1 INTO DATA(WA_Q09652).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<Q0965>-FAMSA = 1.
<Q0965>-FGBDT = 1.
<Q0965>-FGBLD = 1.
<Q0965>-FANAT = 1.
<Q0965>-FASEX = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_Q0965-FAVOR, sy-vline,
  WA_Q0965-FANAM, sy-vline,
  WA_Q0965-FGBOT, sy-vline,
  WA_Q0965-FGDEP, sy-vline,
  WA_Q0965-ERBNR, sy-vline,
  WA_Q0965-FGBNA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_Q0965 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_Q0965 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_Q0965 INTO WA_Q0965.


*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 PDATE, internal->external for field FGBDT
CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'
  EXPORTING
    input =                      WA_Q0965-FGBDT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_Q0965-FGBDT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AHVNR, internal->external for field AHVNR
CALL FUNCTION 'CONVERSION_EXIT_AHVNR_OUTPUT'
  EXPORTING
    input =                      WA_Q0965-AHVNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_Q0965-AHVNR.
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_Q0965_STR, 
FAMSA TYPE STRING,
FGBDT TYPE STRING,
FGBLD TYPE STRING,
FANAT TYPE STRING,
FASEX TYPE STRING,
FAVOR TYPE STRING,
FANAM TYPE STRING,
FGBOT TYPE STRING,
FGDEP TYPE STRING,
ERBNR TYPE STRING,
FGBNA TYPE STRING,
FNAC2 TYPE STRING,
FCNAM TYPE STRING,
FKNZN TYPE STRING,
FINIT TYPE STRING,
FVRSW TYPE STRING,
FVRS2 TYPE STRING,
FNMZU TYPE STRING,
AHVNR TYPE STRING,
KDSVH TYPE STRING,
KDBSL TYPE STRING,
KDUTB TYPE STRING,
KDGBR TYPE STRING,
KDART TYPE STRING,
KDZUG TYPE STRING,
KDZUL TYPE STRING,
KDVBE TYPE STRING,
ERMNR TYPE STRING,
AUSVL TYPE STRING,
AUSVG TYPE STRING,
FASDT TYPE STRING,
FASAR TYPE STRING,
FASIN TYPE STRING,
EGAGA TYPE STRING,
FANA2 TYPE STRING,
FANA3 TYPE STRING,
BETRG TYPE STRING,
TITEL TYPE STRING,
EMRGN TYPE STRING,
MIDNM TYPE STRING,
FAMST TYPE STRING,
FAMDT TYPE STRING,
IRDOA TYPE STRING,
BETR3 TYPE STRING,
WAERS TYPE STRING,
LGART TYPE STRING,
OPKEN TYPE STRING,
DTHDT TYPE STRING,
SPWAE TYPE STRING,
SPEAR TYPE STRING,
EDUAT TYPE STRING,
SPODS TYPE STRING,
FIDEP TYPE STRING,
SPRNR TYPE STRING,
SERTY TYPE STRING,
SERUN TYPE STRING,
SERTX TYPE STRING,
NCCHL TYPE STRING,
TRANS_IND TYPE STRING,
TRANS_DATE TYPE STRING,
FSAMT TYPE STRING,
FSWAER TYPE STRING,
ARRIVAL_DATE TYPE STRING,
EGAGE TYPE STRING,
DSTAT TYPE STRING,
EGDDS TYPE STRING,
GBLND TYPE STRING,
NATIO TYPE STRING,
CTTYP TYPE STRING,
CTEDT TYPE STRING,
EGSSL TYPE STRING,
ENDDA TYPE STRING,
BEGDA TYPE STRING,
EGSNA TYPE STRING,
SLART TYPE STRING,
PSTLZ TYPE STRING,
ORT01 TYPE STRING,
EGSCT TYPE STRING,
STATE TYPE STRING,
STRAS TYPE STRING,
TELNR TYPE STRING,
EGADV_PYDATE TYPE STRING,
ADVPY_MANUAL TYPE STRING,
ADVPY_WAERS TYPE STRING,
DSTAT_O TYPE STRING,
SNAME TYPE STRING,
EGSTY TYPE STRING,
EGCDF TYPE STRING,
NACHN TYPE STRING,
VORNA TYPE STRING,
LSELE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_Q0965_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_Q0965_STR-FAMSA sy-vline 
WA_Q0965_STR-FGBDT sy-vline 
WA_Q0965_STR-FGBLD sy-vline 
WA_Q0965_STR-FANAT sy-vline 
WA_Q0965_STR-FASEX sy-vline 
WA_Q0965_STR-FAVOR sy-vline 
WA_Q0965_STR-FANAM sy-vline 
WA_Q0965_STR-FGBOT sy-vline 
WA_Q0965_STR-FGDEP sy-vline 
WA_Q0965_STR-ERBNR sy-vline 
WA_Q0965_STR-FGBNA sy-vline 
WA_Q0965_STR-FNAC2 sy-vline 
WA_Q0965_STR-FCNAM sy-vline 
WA_Q0965_STR-FKNZN sy-vline 
WA_Q0965_STR-FINIT sy-vline 
WA_Q0965_STR-FVRSW sy-vline 
WA_Q0965_STR-FVRS2 sy-vline 
WA_Q0965_STR-FNMZU sy-vline 
WA_Q0965_STR-AHVNR sy-vline 
WA_Q0965_STR-KDSVH sy-vline 
WA_Q0965_STR-KDBSL sy-vline 
WA_Q0965_STR-KDUTB sy-vline 
WA_Q0965_STR-KDGBR sy-vline 
WA_Q0965_STR-KDART sy-vline 
WA_Q0965_STR-KDZUG sy-vline 
WA_Q0965_STR-KDZUL sy-vline 
WA_Q0965_STR-KDVBE sy-vline 
WA_Q0965_STR-ERMNR sy-vline 
WA_Q0965_STR-AUSVL sy-vline 
WA_Q0965_STR-AUSVG sy-vline 
WA_Q0965_STR-FASDT sy-vline 
WA_Q0965_STR-FASAR sy-vline 
WA_Q0965_STR-FASIN sy-vline 
WA_Q0965_STR-EGAGA sy-vline 
WA_Q0965_STR-FANA2 sy-vline 
WA_Q0965_STR-FANA3 sy-vline 
WA_Q0965_STR-BETRG sy-vline 
WA_Q0965_STR-TITEL sy-vline 
WA_Q0965_STR-EMRGN sy-vline 
WA_Q0965_STR-MIDNM sy-vline 
WA_Q0965_STR-FAMST sy-vline 
WA_Q0965_STR-FAMDT sy-vline 
WA_Q0965_STR-IRDOA sy-vline 
WA_Q0965_STR-BETR3 sy-vline 
WA_Q0965_STR-WAERS sy-vline 
WA_Q0965_STR-LGART sy-vline 
WA_Q0965_STR-OPKEN sy-vline 
WA_Q0965_STR-DTHDT sy-vline 
WA_Q0965_STR-SPWAE sy-vline 
WA_Q0965_STR-SPEAR sy-vline 
WA_Q0965_STR-EDUAT sy-vline 
WA_Q0965_STR-SPODS sy-vline 
WA_Q0965_STR-FIDEP sy-vline 
WA_Q0965_STR-SPRNR sy-vline 
WA_Q0965_STR-SERTY sy-vline 
WA_Q0965_STR-SERUN sy-vline 
WA_Q0965_STR-SERTX sy-vline 
WA_Q0965_STR-NCCHL sy-vline 
WA_Q0965_STR-TRANS_IND sy-vline 
WA_Q0965_STR-TRANS_DATE sy-vline 
WA_Q0965_STR-FSAMT sy-vline 
WA_Q0965_STR-FSWAER sy-vline 
WA_Q0965_STR-ARRIVAL_DATE sy-vline 
WA_Q0965_STR-EGAGE sy-vline 
WA_Q0965_STR-DSTAT sy-vline 
WA_Q0965_STR-EGDDS sy-vline 
WA_Q0965_STR-GBLND sy-vline 
WA_Q0965_STR-NATIO sy-vline 
WA_Q0965_STR-CTTYP sy-vline 
WA_Q0965_STR-CTEDT sy-vline 
WA_Q0965_STR-EGSSL sy-vline 
WA_Q0965_STR-ENDDA sy-vline 
WA_Q0965_STR-BEGDA sy-vline 
WA_Q0965_STR-EGSNA sy-vline 
WA_Q0965_STR-SLART sy-vline 
WA_Q0965_STR-PSTLZ sy-vline 
WA_Q0965_STR-ORT01 sy-vline 
WA_Q0965_STR-EGSCT sy-vline 
WA_Q0965_STR-STATE sy-vline 
WA_Q0965_STR-STRAS sy-vline 
WA_Q0965_STR-TELNR sy-vline 
WA_Q0965_STR-EGADV_PYDATE sy-vline 
WA_Q0965_STR-ADVPY_MANUAL sy-vline 
WA_Q0965_STR-ADVPY_WAERS sy-vline 
WA_Q0965_STR-DSTAT_O sy-vline 
WA_Q0965_STR-SNAME sy-vline 
WA_Q0965_STR-EGSTY sy-vline 
WA_Q0965_STR-EGCDF sy-vline 
WA_Q0965_STR-NACHN sy-vline 
WA_Q0965_STR-VORNA sy-vline 
WA_Q0965_STR-LSELE sy-vline      INTO ld_text SEPARATED BY SPACE.

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