ABAP Select data from SAP table UPS_YS_LAUFZEIT 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 UPS_YS_LAUFZEIT 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 UPS_YS_LAUFZEIT. 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 UPS_YS_LAUFZEIT 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_UPS_YS_LAUFZEIT TYPE STANDARD TABLE OF UPS_YS_LAUFZEIT,
      WA_UPS_YS_LAUFZEIT TYPE UPS_YS_LAUFZEIT,
      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: <UPS_YS_LAUFZEIT> TYPE UPS_YS_LAUFZEIT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM UPS_YS_LAUFZEIT
*  INTO TABLE @DATA(IT_UPS_YS_LAUFZEIT2).
*--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_UPS_YS_LAUFZEIT INDEX 1 INTO DATA(WA_UPS_YS_LAUFZEIT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_UPS_YS_LAUFZEIT ASSIGNING <UPS_YS_LAUFZEIT>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<UPS_YS_LAUFZEIT>-ORGVL = 1.
<UPS_YS_LAUFZEIT>-TEILPLAN = 1.
<UPS_YS_LAUFZEIT>-VERSION = 1.
<UPS_YS_LAUFZEIT>-STARTDATE = 1.
<UPS_YS_LAUFZEIT>-DUEDATE = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_UPS_YS_LAUFZEIT-DUETIME, sy-vline,
WA_UPS_YS_LAUFZEIT-TSTAMP, sy-vline,
WA_UPS_YS_LAUFZEIT-TZONE, sy-vline,
WA_UPS_YS_LAUFZEIT-PLANLINK, sy-vline,
WA_UPS_YS_LAUFZEIT-APPROLINK, sy-vline,
WA_UPS_YS_LAUFZEIT-WORKLIST, sy-vline.
ENDLOOP. *Add any further fields from structure WA_UPS_YS_LAUFZEIT 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_UPS_YS_LAUFZEIT 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_UPS_YS_LAUFZEIT INTO WA_UPS_YS_LAUFZEIT. *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 BUPA CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_UPS_YS_LAUFZEIT-BUPA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_UPS_YS_LAUFZEIT-BUPA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SXIDN, internal->external for field E_MAIL CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT' EXPORTING input = WA_UPS_YS_LAUFZEIT-E_MAIL IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_UPS_YS_LAUFZEIT-E_MAIL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SXIDN, internal->external for field E_MAIL_2 CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT' EXPORTING input = WA_UPS_YS_LAUFZEIT-E_MAIL_2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_UPS_YS_LAUFZEIT-E_MAIL_2.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SXIDN, internal->external for field EMAIL_UPPER CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT' EXPORTING input = WA_UPS_YS_LAUFZEIT-EMAIL_UPPER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_UPS_YS_LAUFZEIT-EMAIL_UPPER.
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_UPS_YS_LAUFZEIT_STR,
ORGVL TYPE STRING,
TEILPLAN TYPE STRING,
VERSION TYPE STRING,
STARTDATE TYPE STRING,
DUEDATE TYPE STRING,
DUETIME TYPE STRING,
TSTAMP TYPE STRING,
TZONE TYPE STRING,
PLANLINK TYPE STRING,
APPROLINK TYPE STRING,
WORKLIST TYPE STRING,
BUPA TYPE STRING,
TXTLG TYPE STRING,
T_STATUS TYPE STRING,
CPERSON TYPE STRING,
UNAME TYPE STRING,
EMNAM TYPE STRING,
POSITION_TXT TYPE STRING,
JOB_TXT TYPE STRING,
POSTL_COD TYPE STRING,
CITY TYPE STRING,
STREET TYPE STRING,
COUNTRY TYPE STRING,
TEL_LAND TYPE STRING,
TEL_NO TYPE STRING,
FAX_LAND TYPE STRING,
FAX_NO TYPE STRING,
E_MAIL TYPE STRING,
R_ANNO TYPE STRING,
R_ELEMENT TYPE STRING,
T_TEXT TYPE STRING,
CHANGEDFLAG TYPE STRING,
ACTUAL_TEXT TYPE STRING,
TOPNODE TYPE STRING,
LOCALTOP TYPE STRING,
DEPTH TYPE STRING,
T_EVENT TYPE STRING,
BATCH TYPE STRING,
LEAF TYPE STRING,
INHERIT_COMMENT TYPE STRING,
AGGR_COMMENT TYPE STRING,
LOCK_FLAG TYPE STRING,
AGGR_STATUS TYPE STRING,
ACT_STATUS TYPE STRING,
STATUS TYPE STRING,
TEXT TYPE STRING,
CHANGETIME TYPE STRING,
CHANGEDATE TYPE STRING,
CHANGEDFROM TYPE STRING,
CPERSON_2 TYPE STRING,
UNAME_2 TYPE STRING,
EMNAM_2 TYPE STRING,
POSITION_TXT_2 TYPE STRING,
JOB_TXT_2 TYPE STRING,
POSTL_COD_2 TYPE STRING,
CITY_2 TYPE STRING,
STREET_2 TYPE STRING,
COUNTRY_2 TYPE STRING,
TEL_LAND_2 TYPE STRING,
TEL_NO_2 TYPE STRING,
FAX_LAND_2 TYPE STRING,
FAX_NO_2 TYPE STRING,
E_MAIL_2 TYPE STRING,
BUPA_2 TYPE STRING,
COMMENT_COUNT TYPE STRING,
LAST_COMMENT_DAT TYPE STRING,
LAST_COMMENT_TIME TYPE STRING,
EMAIL_UPPER TYPE STRING,
EMNAM_UPPER TYPE STRING,
LAST_COMMENT_FROM TYPE STRING,END OF T_EKKO_STR. DATA: WA_UPS_YS_LAUFZEIT_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_UPS_YS_LAUFZEIT_STR-ORGVL sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEILPLAN sy-vline
WA_UPS_YS_LAUFZEIT_STR-VERSION sy-vline
WA_UPS_YS_LAUFZEIT_STR-STARTDATE sy-vline
WA_UPS_YS_LAUFZEIT_STR-DUEDATE sy-vline
WA_UPS_YS_LAUFZEIT_STR-DUETIME sy-vline
WA_UPS_YS_LAUFZEIT_STR-TSTAMP sy-vline
WA_UPS_YS_LAUFZEIT_STR-TZONE sy-vline
WA_UPS_YS_LAUFZEIT_STR-PLANLINK sy-vline
WA_UPS_YS_LAUFZEIT_STR-APPROLINK sy-vline
WA_UPS_YS_LAUFZEIT_STR-WORKLIST sy-vline
WA_UPS_YS_LAUFZEIT_STR-BUPA sy-vline
WA_UPS_YS_LAUFZEIT_STR-TXTLG sy-vline
WA_UPS_YS_LAUFZEIT_STR-T_STATUS sy-vline
WA_UPS_YS_LAUFZEIT_STR-CPERSON sy-vline
WA_UPS_YS_LAUFZEIT_STR-UNAME sy-vline
WA_UPS_YS_LAUFZEIT_STR-EMNAM sy-vline
WA_UPS_YS_LAUFZEIT_STR-POSITION_TXT sy-vline
WA_UPS_YS_LAUFZEIT_STR-JOB_TXT sy-vline
WA_UPS_YS_LAUFZEIT_STR-POSTL_COD sy-vline
WA_UPS_YS_LAUFZEIT_STR-CITY sy-vline
WA_UPS_YS_LAUFZEIT_STR-STREET sy-vline
WA_UPS_YS_LAUFZEIT_STR-COUNTRY sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEL_LAND sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEL_NO sy-vline
WA_UPS_YS_LAUFZEIT_STR-FAX_LAND sy-vline
WA_UPS_YS_LAUFZEIT_STR-FAX_NO sy-vline
WA_UPS_YS_LAUFZEIT_STR-E_MAIL sy-vline
WA_UPS_YS_LAUFZEIT_STR-R_ANNO sy-vline
WA_UPS_YS_LAUFZEIT_STR-R_ELEMENT sy-vline
WA_UPS_YS_LAUFZEIT_STR-T_TEXT sy-vline
WA_UPS_YS_LAUFZEIT_STR-CHANGEDFLAG sy-vline
WA_UPS_YS_LAUFZEIT_STR-ACTUAL_TEXT sy-vline
WA_UPS_YS_LAUFZEIT_STR-TOPNODE sy-vline
WA_UPS_YS_LAUFZEIT_STR-LOCALTOP sy-vline
WA_UPS_YS_LAUFZEIT_STR-DEPTH sy-vline
WA_UPS_YS_LAUFZEIT_STR-T_EVENT sy-vline
WA_UPS_YS_LAUFZEIT_STR-BATCH sy-vline
WA_UPS_YS_LAUFZEIT_STR-LEAF sy-vline
WA_UPS_YS_LAUFZEIT_STR-INHERIT_COMMENT sy-vline
WA_UPS_YS_LAUFZEIT_STR-AGGR_COMMENT sy-vline
WA_UPS_YS_LAUFZEIT_STR-LOCK_FLAG sy-vline
WA_UPS_YS_LAUFZEIT_STR-AGGR_STATUS sy-vline
WA_UPS_YS_LAUFZEIT_STR-ACT_STATUS sy-vline
WA_UPS_YS_LAUFZEIT_STR-STATUS sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEXT sy-vline
WA_UPS_YS_LAUFZEIT_STR-CHANGETIME sy-vline
WA_UPS_YS_LAUFZEIT_STR-CHANGEDATE sy-vline
WA_UPS_YS_LAUFZEIT_STR-CHANGEDFROM sy-vline
WA_UPS_YS_LAUFZEIT_STR-CPERSON_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-UNAME_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-EMNAM_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-POSITION_TXT_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-JOB_TXT_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-POSTL_COD_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-CITY_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-STREET_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-COUNTRY_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEL_LAND_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-TEL_NO_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-FAX_LAND_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-FAX_NO_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-E_MAIL_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-BUPA_2 sy-vline
WA_UPS_YS_LAUFZEIT_STR-COMMENT_COUNT sy-vline
WA_UPS_YS_LAUFZEIT_STR-LAST_COMMENT_DAT sy-vline
WA_UPS_YS_LAUFZEIT_STR-LAST_COMMENT_TIME sy-vline
WA_UPS_YS_LAUFZEIT_STR-EMAIL_UPPER sy-vline
WA_UPS_YS_LAUFZEIT_STR-EMNAM_UPPER sy-vline
WA_UPS_YS_LAUFZEIT_STR-LAST_COMMENT_FROM sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.