ABAP Select data from SAP table FC06UPLST 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 FC06UPLST 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 FC06UPLST. 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 FC06UPLST 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_FC06UPLST TYPE STANDARD TABLE OF FC06UPLST,
      WA_FC06UPLST TYPE FC06UPLST,
      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: <FC06UPLST> TYPE FC06UPLST.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FC06UPLST
*  INTO TABLE @DATA(IT_FC06UPLST2).
*--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_FC06UPLST INDEX 1 INTO DATA(WA_FC06UPLST2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_FC06UPLST ASSIGNING <FC06UPLST>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<FC06UPLST>-SUMIND = 1.
<FC06UPLST>-AWTYP = 1.
<FC06UPLST>-LOGSYS = 1.
<FC06UPLST>-LCRIT = 1.
<FC06UPLST>-HEAD = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FC06UPLST-DATA, sy-vline,
WA_FC06UPLST-GCURR, sy-vline,
WA_FC06UPLST-ASSVS, sy-vline,
WA_FC06UPLST-DTEQI, sy-vline,
WA_FC06UPLST-EQUVS, sy-vline,
WA_FC06UPLST-MSGID, sy-vline.
ENDLOOP. *Add any further fields from structure WA_FC06UPLST 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_FC06UPLST 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_FC06UPLST INTO WA_FC06UPLST. *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 LOGSYS CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_FC06UPLST-LOGSYS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-LOGSYS.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit AFIMC, internal->external for field COICU CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT' EXPORTING input = WA_FC06UPLST-COICU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-COICU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field RYEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_FC06UPLST-RYEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-RYEAR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field BUNIT CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT' EXPORTING input = WA_FC06UPLST-BUNIT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-BUNIT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit BFIMC, internal->external for field ITEM CALL FUNCTION 'CONVERSION_EXIT_BFIMC_OUTPUT' EXPORTING input = WA_FC06UPLST-ITEM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-ITEM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AFIMC, internal->external for field BUPTR CALL FUNCTION 'CONVERSION_EXIT_AFIMC_OUTPUT' EXPORTING input = WA_FC06UPLST-BUPTR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-BUPTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field NV2LC CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT' EXPORTING input = WA_FC06UPLST-NV2LC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-NV2LC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field NV3LC CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT' EXPORTING input = WA_FC06UPLST-NV3LC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-NV3LC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field BKVLC CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT' EXPORTING input = WA_FC06UPLST-BKVLC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-BKVLC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU172, internal->external for field BKVRC CALL FUNCTION 'CONVERSION_EXIT_AU172_OUTPUT' EXPORTING input = WA_FC06UPLST-BKVRC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_FC06UPLST-BKVRC.
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_FC06UPLST_STR,
SUMIND TYPE STRING,
AWTYP TYPE STRING,
LOGSYS TYPE STRING,
LCRIT TYPE STRING,
HEAD TYPE STRING,
DATA TYPE STRING,
GCURR TYPE STRING,
ASSVS TYPE STRING,
DTEQI TYPE STRING,
EQUVS TYPE STRING,
MSGID TYPE STRING,
ERRNR TYPE STRING,
LAMOUNT TYPE STRING,
GAMOUNT TYPE STRING,
ERRNRH TYPE STRING,
LCRIT2 TYPE STRING,
NPCNT1 TYPE STRING,
NPCNT2 TYPE STRING,
NPCNT3 TYPE STRING,
NPCNT4 TYPE STRING,
FFACT TYPE STRING,
TFACT TYPE STRING,
MANDT TYPE STRING,
DIMEN TYPE STRING,
RLDNR TYPE STRING,
ITCLG TYPE STRING,
INVVS TYPE STRING,
COICU TYPE STRING,
RYEAR TYPE STRING,
PERID TYPE STRING,
BUNIT TYPE STRING,
SEQNR TYPE STRING,
COIAC TYPE STRING,
COINR TYPE STRING,
ITEM TYPE STRING,
SITYP TYPE STRING,
SITEM TYPE STRING,
BUPTR TYPE STRING,
SPCNT TYPE STRING,
PCNT1 TYPE STRING,
PCNT2 TYPE STRING,
PCNT3 TYPE STRING,
PCNT4 TYPE STRING,
SVALU TYPE STRING,
CTYPE TYPE STRING,
CRATE TYPE STRING,
DBIND TYPE STRING,
NSHR2 TYPE STRING,
NSHR3 TYPE STRING,
NV2LC TYPE STRING,
NV3LC TYPE STRING,
BKVLC TYPE STRING,
BKVRC TYPE STRING,
NNV2LC TYPE STRING,
NNV3LC TYPE STRING,
NSHAR TYPE STRING,END OF T_EKKO_STR. DATA: WA_FC06UPLST_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_FC06UPLST_STR-SUMIND sy-vline
WA_FC06UPLST_STR-AWTYP sy-vline
WA_FC06UPLST_STR-LOGSYS sy-vline
WA_FC06UPLST_STR-LCRIT sy-vline
WA_FC06UPLST_STR-HEAD sy-vline
WA_FC06UPLST_STR-DATA sy-vline
WA_FC06UPLST_STR-GCURR sy-vline
WA_FC06UPLST_STR-ASSVS sy-vline
WA_FC06UPLST_STR-DTEQI sy-vline
WA_FC06UPLST_STR-EQUVS sy-vline
WA_FC06UPLST_STR-MSGID sy-vline
WA_FC06UPLST_STR-ERRNR sy-vline
WA_FC06UPLST_STR-LAMOUNT sy-vline
WA_FC06UPLST_STR-GAMOUNT sy-vline
WA_FC06UPLST_STR-ERRNRH sy-vline
WA_FC06UPLST_STR-LCRIT2 sy-vline
WA_FC06UPLST_STR-NPCNT1 sy-vline
WA_FC06UPLST_STR-NPCNT2 sy-vline
WA_FC06UPLST_STR-NPCNT3 sy-vline
WA_FC06UPLST_STR-NPCNT4 sy-vline
WA_FC06UPLST_STR-FFACT sy-vline
WA_FC06UPLST_STR-TFACT sy-vline
WA_FC06UPLST_STR-MANDT sy-vline
WA_FC06UPLST_STR-DIMEN sy-vline
WA_FC06UPLST_STR-RLDNR sy-vline
WA_FC06UPLST_STR-ITCLG sy-vline
WA_FC06UPLST_STR-INVVS sy-vline
WA_FC06UPLST_STR-COICU sy-vline
WA_FC06UPLST_STR-RYEAR sy-vline
WA_FC06UPLST_STR-PERID sy-vline
WA_FC06UPLST_STR-BUNIT sy-vline
WA_FC06UPLST_STR-SEQNR sy-vline
WA_FC06UPLST_STR-COIAC sy-vline
WA_FC06UPLST_STR-COINR sy-vline
WA_FC06UPLST_STR-ITEM sy-vline
WA_FC06UPLST_STR-SITYP sy-vline
WA_FC06UPLST_STR-SITEM sy-vline
WA_FC06UPLST_STR-BUPTR sy-vline
WA_FC06UPLST_STR-SPCNT sy-vline
WA_FC06UPLST_STR-PCNT1 sy-vline
WA_FC06UPLST_STR-PCNT2 sy-vline
WA_FC06UPLST_STR-PCNT3 sy-vline
WA_FC06UPLST_STR-PCNT4 sy-vline
WA_FC06UPLST_STR-SVALU sy-vline
WA_FC06UPLST_STR-CTYPE sy-vline
WA_FC06UPLST_STR-CRATE sy-vline
WA_FC06UPLST_STR-DBIND sy-vline
WA_FC06UPLST_STR-NSHR2 sy-vline
WA_FC06UPLST_STR-NSHR3 sy-vline
WA_FC06UPLST_STR-NV2LC sy-vline
WA_FC06UPLST_STR-NV3LC sy-vline
WA_FC06UPLST_STR-BKVLC sy-vline
WA_FC06UPLST_STR-BKVRC sy-vline
WA_FC06UPLST_STR-NNV2LC sy-vline
WA_FC06UPLST_STR-NNV3LC sy-vline
WA_FC06UPLST_STR-NSHAR sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.