ABAP Select data from SAP table GRPC_S_MCF_REF_JOB 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 GRPC_S_MCF_REF_JOB 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 GRPC_S_MCF_REF_JOB. 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 GRPC_S_MCF_REF_JOB 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_GRPC_S_MCF_REF_JOB TYPE STANDARD TABLE OF GRPC_S_MCF_REF_JOB,
      WA_GRPC_S_MCF_REF_JOB TYPE GRPC_S_MCF_REF_JOB,
      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: <GRPC_S_MCF_REF_JOB> TYPE GRPC_S_MCF_REF_JOB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM GRPC_S_MCF_REF_JOB
*  INTO TABLE @DATA(IT_GRPC_S_MCF_REF_JOB2).
*--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_GRPC_S_MCF_REF_JOB INDEX 1 INTO DATA(WA_GRPC_S_MCF_REF_JOB2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<GRPC_S_MCF_REF_JOB>-REFERENCED = 1.
<GRPC_S_MCF_REF_JOB>-REF_BY_USER = 1.
<GRPC_S_MCF_REF_JOB>-REF_DATE = 1.
<GRPC_S_MCF_REF_JOB>-REGULATION = 1.
<GRPC_S_MCF_REF_JOB>-REGULATION_ID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_GRPC_S_MCF_REF_JOB-JOBLOG_ID, sy-vline,
  WA_GRPC_S_MCF_REF_JOB-ISSUE_ID, sy-vline,
  WA_GRPC_S_MCF_REF_JOB-TEST_RESULT_TEXT, sy-vline,
  WA_GRPC_S_MCF_REF_JOB-ISSUE_STATUS_TEXT, sy-vline,
  WA_GRPC_S_MCF_REF_JOB-ISSUE_PRIORITY_TEXT, sy-vline,
  WA_GRPC_S_MCF_REF_JOB-SYSTEMDESC, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_GRPC_S_MCF_REF_JOB 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_GRPC_S_MCF_REF_JOB 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_GRPC_S_MCF_REF_JOB INTO WA_GRPC_S_MCF_REF_JOB.


*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 TSTPS, internal->external for field EXEC_DATE_TIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_GRPC_S_MCF_REF_JOB-EXEC_DATE_TIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_GRPC_S_MCF_REF_JOB-EXEC_DATE_TIME.
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_GRPC_S_MCF_REF_JOB_STR, 
REFERENCED TYPE STRING,
REF_BY_USER TYPE STRING,
REF_DATE TYPE STRING,
REGULATION TYPE STRING,
REGULATION_ID TYPE STRING,
JOBLOG_ID TYPE STRING,
ISSUE_ID TYPE STRING,
TEST_RESULT_TEXT TYPE STRING,
ISSUE_STATUS_TEXT TYPE STRING,
ISSUE_PRIORITY_TEXT TYPE STRING,
SYSTEMDESC TYPE STRING,
SCRIPTTYPEDESC TYPE STRING,
EXEC_DATE_TIME TYPE STRING,
BTC_JOBNAME TYPE STRING,
BTC_JOBCOUNT TYPE STRING,
RETURN_CONNECTOR TYPE STRING,
DEST_JOBCOUNT TYPE STRING,
EXEC_DATE TYPE STRING,
EXEC_TIME TYPE STRING,
SYSTEMTYPE TYPE STRING,
SYSTEM_TYPEDESC TYPE STRING,
DEFICIENCY TYPE STRING,
DEFTYPE_DESC TYPE STRING,
DEFICIENCY_TOTAL TYPE STRING,
TIMEFRAME TYPE STRING,
TF_YEAR TYPE STRING,
JOBID TYPE STRING,
JOB_STEP TYPE STRING,
JOB_STATUS TYPE STRING,
STATUS TYPE STRING,
IS_TEST TYPE STRING,
ORGID TYPE STRING,
ORGUNIT TYPE STRING,
PROCESSID TYPE STRING,
PROCESSNAME TYPE STRING,
SUBPROCESSID TYPE STRING,
SUBPROCESSNAME TYPE STRING,
CONTROL_ID TYPE STRING,
CONTROLNAME TYPE STRING,
RULE_ID TYPE STRING,
RULEID TYPE STRING,
RULEDESC TYPE STRING,
OLSP_ID TYPE STRING,
OLSPID TYPE STRING,
FREQ_TYPE TYPE STRING,
FREQUENCY TYPE STRING,
MONITORING TYPE STRING,
COMPLIANCE TYPE STRING,
RULESTATUS TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
SCRIPTVARIANT TYPE STRING,
CONNECTOR TYPE STRING,
SCRIPT TYPE STRING,
SCRIPTTYPE TYPE STRING,
SCRIPT_TYPE_TEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_GRPC_S_MCF_REF_JOB_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_GRPC_S_MCF_REF_JOB_STR-REFERENCED sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-REF_BY_USER sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-REF_DATE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-REGULATION sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-REGULATION_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-JOBLOG_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-ISSUE_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-TEST_RESULT_TEXT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-ISSUE_STATUS_TEXT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-ISSUE_PRIORITY_TEXT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SYSTEMDESC sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SCRIPTTYPEDESC sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-EXEC_DATE_TIME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-BTC_JOBNAME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-BTC_JOBCOUNT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-RETURN_CONNECTOR sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-DEST_JOBCOUNT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-EXEC_DATE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-EXEC_TIME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SYSTEMTYPE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SYSTEM_TYPEDESC sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-DEFICIENCY sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-DEFTYPE_DESC sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-DEFICIENCY_TOTAL sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-TIMEFRAME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-TF_YEAR sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-JOBID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-JOB_STEP sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-JOB_STATUS sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-STATUS sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-IS_TEST sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-ORGID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-ORGUNIT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-PROCESSID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-PROCESSNAME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SUBPROCESSID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SUBPROCESSNAME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-CONTROL_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-CONTROLNAME sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-RULE_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-RULEID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-RULEDESC sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-OLSP_ID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-OLSPID sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-FREQ_TYPE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-FREQUENCY sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-MONITORING sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-COMPLIANCE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-RULESTATUS sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-VALIDFROM sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-VALIDTO sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SCRIPTVARIANT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-CONNECTOR sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SCRIPT sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SCRIPTTYPE sy-vline 
WA_GRPC_S_MCF_REF_JOB_STR-SCRIPT_TYPE_TEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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