ABAP Select data from SAP table SWX_V_FORMABSBAS into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

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

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM SWX_V_FORMABSBAS
*  INTO TABLE @DATA(IT_SWX_V_FORMABSBAS2).
*--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_SWX_V_FORMABSBAS INDEX 1 INTO DATA(WA_SWX_V_FORMABSBAS2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_SWX_V_FORMABSBAS ASSIGNING <SWX_V_FORMABSBAS>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<SWX_V_FORMABSBAS>-MANDT = 1.
<SWX_V_FORMABSBAS>-LEAVEREQUESTID = 1.
<SWX_V_FORMABSBAS>-T_APPROVEDTIMESTAMP = 1.
<SWX_V_FORMABSBAS>-APPROVEDBY = 1.
<SWX_V_FORMABSBAS>-T_CREATEDTIMESTAMP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_SWX_V_FORMABSBAS-CREATEDBY, sy-vline,
  WA_SWX_V_FORMABSBAS-ADDRESSNUMBER, sy-vline,
  WA_SWX_V_FORMABSBAS-PERSONALNUMBER, sy-vline,
  WA_SWX_V_FORMABSBAS-CREATORNAMETEXT, sy-vline,
  WA_SWX_V_FORMABSBAS-CREATORDEPARTMENT, sy-vline,
  WA_SWX_V_FORMABSBAS-COSTCENTER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_SWX_V_FORMABSBAS 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_SWX_V_FORMABSBAS 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_SWX_V_FORMABSBAS INTO WA_SWX_V_FORMABSBAS.


*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 ADDRESSNUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_SWX_V_FORMABSBAS-ADDRESSNUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SWX_V_FORMABSBAS-ADDRESSNUMBER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field PERSONALNUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_SWX_V_FORMABSBAS-PERSONALNUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SWX_V_FORMABSBAS-PERSONALNUMBER.
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_SWX_V_FORMABSBAS_STR, 
MANDT TYPE STRING,
LEAVEREQUESTID TYPE STRING,
T_APPROVEDTIMESTAMP TYPE STRING,
APPROVEDBY TYPE STRING,
T_CREATEDTIMESTAMP TYPE STRING,
CREATEDBY TYPE STRING,
ADDRESSNUMBER TYPE STRING,
PERSONALNUMBER TYPE STRING,
CREATORNAMETEXT TYPE STRING,
CREATORDEPARTMENT TYPE STRING,
COSTCENTER TYPE STRING,
PARTONEFIRSTDAY TYPE STRING,
PARTONELASTDAY TYPE STRING,
PARTONETIMEZONE TYPE STRING,
PARTONEABSENCEHOURS TYPE STRING,
PARTONELEAVETYPE TYPE STRING,
PARTTWOFIRSTDAY TYPE STRING,
PARTTWOLASTDAY TYPE STRING,
PARTTWOTIMEZONE TYPE STRING,
PARTTWOABSENCEHOURS TYPE STRING,
PARTTWOLEAVETYPE TYPE STRING,
PARTTHREEFIRSTDAY TYPE STRING,
PARTTHREELASTDAY TYPE STRING,
PARTTHREETIMEZONE TYPE STRING,
PARTTHREEABSENCEHOURS TYPE STRING,
PARTTHREELEAVETYPE TYPE STRING,
REASON TYPE STRING,
CONTACT TYPE STRING,
LEAVEREQUESTSTATE TYPE STRING,
LEAVEREQUESTSTATETEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_SWX_V_FORMABSBAS_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_SWX_V_FORMABSBAS_STR-MANDT sy-vline 
WA_SWX_V_FORMABSBAS_STR-LEAVEREQUESTID sy-vline 
WA_SWX_V_FORMABSBAS_STR-T_APPROVEDTIMESTAMP sy-vline 
WA_SWX_V_FORMABSBAS_STR-APPROVEDBY sy-vline 
WA_SWX_V_FORMABSBAS_STR-T_CREATEDTIMESTAMP sy-vline 
WA_SWX_V_FORMABSBAS_STR-CREATEDBY sy-vline 
WA_SWX_V_FORMABSBAS_STR-ADDRESSNUMBER sy-vline 
WA_SWX_V_FORMABSBAS_STR-PERSONALNUMBER sy-vline 
WA_SWX_V_FORMABSBAS_STR-CREATORNAMETEXT sy-vline 
WA_SWX_V_FORMABSBAS_STR-CREATORDEPARTMENT sy-vline 
WA_SWX_V_FORMABSBAS_STR-COSTCENTER sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTONEFIRSTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTONELASTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTONETIMEZONE sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTONEABSENCEHOURS sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTONELEAVETYPE sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTWOFIRSTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTWOLASTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTWOTIMEZONE sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTWOABSENCEHOURS sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTWOLEAVETYPE sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTHREEFIRSTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTHREELASTDAY sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTHREETIMEZONE sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTHREEABSENCEHOURS sy-vline 
WA_SWX_V_FORMABSBAS_STR-PARTTHREELEAVETYPE sy-vline 
WA_SWX_V_FORMABSBAS_STR-REASON sy-vline 
WA_SWX_V_FORMABSBAS_STR-CONTACT sy-vline 
WA_SWX_V_FORMABSBAS_STR-LEAVEREQUESTSTATE sy-vline 
WA_SWX_V_FORMABSBAS_STR-LEAVEREQUESTSTATETEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.