ABAP Select data from SAP table ICFSERVICE 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 ICFSERVICE 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 ICFSERVICE. 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 ICFSERVICE 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_ICFSERVICE TYPE STANDARD TABLE OF ICFSERVICE,
      WA_ICFSERVICE TYPE ICFSERVICE,
      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: <ICFSERVICE> TYPE ICFSERVICE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICFSERVICE
*  INTO TABLE @DATA(IT_ICFSERVICE2).
*--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_ICFSERVICE INDEX 1 INTO DATA(WA_ICFSERVICE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICFSERVICE>-ICF_NAME = 1.
<ICFSERVICE>-ICFPARGUID = 1.
<ICFSERVICE>-ICFNODGUID = 1.
<ICFSERVICE>-ICFALIFLAG = 1.
<ICFSERVICE>-ICFCHILDNO = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICFSERVICE-ICFALIASNO, sy-vline,
  WA_ICFSERVICE-ICFNODFLAG, sy-vline,
  WA_ICFSERVICE-ICFALIGUID, sy-vline,
  WA_ICFSERVICE-ICF_EXPAND, sy-vline,
  WA_ICFSERVICE-ICF_MANDT, sy-vline,
  WA_ICFSERVICE-ICF_USER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICFSERVICE 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_ICFSERVICE 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_ICFSERVICE INTO WA_ICFSERVICE.


*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 ISOLA, internal->external for field ICF_LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_ICFSERVICE-ICF_LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICFSERVICE-ICF_LANGU.
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_ICFSERVICE_STR, 
ICF_NAME TYPE STRING,
ICFPARGUID TYPE STRING,
ICFNODGUID TYPE STRING,
ICFALIFLAG TYPE STRING,
ICFCHILDNO TYPE STRING,
ICFALIASNO TYPE STRING,
ICFNODFLAG TYPE STRING,
ICFALIGUID TYPE STRING,
ICF_EXPAND TYPE STRING,
ICF_MANDT TYPE STRING,
ICF_USER TYPE STRING,
ICF_PASSWD TYPE STRING,
ICF_LANGU TYPE STRING,
OBLUSRFLAG TYPE STRING,
PROTSEC TYPE STRING,
X509FLAG TYPE STRING,
SSLFLAG TYPE STRING,
ALIASLOGIN TYPE STRING,
ICF_AUTH TYPE STRING,
ICF_TCODE TYPE STRING,
ICF_NOACT TYPE STRING,
ICF_TRACE TYPE STRING,
ICF_DEBUG TYPE STRING,
ICF_EXPIR TYPE STRING,
ICF_OPTION TYPE STRING,
ICF_REDIR TYPE STRING,
ICF_TIME TYPE STRING,
ICF_CUSER TYPE STRING,
ICF_CDATE TYPE STRING,
ICF_MUSER TYPE STRING,
ICF_MDATE TYPE STRING,
ICF_HTTPS TYPE STRING,
ICF_AUTHRC TYPE STRING,
HDROTRCONC TYPE STRING,
BODOTRCONC TYPE STRING,
URL500 TYPE STRING,
KIND500 TYPE STRING,
HTTPCDE500 TYPE STRING,
HDROTR401 TYPE STRING,
BODOTR401 TYPE STRING,
URL401 TYPE STRING,
FORMFLG401 TYPE STRING,
KIND401 TYPE STRING,
HTTPCDE401 TYPE STRING,
ICFBITMAP TYPE STRING,
COMPR_FLAG TYPE STRING,
FALLTHRU TYPE STRING,
SYSLOG401 TYPE STRING,
LOG_FLAG TYPE STRING,
LOG_ORDER TYPE STRING,
HDROTRLPAG TYPE STRING,
BODOTRLPAG TYPE STRING,
URLLPAG TYPE STRING,
KINDLPAG TYPE STRING,
HTTPCDELPAG TYPE STRING,
ICFGUILNK TYPE STRING,
ICF_CCLNT TYPE STRING,
ICF_MCLNT TYPE STRING,
HDROTRNFPAG TYPE STRING,
BODOTRNFPAG TYPE STRING,
URLNFPAG TYPE STRING,
KINDNFPAG TYPE STRING,
HTTPCDENFPAG TYPE STRING,
APPLCUSTFLAG TYPE STRING,
ACCESSIBILITY TYPE STRING,
ICF_JAVA TYPE STRING,
LOGIN_PROCESS TYPE STRING,
KATEGORIE TYPE STRING,
READONLY TYPE STRING,
NOHEREDITY TYPE STRING,
SAML_FLAG TYPE STRING,
SYSLOGIN TYPE STRING,
ICF_ESI_FLAG TYPE STRING,
ICF_ESI_LOGON TYPE STRING,
ICF_REAUTH_OFF TYPE STRING,
NO_SESSION_MANAGEMENT TYPE STRING,
ORIG_NAME TYPE STRING,
ICFALTNME TYPE STRING,
ICFALTNME_ORIG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICFSERVICE_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_ICFSERVICE_STR-ICF_NAME sy-vline 
WA_ICFSERVICE_STR-ICFPARGUID sy-vline 
WA_ICFSERVICE_STR-ICFNODGUID sy-vline 
WA_ICFSERVICE_STR-ICFALIFLAG sy-vline 
WA_ICFSERVICE_STR-ICFCHILDNO sy-vline 
WA_ICFSERVICE_STR-ICFALIASNO sy-vline 
WA_ICFSERVICE_STR-ICFNODFLAG sy-vline 
WA_ICFSERVICE_STR-ICFALIGUID sy-vline 
WA_ICFSERVICE_STR-ICF_EXPAND sy-vline 
WA_ICFSERVICE_STR-ICF_MANDT sy-vline 
WA_ICFSERVICE_STR-ICF_USER sy-vline 
WA_ICFSERVICE_STR-ICF_PASSWD sy-vline 
WA_ICFSERVICE_STR-ICF_LANGU sy-vline 
WA_ICFSERVICE_STR-OBLUSRFLAG sy-vline 
WA_ICFSERVICE_STR-PROTSEC sy-vline 
WA_ICFSERVICE_STR-X509FLAG sy-vline 
WA_ICFSERVICE_STR-SSLFLAG sy-vline 
WA_ICFSERVICE_STR-ALIASLOGIN sy-vline 
WA_ICFSERVICE_STR-ICF_AUTH sy-vline 
WA_ICFSERVICE_STR-ICF_TCODE sy-vline 
WA_ICFSERVICE_STR-ICF_NOACT sy-vline 
WA_ICFSERVICE_STR-ICF_TRACE sy-vline 
WA_ICFSERVICE_STR-ICF_DEBUG sy-vline 
WA_ICFSERVICE_STR-ICF_EXPIR sy-vline 
WA_ICFSERVICE_STR-ICF_OPTION sy-vline 
WA_ICFSERVICE_STR-ICF_REDIR sy-vline 
WA_ICFSERVICE_STR-ICF_TIME sy-vline 
WA_ICFSERVICE_STR-ICF_CUSER sy-vline 
WA_ICFSERVICE_STR-ICF_CDATE sy-vline 
WA_ICFSERVICE_STR-ICF_MUSER sy-vline 
WA_ICFSERVICE_STR-ICF_MDATE sy-vline 
WA_ICFSERVICE_STR-ICF_HTTPS sy-vline 
WA_ICFSERVICE_STR-ICF_AUTHRC sy-vline 
WA_ICFSERVICE_STR-HDROTRCONC sy-vline 
WA_ICFSERVICE_STR-BODOTRCONC sy-vline 
WA_ICFSERVICE_STR-URL500 sy-vline 
WA_ICFSERVICE_STR-KIND500 sy-vline 
WA_ICFSERVICE_STR-HTTPCDE500 sy-vline 
WA_ICFSERVICE_STR-HDROTR401 sy-vline 
WA_ICFSERVICE_STR-BODOTR401 sy-vline 
WA_ICFSERVICE_STR-URL401 sy-vline 
WA_ICFSERVICE_STR-FORMFLG401 sy-vline 
WA_ICFSERVICE_STR-KIND401 sy-vline 
WA_ICFSERVICE_STR-HTTPCDE401 sy-vline 
WA_ICFSERVICE_STR-ICFBITMAP sy-vline 
WA_ICFSERVICE_STR-COMPR_FLAG sy-vline 
WA_ICFSERVICE_STR-FALLTHRU sy-vline 
WA_ICFSERVICE_STR-SYSLOG401 sy-vline 
WA_ICFSERVICE_STR-LOG_FLAG sy-vline 
WA_ICFSERVICE_STR-LOG_ORDER sy-vline 
WA_ICFSERVICE_STR-HDROTRLPAG sy-vline 
WA_ICFSERVICE_STR-BODOTRLPAG sy-vline 
WA_ICFSERVICE_STR-URLLPAG sy-vline 
WA_ICFSERVICE_STR-KINDLPAG sy-vline 
WA_ICFSERVICE_STR-HTTPCDELPAG sy-vline 
WA_ICFSERVICE_STR-ICFGUILNK sy-vline 
WA_ICFSERVICE_STR-ICF_CCLNT sy-vline 
WA_ICFSERVICE_STR-ICF_MCLNT sy-vline 
WA_ICFSERVICE_STR-HDROTRNFPAG sy-vline 
WA_ICFSERVICE_STR-BODOTRNFPAG sy-vline 
WA_ICFSERVICE_STR-URLNFPAG sy-vline 
WA_ICFSERVICE_STR-KINDNFPAG sy-vline 
WA_ICFSERVICE_STR-HTTPCDENFPAG sy-vline 
WA_ICFSERVICE_STR-APPLCUSTFLAG sy-vline 
WA_ICFSERVICE_STR-ACCESSIBILITY sy-vline 
WA_ICFSERVICE_STR-ICF_JAVA sy-vline 
WA_ICFSERVICE_STR-LOGIN_PROCESS sy-vline 
WA_ICFSERVICE_STR-KATEGORIE sy-vline 
WA_ICFSERVICE_STR-READONLY sy-vline 
WA_ICFSERVICE_STR-NOHEREDITY sy-vline 
WA_ICFSERVICE_STR-SAML_FLAG sy-vline 
WA_ICFSERVICE_STR-SYSLOGIN sy-vline 
WA_ICFSERVICE_STR-ICF_ESI_FLAG sy-vline 
WA_ICFSERVICE_STR-ICF_ESI_LOGON sy-vline 
WA_ICFSERVICE_STR-ICF_REAUTH_OFF sy-vline 
WA_ICFSERVICE_STR-NO_SESSION_MANAGEMENT sy-vline 
WA_ICFSERVICE_STR-ORIG_NAME sy-vline 
WA_ICFSERVICE_STR-ICFALTNME sy-vline 
WA_ICFSERVICE_STR-ICFALTNME_ORIG sy-vline      INTO ld_text SEPARATED BY SPACE.

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