ABAP Select data from SAP table HAP_S_WD_DOCUMENT 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 HAP_S_WD_DOCUMENT 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 HAP_S_WD_DOCUMENT. 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 HAP_S_WD_DOCUMENT 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_HAP_S_WD_DOCUMENT TYPE STANDARD TABLE OF HAP_S_WD_DOCUMENT,
WA_HAP_S_WD_DOCUMENT TYPE HAP_S_WD_DOCUMENT,
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: <HAP_S_WD_DOCUMENT> TYPE HAP_S_WD_DOCUMENT.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_HAP_S_WD_DOCUMENT.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM HAP_S_WD_DOCUMENT
INTO TABLE IT_HAP_S_WD_DOCUMENT.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM HAP_S_WD_DOCUMENT
* INTO TABLE @DATA(IT_HAP_S_WD_DOCUMENT2).
*--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_HAP_S_WD_DOCUMENT INDEX 1 INTO DATA(WA_HAP_S_WD_DOCUMENT2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_HAP_S_WD_DOCUMENT ASSIGNING <HAP_S_WD_DOCUMENT>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<HAP_S_WD_DOCUMENT>-S_HEADER = 1.
<HAP_S_WD_DOCUMENT>-S_TEXTS = 1.
<HAP_S_WD_DOCUMENT>-APPRAISAL_TXT = 1.
<HAP_S_WD_DOCUMENT>-APPRAISAL_NAME = 1.
<HAP_S_WD_DOCUMENT>-STATUS_TXT = 1.
ENDLOOP. LOOP AT IT_HAP_S_WD_DOCUMENT INTO WA_HAP_S_WD_DOCUMENT. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_HAP_S_WD_DOCUMENT-APPER_TYPE_TXT, sy-vline,
WA_HAP_S_WD_DOCUMENT-APPER_TYPE_TXT_M, sy-vline,
WA_HAP_S_WD_DOCUMENT-APPEE_TYPE_TXT, sy-vline,
WA_HAP_S_WD_DOCUMENT-APPEE_TYPE_TXT_M, sy-vline,
WA_HAP_S_WD_DOCUMENT-P_APPER_TYPE_TXT, sy-vline,
WA_HAP_S_WD_DOCUMENT-P_APPER_TYPE_M, sy-vline.
ENDLOOP. *Add any further fields from structure WA_HAP_S_WD_DOCUMENT 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_HAP_S_WD_DOCUMENT 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_HAP_S_WD_DOCUMENT INTO WA_HAP_S_WD_DOCUMENT. *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_HAP_S_WD_DOCUMENT_STR,
S_HEADER TYPE STRING,
S_TEXTS TYPE STRING,
APPRAISAL_TXT TYPE STRING,
APPRAISAL_NAME TYPE STRING,
STATUS_TXT TYPE STRING,
APPER_TYPE_TXT TYPE STRING,
APPER_TYPE_TXT_M TYPE STRING,
APPEE_TYPE_TXT TYPE STRING,
APPEE_TYPE_TXT_M TYPE STRING,
P_APPER_TYPE_TXT TYPE STRING,
P_APPER_TYPE_M TYPE STRING,
OTHER_TYPE_TXT TYPE STRING,
VAL_PERIOD_TXT TYPE STRING,
EXE_PERIOD_TXT TYPE STRING,
OBJ_DATE_TXT TYPE STRING,
REV_DATE_TXT TYPE STRING,
APP_DATE_TXT TYPE STRING,
T_APPRAISER TYPE STRING,
T_APPRAISEE TYPE STRING,
T_PART_APPRAISER TYPE STRING,
T_OTHERS TYPE STRING,
S_STATUS TYPE STRING,
AP_STATUS TYPE STRING,
AP_STATUS_NAME TYPE STRING,
AP_STATUS_SUB TYPE STRING,
AP_STATUS_SUB_NAME TYPE STRING,
S_DATES TYPE STRING,
AP_START_DATE TYPE STRING,
AP_END_DATE TYPE STRING,
AP_DATE_EARLIEST TYPE STRING,
AP_DATE_LATEST TYPE STRING,
OBJ_DATE_SET TYPE STRING,
REVIEW_DATE_SET TYPE STRING,
AP_DATE_SET TYPE STRING,
S_DISPLAY TYPE STRING,
NAME TYPE STRING,
STATUS TYPE STRING,
STATUS_SUB TYPE STRING,
APPRAISER TYPE STRING,
MULTI_APPRAISER TYPE STRING,
APPRAISEE TYPE STRING,
MULTI_APPRAISEE TYPE STRING,
PART_APPRAISERS TYPE STRING,
OTHERS TYPE STRING,
VALIDITY_PERIOD TYPE STRING,
VALIDITY_TO TYPE STRING,
EXECUTION_PERIOD TYPE STRING,
EXECUTION_TO TYPE STRING,
OBJECTIVE_SETTING_DATE TYPE STRING,
REVIEW_DATE TYPE STRING,
APPRAISAL_DATE TYPE STRING,
ADD_DATA_APPER TYPE STRING,
ADD_DATA_APPEE TYPE STRING,
ADD_DATA_P_APPER TYPE STRING,
ADD_DATA_OTHERS TYPE STRING,
APPRAISER_TYPE TYPE STRING,
APPRAISEE_TYPE TYPE STRING,
PART_APPRAISER_TYPE TYPE STRING,
OTHERS_TYPE TYPE STRING,
KEY TYPE STRING,
T_ALLOWED_APPER_TYPE TYPE STRING,
T_ALLOWED_APPEE_TYPE TYPE STRING,
T_ALLOWED_P_APPER_TYPE TYPE STRING,
T_ALLOWED_OTHERS_TYPE TYPE STRING,
T_ADD_DATA_APPER TYPE STRING,
T_ADD_DATA_APPEE TYPE STRING,
T_ADD_DATA_P_APPER TYPE STRING,
T_ADD_DATA_OTHERS TYPE STRING,
T_ALLOWED_ROLES TYPE STRING,
T_BODY TYPE STRING,
S_DOC_BUTTONS TYPE STRING,
SAVE TYPE STRING,
SAVE_NAME TYPE STRING,
ATTACHMENT TYPE STRING,
ATTACHMENT_NAME TYPE STRING,
PRINT TYPE STRING,
PRINT_NAME TYPE STRING,
STATUS_NOTE TYPE STRING,
STATUS_NOTE_NAME TYPE STRING,
RELEASE_DRAFT TYPE STRING,
RELEASE_DRAFT_NAME TYPE STRING,
OFFLINE_UPLOAD TYPE STRING,
OFFLINE_UPLOAD_NAME TYPE STRING,
LINK1 TYPE STRING,
LINK1_NAME TYPE STRING,
LINK2 TYPE STRING,
LINK2_NAME TYPE STRING,
LINK3 TYPE STRING,
LINK3_NAME TYPE STRING,
ACTIONLOG TYPE STRING,
ACTIONLOG_NAME TYPE STRING,
HEADER TYPE STRING,
HEADER_NAME TYPE STRING,
T_DOC_STATUS TYPE STRING,
S_DOC_PROCESS TYPE STRING,
HEADER TYPE STRING,
HEADER_MAIN TYPE STRING,
HEADER_PART TYPE STRING,
BODY TYPE STRING,
ADD_ON_APPLICATION TYPE STRING,
TEMPLATE_ID TYPE STRING,
NO_SELFAPPRAISAL TYPE STRING,
PLAN_VERSION TYPE STRING,
NUMBER_OF_PART_APPERS TYPE STRING,
T_TABSTRIP TYPE STRING,
STATUS_NOTE TYPE STRING,END OF T_EKKO_STR. DATA: WA_HAP_S_WD_DOCUMENT_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_HAP_S_WD_DOCUMENT_STR-S_HEADER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_TEXTS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISAL_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISAL_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPER_TYPE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPER_TYPE_TXT_M sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPEE_TYPE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPEE_TYPE_TXT_M sy-vline
WA_HAP_S_WD_DOCUMENT_STR-P_APPER_TYPE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-P_APPER_TYPE_M sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OTHER_TYPE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-VAL_PERIOD_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-EXE_PERIOD_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OBJ_DATE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-REV_DATE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APP_DATE_TXT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_APPRAISER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_APPRAISEE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_PART_APPRAISER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_OTHERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_STATUS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_STATUS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_STATUS_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_STATUS_SUB sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_STATUS_SUB_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_DATES sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_START_DATE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_END_DATE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_DATE_EARLIEST sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_DATE_LATEST sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OBJ_DATE_SET sy-vline
WA_HAP_S_WD_DOCUMENT_STR-REVIEW_DATE_SET sy-vline
WA_HAP_S_WD_DOCUMENT_STR-AP_DATE_SET sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_DISPLAY sy-vline
WA_HAP_S_WD_DOCUMENT_STR-NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS_SUB sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-MULTI_APPRAISER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISEE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-MULTI_APPRAISEE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-PART_APPRAISERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OTHERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-VALIDITY_PERIOD sy-vline
WA_HAP_S_WD_DOCUMENT_STR-VALIDITY_TO sy-vline
WA_HAP_S_WD_DOCUMENT_STR-EXECUTION_PERIOD sy-vline
WA_HAP_S_WD_DOCUMENT_STR-EXECUTION_TO sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OBJECTIVE_SETTING_DATE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-REVIEW_DATE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISAL_DATE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ADD_DATA_APPER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ADD_DATA_APPEE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ADD_DATA_P_APPER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ADD_DATA_OTHERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISER_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-APPRAISEE_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-PART_APPRAISER_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OTHERS_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-KEY sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ALLOWED_APPER_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ALLOWED_APPEE_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ALLOWED_P_APPER_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ALLOWED_OTHERS_TYPE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ADD_DATA_APPER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ADD_DATA_APPEE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ADD_DATA_P_APPER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ADD_DATA_OTHERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_ALLOWED_ROLES sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_BODY sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_DOC_BUTTONS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-SAVE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-SAVE_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ATTACHMENT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ATTACHMENT_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-PRINT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-PRINT_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS_NOTE sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS_NOTE_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-RELEASE_DRAFT sy-vline
WA_HAP_S_WD_DOCUMENT_STR-RELEASE_DRAFT_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OFFLINE_UPLOAD sy-vline
WA_HAP_S_WD_DOCUMENT_STR-OFFLINE_UPLOAD_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK1 sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK1_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK2 sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK2_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK3 sy-vline
WA_HAP_S_WD_DOCUMENT_STR-LINK3_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ACTIONLOG sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ACTIONLOG_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-HEADER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-HEADER_NAME sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_DOC_STATUS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-S_DOC_PROCESS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-HEADER sy-vline
WA_HAP_S_WD_DOCUMENT_STR-HEADER_MAIN sy-vline
WA_HAP_S_WD_DOCUMENT_STR-HEADER_PART sy-vline
WA_HAP_S_WD_DOCUMENT_STR-BODY sy-vline
WA_HAP_S_WD_DOCUMENT_STR-ADD_ON_APPLICATION sy-vline
WA_HAP_S_WD_DOCUMENT_STR-TEMPLATE_ID sy-vline
WA_HAP_S_WD_DOCUMENT_STR-NO_SELFAPPRAISAL sy-vline
WA_HAP_S_WD_DOCUMENT_STR-PLAN_VERSION sy-vline
WA_HAP_S_WD_DOCUMENT_STR-NUMBER_OF_PART_APPERS sy-vline
WA_HAP_S_WD_DOCUMENT_STR-T_TABSTRIP sy-vline
WA_HAP_S_WD_DOCUMENT_STR-STATUS_NOTE sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
