ABAP Select data from SAP table FIN_ISS_AUFK into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP FIN_ISS_AUFK 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 FIN_ISS_AUFK. 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 FIN_ISS_AUFK 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_FIN_ISS_AUFK TYPE STANDARD TABLE OF FIN_ISS_AUFK,
      WA_FIN_ISS_AUFK TYPE FIN_ISS_AUFK,
      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: <FIN_ISS_AUFK> TYPE FIN_ISS_AUFK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIN_ISS_AUFK
*  INTO TABLE @DATA(IT_FIN_ISS_AUFK2).
*--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_FIN_ISS_AUFK INDEX 1 INTO DATA(WA_FIN_ISS_AUFK2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FIN_ISS_AUFK ASSIGNING <FIN_ISS_AUFK>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIN_ISS_AUFK>-MANDT = 1.
<FIN_ISS_AUFK>-AUFNR = 1.
<FIN_ISS_AUFK>-AUART = 1.
<FIN_ISS_AUFK>-AUTYP = 1.
<FIN_ISS_AUFK>-REFNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIN_ISS_AUFK-ERNAM, sy-vline,
WA_FIN_ISS_AUFK-ERDAT, sy-vline,
WA_FIN_ISS_AUFK-AENAM, sy-vline,
WA_FIN_ISS_AUFK-AEDAT, sy-vline,
WA_FIN_ISS_AUFK-KTEXT, sy-vline,
WA_FIN_ISS_AUFK-LTEXT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FIN_ISS_AUFK 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_FIN_ISS_AUFK 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_FIN_ISS_AUFK INTO WA_FIN_ISS_AUFK. *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 ALPHA, internal->external for field AUFNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FIN_ISS_AUFK-AUFNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIN_ISS_AUFK-AUFNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ABPSN, internal->external for field POSID CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT' EXPORTING input = WA_FIN_ISS_AUFK-POSID IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIN_ISS_AUFK-POSID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SCOPE, internal->external for field SCOPE CALL FUNCTION 'CONVERSION_EXIT_SCOPE_OUTPUT' EXPORTING input = WA_FIN_ISS_AUFK-SCOPE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIN_ISS_AUFK-SCOPE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field OTYPE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FIN_ISS_AUFK-OTYPE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FIN_ISS_AUFK-OTYPE.
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_FIN_ISS_AUFK_STR,
MANDT TYPE STRING,
AUFNR TYPE STRING,
AUART TYPE STRING,
AUTYP TYPE STRING,
REFNR TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
AENAM TYPE STRING,
AEDAT TYPE STRING,
KTEXT TYPE STRING,
LTEXT TYPE STRING,
BUKRS TYPE STRING,
WERKS TYPE STRING,
GSBER TYPE STRING,
KOKRS TYPE STRING,
CCKEY TYPE STRING,
KOSTV TYPE STRING,
STORT TYPE STRING,
SOWRK TYPE STRING,
ASTKZ TYPE STRING,
WAERS TYPE STRING,
ASTNR TYPE STRING,
STDAT TYPE STRING,
ESTNR TYPE STRING,
PHAS0 TYPE STRING,
PHAS1 TYPE STRING,
PHAS2 TYPE STRING,
PHAS3 TYPE STRING,
PDAT1 TYPE STRING,
PDAT2 TYPE STRING,
PDAT3 TYPE STRING,
IDAT1 TYPE STRING,
IDAT2 TYPE STRING,
IDAT3 TYPE STRING,
OBJID TYPE STRING,
VOGRP TYPE STRING,
LOEKZ TYPE STRING,
PLGKZ TYPE STRING,
KVEWE TYPE STRING,
KAPPL TYPE STRING,
KALSM TYPE STRING,
ZSCHL TYPE STRING,
ABKRS TYPE STRING,
KSTAR TYPE STRING,
KOSTL TYPE STRING,
SAKNR TYPE STRING,
SETNM TYPE STRING,
CYCLE TYPE STRING,
SDATE TYPE STRING,
SEQNR TYPE STRING,
USER0 TYPE STRING,
USER1 TYPE STRING,
USER2 TYPE STRING,
USER3 TYPE STRING,
USER4 TYPE STRING,
USER5 TYPE STRING,
USER6 TYPE STRING,
USER7 TYPE STRING,
USER8 TYPE STRING,
USER9 TYPE STRING,
OBJNR TYPE STRING,
PRCTR TYPE STRING,
POSID TYPE STRING,
AWSLS TYPE STRING,
ABGSL TYPE STRING,
TXJCD TYPE STRING,
FUNC_AREA TYPE STRING,
SCOPE TYPE STRING,
PLINT TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
AUFEX TYPE STRING,
IVPRO TYPE STRING,
LOGSYSTEM TYPE STRING,
FLG_MLTPS TYPE STRING,
ABUKR TYPE STRING,
AKSTL TYPE STRING,
SIZECL TYPE STRING,
IZWEK TYPE STRING,
UMWKZ TYPE STRING,
KSTEMPF TYPE STRING,
ZSCHM TYPE STRING,
PKOSA TYPE STRING,
ANFAUFNR TYPE STRING,
PROCNR TYPE STRING,
PROTY TYPE STRING,
RSORD TYPE STRING,
BEMOT TYPE STRING,
ADRNRA TYPE STRING,
ERFZEIT TYPE STRING,
AEZEIT TYPE STRING,
CSTG_VRNT TYPE STRING,
COSTESTNR TYPE STRING,
VERAA_USER TYPE STRING,
VNAME TYPE STRING,
RECID TYPE STRING,
ETYPE TYPE STRING,
OTYPE TYPE STRING,
JV_JIBCL TYPE STRING,
JV_JIBSA TYPE STRING,
JV_OCO TYPE STRING,END OF T_EKKO_STR. DATA: WA_FIN_ISS_AUFK_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_FIN_ISS_AUFK_STR-MANDT sy-vline
WA_FIN_ISS_AUFK_STR-AUFNR sy-vline
WA_FIN_ISS_AUFK_STR-AUART sy-vline
WA_FIN_ISS_AUFK_STR-AUTYP sy-vline
WA_FIN_ISS_AUFK_STR-REFNR sy-vline
WA_FIN_ISS_AUFK_STR-ERNAM sy-vline
WA_FIN_ISS_AUFK_STR-ERDAT sy-vline
WA_FIN_ISS_AUFK_STR-AENAM sy-vline
WA_FIN_ISS_AUFK_STR-AEDAT sy-vline
WA_FIN_ISS_AUFK_STR-KTEXT sy-vline
WA_FIN_ISS_AUFK_STR-LTEXT sy-vline
WA_FIN_ISS_AUFK_STR-BUKRS sy-vline
WA_FIN_ISS_AUFK_STR-WERKS sy-vline
WA_FIN_ISS_AUFK_STR-GSBER sy-vline
WA_FIN_ISS_AUFK_STR-KOKRS sy-vline
WA_FIN_ISS_AUFK_STR-CCKEY sy-vline
WA_FIN_ISS_AUFK_STR-KOSTV sy-vline
WA_FIN_ISS_AUFK_STR-STORT sy-vline
WA_FIN_ISS_AUFK_STR-SOWRK sy-vline
WA_FIN_ISS_AUFK_STR-ASTKZ sy-vline
WA_FIN_ISS_AUFK_STR-WAERS sy-vline
WA_FIN_ISS_AUFK_STR-ASTNR sy-vline
WA_FIN_ISS_AUFK_STR-STDAT sy-vline
WA_FIN_ISS_AUFK_STR-ESTNR sy-vline
WA_FIN_ISS_AUFK_STR-PHAS0 sy-vline
WA_FIN_ISS_AUFK_STR-PHAS1 sy-vline
WA_FIN_ISS_AUFK_STR-PHAS2 sy-vline
WA_FIN_ISS_AUFK_STR-PHAS3 sy-vline
WA_FIN_ISS_AUFK_STR-PDAT1 sy-vline
WA_FIN_ISS_AUFK_STR-PDAT2 sy-vline
WA_FIN_ISS_AUFK_STR-PDAT3 sy-vline
WA_FIN_ISS_AUFK_STR-IDAT1 sy-vline
WA_FIN_ISS_AUFK_STR-IDAT2 sy-vline
WA_FIN_ISS_AUFK_STR-IDAT3 sy-vline
WA_FIN_ISS_AUFK_STR-OBJID sy-vline
WA_FIN_ISS_AUFK_STR-VOGRP sy-vline
WA_FIN_ISS_AUFK_STR-LOEKZ sy-vline
WA_FIN_ISS_AUFK_STR-PLGKZ sy-vline
WA_FIN_ISS_AUFK_STR-KVEWE sy-vline
WA_FIN_ISS_AUFK_STR-KAPPL sy-vline
WA_FIN_ISS_AUFK_STR-KALSM sy-vline
WA_FIN_ISS_AUFK_STR-ZSCHL sy-vline
WA_FIN_ISS_AUFK_STR-ABKRS sy-vline
WA_FIN_ISS_AUFK_STR-KSTAR sy-vline
WA_FIN_ISS_AUFK_STR-KOSTL sy-vline
WA_FIN_ISS_AUFK_STR-SAKNR sy-vline
WA_FIN_ISS_AUFK_STR-SETNM sy-vline
WA_FIN_ISS_AUFK_STR-CYCLE sy-vline
WA_FIN_ISS_AUFK_STR-SDATE sy-vline
WA_FIN_ISS_AUFK_STR-SEQNR sy-vline
WA_FIN_ISS_AUFK_STR-USER0 sy-vline
WA_FIN_ISS_AUFK_STR-USER1 sy-vline
WA_FIN_ISS_AUFK_STR-USER2 sy-vline
WA_FIN_ISS_AUFK_STR-USER3 sy-vline
WA_FIN_ISS_AUFK_STR-USER4 sy-vline
WA_FIN_ISS_AUFK_STR-USER5 sy-vline
WA_FIN_ISS_AUFK_STR-USER6 sy-vline
WA_FIN_ISS_AUFK_STR-USER7 sy-vline
WA_FIN_ISS_AUFK_STR-USER8 sy-vline
WA_FIN_ISS_AUFK_STR-USER9 sy-vline
WA_FIN_ISS_AUFK_STR-OBJNR sy-vline
WA_FIN_ISS_AUFK_STR-PRCTR sy-vline
WA_FIN_ISS_AUFK_STR-POSID sy-vline
WA_FIN_ISS_AUFK_STR-AWSLS sy-vline
WA_FIN_ISS_AUFK_STR-ABGSL sy-vline
WA_FIN_ISS_AUFK_STR-TXJCD sy-vline
WA_FIN_ISS_AUFK_STR-FUNC_AREA sy-vline
WA_FIN_ISS_AUFK_STR-SCOPE sy-vline
WA_FIN_ISS_AUFK_STR-PLINT sy-vline
WA_FIN_ISS_AUFK_STR-KDAUF sy-vline
WA_FIN_ISS_AUFK_STR-KDPOS sy-vline
WA_FIN_ISS_AUFK_STR-AUFEX sy-vline
WA_FIN_ISS_AUFK_STR-IVPRO sy-vline
WA_FIN_ISS_AUFK_STR-LOGSYSTEM sy-vline
WA_FIN_ISS_AUFK_STR-FLG_MLTPS sy-vline
WA_FIN_ISS_AUFK_STR-ABUKR sy-vline
WA_FIN_ISS_AUFK_STR-AKSTL sy-vline
WA_FIN_ISS_AUFK_STR-SIZECL sy-vline
WA_FIN_ISS_AUFK_STR-IZWEK sy-vline
WA_FIN_ISS_AUFK_STR-UMWKZ sy-vline
WA_FIN_ISS_AUFK_STR-KSTEMPF sy-vline
WA_FIN_ISS_AUFK_STR-ZSCHM sy-vline
WA_FIN_ISS_AUFK_STR-PKOSA sy-vline
WA_FIN_ISS_AUFK_STR-ANFAUFNR sy-vline
WA_FIN_ISS_AUFK_STR-PROCNR sy-vline
WA_FIN_ISS_AUFK_STR-PROTY sy-vline
WA_FIN_ISS_AUFK_STR-RSORD sy-vline
WA_FIN_ISS_AUFK_STR-BEMOT sy-vline
WA_FIN_ISS_AUFK_STR-ADRNRA sy-vline
WA_FIN_ISS_AUFK_STR-ERFZEIT sy-vline
WA_FIN_ISS_AUFK_STR-AEZEIT sy-vline
WA_FIN_ISS_AUFK_STR-CSTG_VRNT sy-vline
WA_FIN_ISS_AUFK_STR-COSTESTNR sy-vline
WA_FIN_ISS_AUFK_STR-VERAA_USER sy-vline
WA_FIN_ISS_AUFK_STR-VNAME sy-vline
WA_FIN_ISS_AUFK_STR-RECID sy-vline
WA_FIN_ISS_AUFK_STR-ETYPE sy-vline
WA_FIN_ISS_AUFK_STR-OTYPE sy-vline
WA_FIN_ISS_AUFK_STR-JV_JIBCL sy-vline
WA_FIN_ISS_AUFK_STR-JV_JIBSA sy-vline
WA_FIN_ISS_AUFK_STR-JV_OCO sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.