ABAP Select data from SAP table /SAPWF/HCMT_BSP_PA_UN_R0965_00 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 /SAPWF/HCMT_BSP_PA_UN_R0965_00 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 /SAPWF/HCMT_BSP_PA_UN_R0965_00. 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 /SAPWF/HCMT_BSP_PA_UN_R0965_00 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_/SAPWF/HCMT_BSP_PA_UN_R0965_00 TYPE STANDARD TABLE OF /SAPWF/HCMT_BSP_PA_UN_R0965_00,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00 TYPE /SAPWF/HCMT_BSP_PA_UN_R0965_00,
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: </SAPWF/HCMT_BSP_PA_UN_R0965_00> TYPE /SAPWF/HCMT_BSP_PA_UN_R0965_00.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_/SAPWF/HCMT_BSP_PA_UN_R0965_00.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM /SAPWF/HCMT_BSP_PA_UN_R0965_00
INTO TABLE IT_/SAPWF/HCMT_BSP_PA_UN_R0965_00.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM /SAPWF/HCMT_BSP_PA_UN_R0965_00
* INTO TABLE @DATA(IT_/SAPWF/HCMT_BSP_PA_UN_R0965_002).
*--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_/SAPWF/HCMT_BSP_PA_UN_R0965_00 INDEX 1 INTO DATA(WA_/SAPWF/HCMT_BSP_PA_UN_R0965_002).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/SAPWF/HCMT_BSP_PA_UN_R0965_00 ASSIGNING </SAPWF/HCMT_BSP_PA_UN_R0965_00>.
*To update a field value using a field symbol simply change the value via the field symbol pointer</SAPWF/HCMT_BSP_PA_UN_R0965_00>-OBJECT_KEY = 1.
</SAPWF/HCMT_BSP_PA_UN_R0965_00>-PERNR = 1.
</SAPWF/HCMT_BSP_PA_UN_R0965_00>-AEDTM = 1.
</SAPWF/HCMT_BSP_PA_UN_R0965_00>-UNAME = 1.
</SAPWF/HCMT_BSP_PA_UN_R0965_00>-SPRPS = 1.
ENDLOOP. LOOP AT IT_/SAPWF/HCMT_BSP_PA_UN_R0965_00 INTO WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-SPRTX, sy-vline,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-ITBLD, sy-vline,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-ITXEX, sy-vline,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-BEGDA, sy-vline,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-ENDDA, sy-vline,
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00-EGSST, sy-vline.
ENDLOOP. *Add any further fields from structure WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00 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_/SAPWF/HCMT_BSP_PA_UN_R0965_00 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_/SAPWF/HCMT_BSP_PA_UN_R0965_00 INTO WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00. *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_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR,
OBJECT_KEY TYPE STRING,
PERNR TYPE STRING,
AEDTM TYPE STRING,
UNAME TYPE STRING,
SPRPS TYPE STRING,
SPRTX TYPE STRING,
ITBLD TYPE STRING,
ITXEX TYPE STRING,
BEGDA TYPE STRING,
ENDDA TYPE STRING,
EGSST TYPE STRING,
EGDIS TYPE STRING,
EGCST TYPE STRING,
EGCRS TYPE STRING,
OBJPS TYPE STRING,
FAMSA TYPE STRING,
FAMSA_TEXT TYPE STRING,
EGSSL TYPE STRING,
EGSNA TYPE STRING,
EGSCT TYPE STRING,
EGSTY TYPE STRING,
ORT01 TYPE STRING,
EGCDF TYPE STRING,
SEQNR TYPE STRING,
EGYFR TYPE STRING,
EGYTO TYPE STRING,
EGFAC TYPE STRING,
EGTYP TYPE STRING,
EGGRD TYPE STRING,
EGCUR TYPE STRING,
EGEUC TYPE STRING,
TUITION_WAERS TYPE STRING,
EGC01 TYPE STRING,
EGC02 TYPE STRING,
EGBRS TYPE STRING,
EGC03 TYPE STRING,
EGOPR TYPE STRING,
EGBPR TYPE STRING,
EGBSG TYPE STRING,
EGBROVR TYPE STRING,
EGSAR TYPE STRING,
EGADV_CHGRS TYPE STRING,
ELIBEGDA TYPE STRING,
ELIENDDA TYPE STRING,
EGCAFPRO TYPE STRING,
CAFFAC TYPE STRING,
EGMUL TYPE STRING,
EGRUL TYPE STRING,
EGPRO TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
TEXT3 TYPE STRING,
EGADV_VERSION TYPE STRING,
ADVPY_MANUAL TYPE STRING,
EGDRP TYPE STRING,
EGC04 TYPE STRING,
EGOYF TYPE STRING,
EGOYT TYPE STRING,
EGC05 TYPE STRING,
EGRCD TYPE STRING,
EGRIN TYPE STRING,
EGSCD TYPE STRING,
EGADV_PYDATE TYPE STRING,
EGSCH_LIST TYPE STRING,
EGREG_PAY TYPE STRING,
EGOFF_PAY TYPE STRING,
TEXT01 TYPE STRING,
TEXT02 TYPE STRING,
SUBTY TYPE STRING,
ADVCUR TYPE STRING,
EXTADV TYPE STRING,
EXTCURR TYPE STRING,
EXTADVPAYDT TYPE STRING,
EXMNR TYPE STRING,
EGDEP TYPE STRING,
CNAME TYPE STRING,
KDGBR TYPE STRING,
EGPST TYPE STRING,
ADVPAYTYP TYPE STRING,
EGADV_CHGRSN TYPE STRING,
EGREV TYPE STRING,
EGRDT TYPE STRING,
EGAGE TYPE STRING,
EGDDS TYPE STRING,
CTEDT TYPE STRING,
NATIO TYPE STRING,
DSTAT TYPE STRING,
CTTYP TYPE STRING,
SELFLAG TYPE STRING,
FANAM TYPE STRING,
FGBNA TYPE STRING,
FAVOR TYPE STRING,
MIDNM TYPE STRING,
FGBDT TYPE STRING,
FANAT TYPE STRING,
FASEX TYPE STRING,
LANDX TYPE STRING,
ATEXT TYPE STRING,
DSTXT TYPE STRING,
LANDX50 TYPE STRING,
CTTXT TYPE STRING,
GEN_TXT TYPE STRING,
NACHN TYPE STRING,
VORNA TYPE STRING,
TRFGR TYPE STRING,
TRFST TYPE STRING,
TRFAR TYPE STRING,
TARTX TYPE STRING,
FANAT_TEXT TYPE STRING,END OF T_EKKO_STR. DATA: WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_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_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-OBJECT_KEY sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-PERNR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-AEDTM sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-UNAME sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-SPRPS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-SPRTX sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ITBLD sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ITXEX sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-BEGDA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ENDDA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSST sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGDIS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGCST sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGCRS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-OBJPS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FAMSA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FAMSA_TEXT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSSL sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSNA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSCT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSTY sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ORT01 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGCDF sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-SEQNR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGYFR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGYTO sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGFAC sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGTYP sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGGRD sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGCUR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGEUC sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TUITION_WAERS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGC01 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGC02 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGBRS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGC03 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGOPR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGBPR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGBSG sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGBROVR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSAR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGADV_CHGRS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ELIBEGDA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ELIENDDA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGCAFPRO sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-CAFFAC sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGMUL sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGRUL sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGPRO sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TEXT1 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TEXT2 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TEXT3 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGADV_VERSION sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ADVPY_MANUAL sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGDRP sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGC04 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGOYF sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGOYT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGC05 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGRCD sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGRIN sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSCD sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGADV_PYDATE sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGSCH_LIST sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGREG_PAY sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGOFF_PAY sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TEXT01 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TEXT02 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-SUBTY sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ADVCUR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EXTADV sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EXTCURR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EXTADVPAYDT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EXMNR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGDEP sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-CNAME sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-KDGBR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGPST sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ADVPAYTYP sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGADV_CHGRSN sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGREV sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGRDT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGAGE sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-EGDDS sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-CTEDT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-NATIO sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-DSTAT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-CTTYP sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-SELFLAG sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FANAM sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FGBNA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FAVOR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-MIDNM sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FGBDT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FANAT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FASEX sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-LANDX sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-ATEXT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-DSTXT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-LANDX50 sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-CTTXT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-GEN_TXT sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-NACHN sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-VORNA sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TRFGR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TRFST sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TRFAR sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-TARTX sy-vline
WA_/SAPWF/HCMT_BSP_PA_UN_R0965_00_STR-FANAT_TEXT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
