ABAP Select data from SAP table /ACCGO/CAS_S_APP_PROFILE 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 /ACCGO/CAS_S_APP_PROFILE 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 /ACCGO/CAS_S_APP_PROFILE. 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 /ACCGO/CAS_S_APP_PROFILE 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_/ACCGO/CAS_S_APP_PROFILE TYPE STANDARD TABLE OF /ACCGO/CAS_S_APP_PROFILE,
      WA_/ACCGO/CAS_S_APP_PROFILE TYPE /ACCGO/CAS_S_APP_PROFILE,
      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: </ACCGO/CAS_S_APP_PROFILE> TYPE /ACCGO/CAS_S_APP_PROFILE.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /ACCGO/CAS_S_APP_PROFILE
  INTO TABLE IT_/ACCGO/CAS_S_APP_PROFILE.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /ACCGO/CAS_S_APP_PROFILE
*  INTO TABLE @DATA(IT_/ACCGO/CAS_S_APP_PROFILE2).
*--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_/ACCGO/CAS_S_APP_PROFILE INDEX 1 INTO DATA(WA_/ACCGO/CAS_S_APP_PROFILE2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/ACCGO/CAS_S_APP_PROFILE ASSIGNING </ACCGO/CAS_S_APP_PROFILE>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</ACCGO/CAS_S_APP_PROFILE>-RULES_INT_FNR = 1.
</ACCGO/CAS_S_APP_PROFILE>-EXT_FNR = 1.
</ACCGO/CAS_S_APP_PROFILE>-PARTIAL_LOAD = 1.
</ACCGO/CAS_S_APP_PROFILE>-EARLY_DELIVERY_DAYS = 1.
</ACCGO/CAS_S_APP_PROFILE>-LATE_DELIVERY_DAYS = 1.

ENDLOOP.

LOOP AT IT_/ACCGO/CAS_S_APP_PROFILE INTO WA_/ACCGO/CAS_S_APP_PROFILE.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/ACCGO/CAS_S_APP_PROFILE-PROV_UNDERFILL_TOL, sy-vline,
  WA_/ACCGO/CAS_S_APP_PROFILE-PROV_OVERFILL_TOL, sy-vline,
  WA_/ACCGO/CAS_S_APP_PROFILE-PROV_UNDERFILL_TOL_FROM, sy-vline,
  WA_/ACCGO/CAS_S_APP_PROFILE-PROV_OVERFILL_TOL_FROM, sy-vline,
  WA_/ACCGO/CAS_S_APP_PROFILE-IS_MCAK, sy-vline,
  WA_/ACCGO/CAS_S_APP_PROFILE-ACC_N_OWN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/ACCGO/CAS_S_APP_PROFILE 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_/ACCGO/CAS_S_APP_PROFILE 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_/ACCGO/CAS_S_APP_PROFILE INTO WA_/ACCGO/CAS_S_APP_PROFILE.


*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 MATN1, internal->external for field MATNR_DET
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_/ACCGO/CAS_S_APP_PROFILE-MATNR_DET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAS_S_APP_PROFILE-MATNR_DET.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field MIRROR_APPDOC
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/ACCGO/CAS_S_APP_PROFILE-MIRROR_APPDOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAS_S_APP_PROFILE-MIRROR_APPDOC.
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_/ACCGO/CAS_S_APP_PROFILE_STR, 
RULES_INT_FNR TYPE STRING,
EXT_FNR TYPE STRING,
PARTIAL_LOAD TYPE STRING,
EARLY_DELIVERY_DAYS TYPE STRING,
LATE_DELIVERY_DAYS TYPE STRING,
PROV_UNDERFILL_TOL TYPE STRING,
PROV_OVERFILL_TOL TYPE STRING,
PROV_UNDERFILL_TOL_FROM TYPE STRING,
PROV_OVERFILL_TOL_FROM TYPE STRING,
IS_MCAK TYPE STRING,
ACC_N_OWN TYPE STRING,
SPOT TYPE STRING,
AUTO_APPLY TYPE STRING,
TITLE_TRANSFER TYPE STRING,
AUTO_SPLIT TYPE STRING,
SPLIT_QTY_TAB TYPE STRING,
MATNR_DET TYPE STRING,
UMBRELLA_REL_FNR TYPE STRING,
GRP_MAT_FNR TYPE STRING,
CAR_LOT_REL TYPE STRING,
DO_UNDERFILL TYPE STRING,
CONTRACT_OPEN_QTY TYPE STRING,
FINAL TYPE STRING,
APP_POST_PROCESSING TYPE STRING,
AUTO_REVERSE TYPE STRING,
OPTIONALITY TYPE STRING,
DELV_PER_OPT TYPE STRING,
DPQS TYPE STRING,
TOL_TYP TYPE STRING,
TOL_CHECK_NEEDED TYPE STRING,
CALLER TYPE STRING,
SCENARIO TYPE STRING,
LEADING_SIDE TYPE STRING,
APP_GRP_NAME TYPE STRING,
FETCH_CNTRTS TYPE STRING,
MIRROR_APPDOC TYPE STRING,
MIRROR_ITEM TYPE STRING,
FIRMED TYPE STRING,
MULTIPLE_PROV TYPE STRING,
REL_FOR_PRICING TYPE STRING,
CALLER_IS_OE TYPE STRING,
APPL_LOG TYPE STRING,
TIMESTAMP TYPE STRING,
SETL_REL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/ACCGO/CAS_S_APP_PROFILE_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_/ACCGO/CAS_S_APP_PROFILE_STR-RULES_INT_FNR sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-EXT_FNR sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-PARTIAL_LOAD sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-EARLY_DELIVERY_DAYS sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-LATE_DELIVERY_DAYS sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-PROV_UNDERFILL_TOL sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-PROV_OVERFILL_TOL sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-PROV_UNDERFILL_TOL_FROM sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-PROV_OVERFILL_TOL_FROM sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-IS_MCAK sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-ACC_N_OWN sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-SPOT sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-AUTO_APPLY sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-TITLE_TRANSFER sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-AUTO_SPLIT sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-SPLIT_QTY_TAB sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-MATNR_DET sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-UMBRELLA_REL_FNR sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-GRP_MAT_FNR sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-CAR_LOT_REL sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-DO_UNDERFILL sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-CONTRACT_OPEN_QTY sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-FINAL sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-APP_POST_PROCESSING sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-AUTO_REVERSE sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-OPTIONALITY sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-DELV_PER_OPT sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-DPQS sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-TOL_TYP sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-TOL_CHECK_NEEDED sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-CALLER sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-SCENARIO sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-LEADING_SIDE sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-APP_GRP_NAME sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-FETCH_CNTRTS sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-MIRROR_APPDOC sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-MIRROR_ITEM sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-FIRMED sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-MULTIPLE_PROV sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-REL_FOR_PRICING sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-CALLER_IS_OE sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-APPL_LOG sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-TIMESTAMP sy-vline 
WA_/ACCGO/CAS_S_APP_PROFILE_STR-SETL_REL sy-vline      INTO ld_text SEPARATED BY SPACE.

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