ABAP Select data from SAP table CGMGRANTCORETP 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 CGMGRANTCORETP 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 CGMGRANTCORETP. 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 CGMGRANTCORETP 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_CGMGRANTCORETP TYPE STANDARD TABLE OF CGMGRANTCORETP,
      WA_CGMGRANTCORETP TYPE CGMGRANTCORETP,
      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: <CGMGRANTCORETP> TYPE CGMGRANTCORETP.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CGMGRANTCORETP
*  INTO TABLE @DATA(IT_CGMGRANTCORETP2).
*--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_CGMGRANTCORETP INDEX 1 INTO DATA(WA_CGMGRANTCORETP2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CGMGRANTCORETP>-MANDT = 1.
<CGMGRANTCORETP>-GRANTID = 1.
<CGMGRANTCORETP>-GRANTIDFOREDIT = 1.
<CGMGRANTCORETP>-GRANTNAME = 1.
<CGMGRANTCORETP>-GRANTTYPE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CGMGRANTCORETP-COMPANYCODE, sy-vline,
  WA_CGMGRANTCORETP-GRANTEEMGMTSPONSOR, sy-vline,
  WA_CGMGRANTCORETP-BUSINESSPARTNERNAME, sy-vline,
  WA_CGMGRANTCORETP-GRANTAUTHZNGRP, sy-vline,
  WA_CGMGRANTCORETP-GRANTAUTHZNGRPTEXT, sy-vline,
  WA_CGMGRANTCORETP-GRANTLIFECYCLESTATUS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CGMGRANTCORETP 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_CGMGRANTCORETP 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_CGMGRANTCORETP INTO WA_CGMGRANTCORETP.


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

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

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

*Conversion exit ALPHA, internal->external for field COSTCENTER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CGMGRANTCORETP-COSTCENTER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CGMGRANTCORETP-COSTCENTER.
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_CGMGRANTCORETP_STR, 
MANDT TYPE STRING,
GRANTID TYPE STRING,
GRANTIDFOREDIT TYPE STRING,
GRANTNAME TYPE STRING,
GRANTTYPE TYPE STRING,
COMPANYCODE TYPE STRING,
GRANTEEMGMTSPONSOR TYPE STRING,
BUSINESSPARTNERNAME TYPE STRING,
GRANTAUTHZNGRP TYPE STRING,
GRANTAUTHZNGRPTEXT TYPE STRING,
GRANTLIFECYCLESTATUS TYPE STRING,
SYSTEMSTATUSNAME TYPE STRING,
CRITICALITY TYPE STRING,
GRANTDESCRIPTION TYPE STRING,
VALIDITYSTARTDATE TYPE STRING,
VALIDITYENDDATE TYPE STRING,
GRANTVALIDITYPERIOD TYPE STRING,
GRANTFISCALYEARVARIANT TYPE STRING,
GTEEMTIMESLICESPLITTINGRULE TYPE STRING,
COSTCENTER TYPE STRING,
CONTROLLINGAREA TYPE STRING,
GRANTEEMGMTCOSTSHARINGRULE TYPE STRING,
GTEEMCOSTSHARINGOVERALLRATE TYPE STRING,
GRANTEEMGMTBILLINGRULE TYPE STRING,
GTEEMINDRCTCOSTSHRNGRULE TYPE STRING,
GTEEMINDIRECTCOSTRATEINPERCENT TYPE STRING,
CREATEDBYUSER TYPE STRING,
CREATIONDATE TYPE STRING,
CREATIONTIME TYPE STRING,
LASTCHANGEDBYUSER TYPE STRING,
LASTCHANGEDATE TYPE STRING,
LASTCHANGETIME TYPE STRING,
GRANTISNOTRELEVANTGRANT TYPE STRING,
GRANTCURRENCY TYPE STRING,
GRANTTOTALAMOUNTINGRANTCRCY TYPE STRING,
GRANTLFCYCSTATUSFORAUTHZN TYPE STRING,
GRANTISBLOCKEDFORPOSTING TYPE STRING,
GRANTSTATUSPROFILE TYPE STRING,
GRANTUSERSTATUS TYPE STRING,
PREAWARDPSTGISALLOWEDFORGRANT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CGMGRANTCORETP_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_CGMGRANTCORETP_STR-MANDT sy-vline 
WA_CGMGRANTCORETP_STR-GRANTID sy-vline 
WA_CGMGRANTCORETP_STR-GRANTIDFOREDIT sy-vline 
WA_CGMGRANTCORETP_STR-GRANTNAME sy-vline 
WA_CGMGRANTCORETP_STR-GRANTTYPE sy-vline 
WA_CGMGRANTCORETP_STR-COMPANYCODE sy-vline 
WA_CGMGRANTCORETP_STR-GRANTEEMGMTSPONSOR sy-vline 
WA_CGMGRANTCORETP_STR-BUSINESSPARTNERNAME sy-vline 
WA_CGMGRANTCORETP_STR-GRANTAUTHZNGRP sy-vline 
WA_CGMGRANTCORETP_STR-GRANTAUTHZNGRPTEXT sy-vline 
WA_CGMGRANTCORETP_STR-GRANTLIFECYCLESTATUS sy-vline 
WA_CGMGRANTCORETP_STR-SYSTEMSTATUSNAME sy-vline 
WA_CGMGRANTCORETP_STR-CRITICALITY sy-vline 
WA_CGMGRANTCORETP_STR-GRANTDESCRIPTION sy-vline 
WA_CGMGRANTCORETP_STR-VALIDITYSTARTDATE sy-vline 
WA_CGMGRANTCORETP_STR-VALIDITYENDDATE sy-vline 
WA_CGMGRANTCORETP_STR-GRANTVALIDITYPERIOD sy-vline 
WA_CGMGRANTCORETP_STR-GRANTFISCALYEARVARIANT sy-vline 
WA_CGMGRANTCORETP_STR-GTEEMTIMESLICESPLITTINGRULE sy-vline 
WA_CGMGRANTCORETP_STR-COSTCENTER sy-vline 
WA_CGMGRANTCORETP_STR-CONTROLLINGAREA sy-vline 
WA_CGMGRANTCORETP_STR-GRANTEEMGMTCOSTSHARINGRULE sy-vline 
WA_CGMGRANTCORETP_STR-GTEEMCOSTSHARINGOVERALLRATE sy-vline 
WA_CGMGRANTCORETP_STR-GRANTEEMGMTBILLINGRULE sy-vline 
WA_CGMGRANTCORETP_STR-GTEEMINDRCTCOSTSHRNGRULE sy-vline 
WA_CGMGRANTCORETP_STR-GTEEMINDIRECTCOSTRATEINPERCENT sy-vline 
WA_CGMGRANTCORETP_STR-CREATEDBYUSER sy-vline 
WA_CGMGRANTCORETP_STR-CREATIONDATE sy-vline 
WA_CGMGRANTCORETP_STR-CREATIONTIME sy-vline 
WA_CGMGRANTCORETP_STR-LASTCHANGEDBYUSER sy-vline 
WA_CGMGRANTCORETP_STR-LASTCHANGEDATE sy-vline 
WA_CGMGRANTCORETP_STR-LASTCHANGETIME sy-vline 
WA_CGMGRANTCORETP_STR-GRANTISNOTRELEVANTGRANT sy-vline 
WA_CGMGRANTCORETP_STR-GRANTCURRENCY sy-vline 
WA_CGMGRANTCORETP_STR-GRANTTOTALAMOUNTINGRANTCRCY sy-vline 
WA_CGMGRANTCORETP_STR-GRANTLFCYCSTATUSFORAUTHZN sy-vline 
WA_CGMGRANTCORETP_STR-GRANTISBLOCKEDFORPOSTING sy-vline 
WA_CGMGRANTCORETP_STR-GRANTSTATUSPROFILE sy-vline 
WA_CGMGRANTCORETP_STR-GRANTUSERSTATUS sy-vline 
WA_CGMGRANTCORETP_STR-PREAWARDPSTGISALLOWEDFORGRANT sy-vline      INTO ld_text SEPARATED BY SPACE.

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