ABAP Select data from SAP table ICL_PAYGUI 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 ICL_PAYGUI 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 ICL_PAYGUI. 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 ICL_PAYGUI 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_ICL_PAYGUI TYPE STANDARD TABLE OF ICL_PAYGUI,
      WA_ICL_PAYGUI TYPE ICL_PAYGUI,
      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: <ICL_PAYGUI> TYPE ICL_PAYGUI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICL_PAYGUI
*  INTO TABLE @DATA(IT_ICL_PAYGUI2).
*--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_ICL_PAYGUI INDEX 1 INTO DATA(WA_ICL_PAYGUI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICL_PAYGUI>-CREATEDATE = 1.
<ICL_PAYGUI>-CREATETIMET = 1.
<ICL_PAYGUI>-CHANGEDATE = 1.
<ICL_PAYGUI>-CHANGETIMET = 1.
<ICL_PAYGUI>-APPROVEDDATE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICL_PAYGUI-APPROVEDTIMET, sy-vline,
  WA_ICL_PAYGUI-TRANSFERDATE, sy-vline,
  WA_ICL_PAYGUI-TRANSFERTIMET, sy-vline,
  WA_ICL_PAYGUI-STATUSTXT, sy-vline,
  WA_ICL_PAYGUI-STATUS_GUI, sy-vline,
  WA_ICL_PAYGUI-STATUS_GUITXT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICL_PAYGUI 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_ICL_PAYGUI 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_ICL_PAYGUI INTO WA_ICL_PAYGUI.


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

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

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

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

*Conversion exit ALPHA, internal->external for field PAYER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_ICL_PAYGUI-PAYER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_PAYGUI-PAYER.
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_ICL_PAYGUI_STR, 
CREATEDATE TYPE STRING,
CREATETIMET TYPE STRING,
CHANGEDATE TYPE STRING,
CHANGETIMET TYPE STRING,
APPROVEDDATE TYPE STRING,
APPROVEDTIMET TYPE STRING,
TRANSFERDATE TYPE STRING,
TRANSFERTIMET TYPE STRING,
STATUSTXT TYPE STRING,
STATUS_GUI TYPE STRING,
STATUS_GUITXT TYPE STRING,
FINALP TYPE STRING,
FINALPTXT TYPE STRING,
PAYCATTXT TYPE STRING,
PAYTYPETXT TYPE STRING,
PYMTYPEDESC TYPE STRING,
REACTIVATEDP TYPE STRING,
MSSNBPTIN TYPE STRING,
MTAXRPTCTTXT TYPE STRING,
XTAXCALC TYPE STRING,
STEXT TYPE STRING,
PAMPAID TYPE STRING,
REQUESTED TYPE STRING,
BENTYPE TYPE STRING,
BENTYPENAME TYPE STRING,
METHODTXT TYPE STRING,
DESCRIPTION TYPE STRING,
DESCRIPTION_STREET TYPE STRING,
STDADDR TYPE STRING,
METHOD2 TYPE STRING,
MANCHECK TYPE STRING,
MANCHECK2 TYPE STRING,
XBULK TYPE STRING,
XMETHOD_BULK TYPE STRING,
CL_PAYPLANTEXT TYPE STRING,
BPARTNER TYPE STRING,
ROLE TYPE STRING,
BP_PUSH TYPE STRING,
XNEW TYPE STRING,
DESCRIP TYPE STRING,
ADDRESSEE TYPE STRING,
BPARTNER2 TYPE STRING,
ROLE2 TYPE STRING,
ROLENAME2 TYPE STRING,
BP_PUSH2 TYPE STRING,
XNEW2 TYPE STRING,
TAXROLE2 TYPE STRING,
ADDPAYEE1 TYPE STRING,
CRECEIVER TYPE STRING,
PAYER TYPE STRING,
APAYEE TYPE STRING,
XAPPROVE TYPE STRING,
APPROVAL_REASON TYPE STRING,
REASONREJT TYPE STRING,
APPROVEDBY_LONG TYPE STRING,
REASONAPRT TYPE STRING,
RECPAYIND TYPE STRING,
XREFEXTSDOC TYPE STRING,
REFEXTSDOCTXT TYPE STRING,
PYGRP TYPE STRING,
PARK_FLAG TYPE STRING,
POSTING_STATUS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICL_PAYGUI_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_ICL_PAYGUI_STR-CREATEDATE sy-vline 
WA_ICL_PAYGUI_STR-CREATETIMET sy-vline 
WA_ICL_PAYGUI_STR-CHANGEDATE sy-vline 
WA_ICL_PAYGUI_STR-CHANGETIMET sy-vline 
WA_ICL_PAYGUI_STR-APPROVEDDATE sy-vline 
WA_ICL_PAYGUI_STR-APPROVEDTIMET sy-vline 
WA_ICL_PAYGUI_STR-TRANSFERDATE sy-vline 
WA_ICL_PAYGUI_STR-TRANSFERTIMET sy-vline 
WA_ICL_PAYGUI_STR-STATUSTXT sy-vline 
WA_ICL_PAYGUI_STR-STATUS_GUI sy-vline 
WA_ICL_PAYGUI_STR-STATUS_GUITXT sy-vline 
WA_ICL_PAYGUI_STR-FINALP sy-vline 
WA_ICL_PAYGUI_STR-FINALPTXT sy-vline 
WA_ICL_PAYGUI_STR-PAYCATTXT sy-vline 
WA_ICL_PAYGUI_STR-PAYTYPETXT sy-vline 
WA_ICL_PAYGUI_STR-PYMTYPEDESC sy-vline 
WA_ICL_PAYGUI_STR-REACTIVATEDP sy-vline 
WA_ICL_PAYGUI_STR-MSSNBPTIN sy-vline 
WA_ICL_PAYGUI_STR-MTAXRPTCTTXT sy-vline 
WA_ICL_PAYGUI_STR-XTAXCALC sy-vline 
WA_ICL_PAYGUI_STR-STEXT sy-vline 
WA_ICL_PAYGUI_STR-PAMPAID sy-vline 
WA_ICL_PAYGUI_STR-REQUESTED sy-vline 
WA_ICL_PAYGUI_STR-BENTYPE sy-vline 
WA_ICL_PAYGUI_STR-BENTYPENAME sy-vline 
WA_ICL_PAYGUI_STR-METHODTXT sy-vline 
WA_ICL_PAYGUI_STR-DESCRIPTION sy-vline 
WA_ICL_PAYGUI_STR-DESCRIPTION_STREET sy-vline 
WA_ICL_PAYGUI_STR-STDADDR sy-vline 
WA_ICL_PAYGUI_STR-METHOD2 sy-vline 
WA_ICL_PAYGUI_STR-MANCHECK sy-vline 
WA_ICL_PAYGUI_STR-MANCHECK2 sy-vline 
WA_ICL_PAYGUI_STR-XBULK sy-vline 
WA_ICL_PAYGUI_STR-XMETHOD_BULK sy-vline 
WA_ICL_PAYGUI_STR-CL_PAYPLANTEXT sy-vline 
WA_ICL_PAYGUI_STR-BPARTNER sy-vline 
WA_ICL_PAYGUI_STR-ROLE sy-vline 
WA_ICL_PAYGUI_STR-BP_PUSH sy-vline 
WA_ICL_PAYGUI_STR-XNEW sy-vline 
WA_ICL_PAYGUI_STR-DESCRIP sy-vline 
WA_ICL_PAYGUI_STR-ADDRESSEE sy-vline 
WA_ICL_PAYGUI_STR-BPARTNER2 sy-vline 
WA_ICL_PAYGUI_STR-ROLE2 sy-vline 
WA_ICL_PAYGUI_STR-ROLENAME2 sy-vline 
WA_ICL_PAYGUI_STR-BP_PUSH2 sy-vline 
WA_ICL_PAYGUI_STR-XNEW2 sy-vline 
WA_ICL_PAYGUI_STR-TAXROLE2 sy-vline 
WA_ICL_PAYGUI_STR-ADDPAYEE1 sy-vline 
WA_ICL_PAYGUI_STR-CRECEIVER sy-vline 
WA_ICL_PAYGUI_STR-PAYER sy-vline 
WA_ICL_PAYGUI_STR-APAYEE sy-vline 
WA_ICL_PAYGUI_STR-XAPPROVE sy-vline 
WA_ICL_PAYGUI_STR-APPROVAL_REASON sy-vline 
WA_ICL_PAYGUI_STR-REASONREJT sy-vline 
WA_ICL_PAYGUI_STR-APPROVEDBY_LONG sy-vline 
WA_ICL_PAYGUI_STR-REASONAPRT sy-vline 
WA_ICL_PAYGUI_STR-RECPAYIND sy-vline 
WA_ICL_PAYGUI_STR-XREFEXTSDOC sy-vline 
WA_ICL_PAYGUI_STR-REFEXTSDOCTXT sy-vline 
WA_ICL_PAYGUI_STR-PYGRP sy-vline 
WA_ICL_PAYGUI_STR-PARK_FLAG sy-vline 
WA_ICL_PAYGUI_STR-POSTING_STATUS sy-vline      INTO ld_text SEPARATED BY SPACE.

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